| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как разорвать соединение с интернетом? [D6, WinXP]
Net_Prosto © (2003-12-05 19:42:00)
Сообственно сабж ;) Только что бы 100% работла под ХР.
Заранее огромнейшее спасибо!
п.с. весь инет облазил, все FAQ, ничего нету :(
Александр из Минска (2004-01-07 14:32:00) [1]
ТАм все написано. Нажми Правка\найти на этой странице... Там ищи строку "2 Александр" и читай сишный код. Это сообщение там имеет дату 17.11.2003 12:41:24 Желаю Удачи.
rolex (2004-01-03 16:35:00) [2]
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;
Net_Prosto (2004-01-01 13:33:00) [3]
Уважаемый Александр из Минска, я проследовал по вашей ссылки но ничего там не нашёл :(.
Александр из Минска (2003-12-10 15:53:00) [4]
Во так всегда!!! А ссылку форума я начто давал??? Иди сюда и читай все http://www.delphikingdom.ru/asp/articles_forum.asp?ArticleID=356
Net_Prosto (2003-12-09 09:37:00) [5]
Вот что получается, в статье описанно как разорвать соединение созданное моей программой, а если оно создано Windows?
Net_Prosto (2003-12-08 19:35:00) [6]
это опять я, с плохими новостями :(
попробовал я пример http://www.delphikingdom.ru/helloworld/rasapi.htm
и ничего не работает :(. Может это из-за того что ХР?
что посоветуете?
Net_Prosto (2003-12-08 18:38:00) [7]
Товарищи, огромное всем спасибо!
Александр из Минска (2003-12-08 16:16:00) [8]
to Rouse_
Там про это и написано!
Rouse_ (2003-12-07 23:01:00) [9]
Хм, ссылки не смотрел, но разве RasHangUp не помогает?...
Александр из Минска (2003-12-06 14:25:00) [10]
Я таким уже маялся. Очень долго искал, но нашел.
Почитай эту статью, http://www.delphikingdom.ru/helloworld/rasapi.htm
а потом посмотри этот форум!!! http://www.delphikingdom.ru/asp/articles_forum.asp?ArticleID=356
mix.4ever (2003-12-06 12:17:00) [11]
А лучше посмотри функции библиотеки WinInet. Там есть че-то типа InetClose.
All (2003-12-06 01:08:00) [12]
Если Вы хотите разорвать соединение TCP то Вам необходимо послать пакет TCP с установленным флагом rst, тем самым уведомив хост о том что вы разрываете соединение.
Сформировать пакет можно юзая RAWSOCKET.
Поищите в инете.
| |
