Как разорвать соединение с интернетом?

← →
Net_Prosto (2003-12-05 19:42) [0]

Сообственно сабж ;) Только что бы 100% работла под ХР.
Заранее огромнейшее спасибо!

п.с. весь инет облазил, все FAQ, ничего нету :(

← →
All (2003-12-06 01:08) [1]

Если Вы хотите разорвать соединение TCP то Вам необходимо послать пакет TCP с установленным флагом rst, тем самым уведомив хост о том что вы разрываете соединение.
Сформировать пакет можно юзая RAWSOCKET.
Поищите в инете.

← →
mix.4ever (2003-12-06 12:17) [2]

А лучше посмотри функции библиотеки WinInet. Там есть че-то типа InetClose.

← →
Александр из Минска © (2003-12-06 14:25) [3]

Я таким уже маялся. Очень долго искал, но нашел.
Почитай эту статью, http://www.delphikingdom.ru/helloworld/rasapi.htm
а потом посмотри этот форум!!! http://www.delphikingdom.ru/asp/articles_forum.asp?ArticleID=356

← →
Rouse_ © (2003-12-07 23:01) [4]

Хм, ссылки не смотрел, но разве RasHangUp не помогает?...

← →
Александр из Минска © (2003-12-08 16:16) [5]

to Rouse_
Там про это и написано!

← →
Net_Prosto (2003-12-08 18:38) [6]

Товарищи, огромное всем спасибо!

← →
Net_Prosto (2003-12-08 19:35) [7]

это опять я, с плохими новостями :(
попробовал я пример http://www.delphikingdom.ru/helloworld/rasapi.htm
и ничего не работает :(. Может это из-за того что ХР?
что посоветуете?

← →
Net_Prosto (2003-12-09 09:37) [8]

Вот что получается, в статье описанно как разорвать соединение созданное моей программой, а если оно создано Windows?

Во так всегда!!! А ссылку форума я начто давал??? Иди сюда и читай все http://www.delphikingdom.ru/asp/articles_forum.asp?ArticleID=356

← →
Net_Prosto (2004-01-01 13:33) [10]

Уважаемый Александр из Минска, я проследовал по вашей ссылки но ничего там не нашёл :(.

type TRasConn = record Size: DWORD; Handle: THandle; Name: array [0..20] of AnsiChar; end; TRasEnumConnections = function (var RasConn: TRasConn; var Size: DWORD; var Connections: DWORD): DWORD stdcall; TRasHangUp = function (Handle: THandle): DWORD stdcall; function DisconnectDialUp: Boolean; var Lib: HINST; RasEnumConnections: TRasEnumConnections; RasHangUp: TRasHangUp; RasConn: TRasConn; Code, Size, Connections: DWORD; begin Result := True; try Lib := LoadLibrary("rasapi32.dll"); try if Lib = 0 then Abort; RasEnumConnections := GetProcAddress(Lib, "RasEnumConnectionsA"); if not Assigned(@RasEnumConnections) then Abort; RasHangUp := GetProcAddress(Lib, "RasHangUpA"); if not Assigned(@RasHangUp) then Abort; FillChar(RasConn, SizeOf(RasConn), 0); RasConn.Size := SizeOf(RasConn); Code := RasEnumConnections(RasConn, Size, Connections); if (Connections <> 1) or (Code <> 0) then Abort; if RasHangUp(RasConn.Handle) <> 0 then Abort; finally FreeLibrary(Lib); end; except on E: EAbort do Result := False; else raise; end; end;

ТАм все написано. Нажми Правка\найти на этой странице... Там ищи строку "2 Александр" и читай сишный код. Это сообщение там имеет дату 17.11.2003 12:41:24 Желаю Удачи.

Как разорвать соединение с интернетом? Найти похожие ветки