Текущий архив: 2002.02.28;
Скачать: CL | DM;
Вниз
Рвём коннект Найти похожие ветки
← →
Olgerd © (2001-12-27 20:24) [0]Люди, как можно порвать действующее internet-соединение? Я вот создал модемное соединение с именем "Inet", соединился, а теперь мне надо программно отключить его. Подскажите, как это сделать.
← →
Suntechnic © (2001-12-27 20:53) [1]Соединение ты как создавал? Программно или с помощью встроенных утилит Windows?
В любом случае см. ф-ции RasDial, RasHangUp, RasEnumConnections и т.д. и т.п.
← →
Olgerd © (2001-12-28 16:10) [2]Иммено с помощью утилит Windows, причём даже не я, а пользователь
← →
Olgerd © (2001-12-29 01:47) [3]uses RasUnit;
procedure TForm1.Button1Click(Sender: TObject);
var BuffSize: Integer;
Entries: Integer;
Entry : Array[1..MaxEntries] of TRasConn;
X, Result_ : Integer;
AllEntries: TStrings;
begin
Entry[1].dwSize:=SizeOf(TRasConn);
BuffSize:=SizeOf(TRasConn)*MaxEntries;
Result_:=RasEnumConnections(@Entry[1], BuffSize, Entries);
If (Result_=0) and (Entries>0) Then
Begin
AllEntries:= TStringList.Create;
For X:=1 To Entries Do
Begin
AllEntries.Add(Entry[x].szEntryName);
End;
Memo1.Lines.AddStrings(AllEntries);
AllEntries.Free;
End;
end;
Вот так я получаю список установленных соединений, а как мне порвать какое-нибудь, т.е. порвать, то понятно RasHangUp, а как получить его hRasConn?
← →
Suntechnic © (2001-12-29 04:31) [4]Я вообщем-то с трудом представляю что такое
TRasConn, по крайней мере у меня описания этого класса нет. Судя из кода это какая то обёртка для RASCONN. Тогда вот так:
RasHangUp( Entry[x].hrasconn );
← →
Olgerd © (2001-12-29 18:52) [5]О, работает! Спасибо...
Страницы: 1 вся ветка
Текущий архив: 2002.02.28;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.007 c
