Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];




Вниз

Рвём коннект 


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]

О, работает! Спасибо...




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.015 c
4-90702           Строр                 2001-12-28 12:44  2002.02.28  
Как отследить нажатие клавиш когда прога сидит в трее?


3-90482           Pavel_s               2002-02-02 16:55  2002.02.28  
Проблема с Update


1-90573           chelobaka             2002-02-11 17:04  2002.02.28  
Делал проект под win2000, перенес на 98 - не работает. Помогите советом, плс.


3-90443           Blunder               2002-01-31 22:50  2002.02.28  
Как получить имена всех индексов в IB 5.x ?


14-90636          Diana                 2002-01-10 10:58  2002.02.28  
ТЗ