Форум: "Сети";
Текущий архив: 2004.03.14;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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?

---

← →
Александр из Минска   (2003-12-10 15:53) [9]

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

---

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

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

---

← →
rolex   (2004-01-03 16:35) [11]

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;

---

← →
Александр из Минска   (2004-01-07 14:32) [12]

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

---

Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2004.03.14;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.019 c