Как програмно отключить текущее соединение с интернетом??

← →
WebSQLNeeder © (2006-01-15 18:53) [0]

Как програмно отключить текущее соединение с интернетом?? Или даже если соединений несколько то отключить определенное?

← →
NTFS (2006-01-18 00:40) [1]

Хмм

← →
DSKalugin © (2006-01-18 13:00) [2]

http://www.delphimaster.ru/articles/netmon/index.html

← →
NTFS (2006-01-18 19:37) [3]

Что то там про отключение соединения с интернетом ничего не сказано. Там много сетевіх функций, но про соединение ...

← →
PAVIA © (2006-01-18 19:57) [4]

uses RAS; -модуль скачаешь из интернета.

RasEnumConnections - получаем список сойдинений
RasGetConnectStatus - определяем статус подключен или не подключон
RasHangUp - отключаем сойдинение

← →
WebSQLNeeder © (2006-01-19 01:25) [5]

Не могу найти откуда можно скачать юнит RAS ??

← →
WebSQLNeeder © (2006-01-19 01:40) [6]

Все, уже нашел этот модуль, но теперь не могу понять как сделать что бы оно работало. Вот сделал такой код но ничего не происходит

procedure TForm1.Button1Click(Sender: TObject);
var rr:LPRASConn;
m:TRASConnStatusA;
a,b:integer;
hc:integer;
begin
RasEnumConnections(rr,a,hc);
RasGetConnectStatus(hc,m);
RasHangUp(hc);
end;

Может кто то привести реальный пример как отключить соединение?

← →
$hade (2006-01-19 06:23) [7]

function TRASDialer.HangUpAll : Integer; var BufSize : Integer; NumEntries : Integer; X : Integer; Entries : Array[1..MaxEntries] of TRasConn; Stat : TRasConnStatus; S : String; begin Result:=SUCCESS; Entries[1].dwSize := SizeOf(TRasConn); Bufsize:=SizeOf(TRasConn)*MaxEntries; FillChar(Stat, Sizeof(TRasConnStatus), 0); Stat.dwSize:=Sizeof(TRasConnStatus); if RasEnumConnections(@Entries[1], BufSize, NumEntries)=0 then begin if NumEntries > 0 then for X:=1 to NumEntries do begin RasGetConnectStatus(Entries[X].HRasConn, Stat); if stat = RASCS_CONNECTED then RasHangUp(Entries[X].HRasConn) end; end else Result:=ERROR; end;

этот код отключает все соединения...немного подумав можно реализовать и отключение определенного соединения...)

Что то у меня ничего не получается :( Может у меня модуль Ras.pas другой? У меня он весит всего 14к.

Можете мне прислать на мыло websqlneeder@mail.ru этот модуль + пример программы, который использует его для отключения всех соединений.

Буду очень признателен.

← →
Evereve (2006-05-03 18:42) [10]

прикол в том, что к компу инет подходит по локалке. Может, просто заблокировать порт №80?

Как програмно отключить текущее соединение с интернетом?? Найти похожие ветки