| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как разорвать текущее соединение с Интернет? [D6, WinME, Win2k, WinXP]

Slava V. ©   (2002-09-23 16:32:00) 

Нужно чтоб моя программа разрывала текущее соединение с Интернет (естественно речь о DialUp соединениях). Может кто знает как это организовать?

---

Slava V.   (2002-09-24 12:57:00) [1]

Через wininet не работает.

Через RAS отлично:


uses rasunit;
...

procedure HangupAllDialUpConnections;//отключает все диалап соединения которые найдет
var
i:CARDINAL;
ConnArray:array[0..10] of TRASConn;
Connections,BufSize:Longint;
begin
for i:=Low(ConnArray) to High(ConnArray) do
ConnArray[i].dwSize:=SizeOf(ConnArray[i]);
BufSize:=Sizeof(ConnArray);
RasEnumConnections(@ConnArray[Low(ConnArray)], BufSize, Connections);
if Connections = 0 then exit;
for i:=Low(ConnArray) to Connections - 1 do
RasHangup(ConnArray[i].hrasConn);
end;

Rasunit можно выцепить тут:
http://delphi.mtu-net.ru/zip/rasapi.zip

---

Song   (2002-09-23 17:31:00) [2]

Модуль wininet.dcu
Описания процедур - смотрите соответственно в wininet.pas
Если есть rasdial.exe можно легче.

---

Наверх