Форум: "Сети";
Текущий архив: 2006.09.24;
Скачать: [xml.tar.bz2];
Вниз
Как програмно отключить текущее соединение с интернетом?? Найти похожие ветки
← →
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;
этот код отключает все соединения...немного подумав можно реализовать и отключение определенного соединения...)
← →
WebSQLNeeder © (2006-01-19 17:04) [8]Что то у меня ничего не получается :( Может у меня модуль Ras.pas другой? У меня он весит всего 14к.
Можете мне прислать на мыло websqlneeder@mail.ru этот модуль + пример программы, который использует его для отключения всех соединений.
Буду очень признателен.
← →
WebSQLNeeder © (2006-01-24 14:02) [9]..
← →
Evereve (2006-05-03 18:42) [10]прикол в том, что к компу инет подходит по локалке. Может, просто заблокировать порт №80?
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2006.09.24;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.043 c
