Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.10.28;
Скачать: CL | DM;

Вниз

Как определить хендл открытого удаленного подключения к ине...   Найти похожие ветки 

 
Alek_1   (2007-02-09 15:18) [0]

Как определить хендл открытого удаленного подключения к инетернету....подключение через обычный модем....

и потом как его и закрыть....???

либо может кто знает как закрыть уже открытый ком порт


 
Dmitrij_K   (2007-02-09 19:24) [1]


> подключение через обычный модем

RasDial


 
Alek_1   (2007-02-12 14:01) [2]

Вроде немного начинаю разбираться...
теперь еще вопросик :)
а как отследить что соединение нарушено...например кто-то кабель вытянул... из модема...винда сразу на экран ошибку выдает в программка моя все время пишет что соединение установлено :(

Пытаюсь вот так получить статус соединения...но все время выдает статус ошибки 0...

var
status: TRasConnStatus;
begin
status.dwSize:=SizeOf(TRasConnStatus);
RasGetConnectStatus(hRas,status);


или может подругому нада как-ТО?


 
dimod   (2007-02-28 18:44) [3]

Писал раньше счетчик инета

uses
  uRas; { описания RAS }

var
   BufSize      : Integer;
   NumEntries   : Integer;
   X            : Integer;
   Entries      : Array[1..MaxEntries] of TRasConn;
   Result_      : Integer;
   Stat         : TRasConnStatus;
begin
  // получить активные соединения
  Entries[1].dwSize := SizeOf(TRasConn);
  Bufsize:=SizeOf(TRasConn)*MaxEntries;
  Result_:=RasEnumConnections(@Entries[1], BufSize, NumEntries);
  if Result_=0 then begin
     if (NumEntries > 0)
       then begin // получить доп. информацию о соединении
         FillChar(Stat, Sizeof(TRasConnStatus), 0);
         Stat.dwSize:=Sizeof(TRasConnStatus);
         RasGetConnectStatus(Entries[1].HRasConn, Stat);
         // Entries[1].HRasConn нужный хендл
         // Stat.RasConnState
         // Stat.dwError
       end;
     // закрываем все активные соединения, если нужно
     if (NumEntries > 0) then
        for X:=1 to NumEntries do RasHangUp(Entries[X].HRasConn);
  end;
end;



Страницы: 1 вся ветка

Текущий архив: 2007.10.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
1-1186740341
Dash Rendar
2007-08-10 14:05
2007.10.28
Работа с PageControl


3-1182192180
Lavrenty
2007-06-18 22:43
2007.10.28
Не работает сообщение (из триггера)


3-1180612782
Loginov Dmitry
2007-05-31 15:59
2007.10.28
Почему данные могут не сохраняться?


2-1191493300
F@T@L_Err0r
2007-10-04 14:21
2007.10.28
изменение разрешения


11-1175206803
nester
2007-03-30 02:20
2007.10.28
БагРепорт: RegKeyGetValueNames съедает последнюю букву