Вниз
Скачать: CL | DM;

проблемы с RAS   Найти похожие ветки 

 
Alexey   (2004-06-13 21:41) [0]

В своей проге для определения соединения с Инетом использую следующую процедуру
function status:boolean;
var TpRasCon:array[0..255] of tRasConna;
  lg:Longint;
  lpcon: Longint;
  RetVal ,i: Longint;
  Tstatus : tRasConnStatusA;
begin   lpcon:= 0;
FillChar(tprascon, SizeOf(Trasconna), 0);  
TpRasCon[0].dwSize := sizeof(tRasConnA);
lg:= 255 * TpRasCon[0].dwSize;
RetVal:= RasEnumConnections(@TpRasCon[0], lg, lpcon);
Tstatus.dwSize:= sizeof(tRasConnStatusA);
RetVal:= RasGetConnectStatus(TpRasCon[0].hRasConn, Tstatus);
if lpcon>0 then ;
If Tstatus.RasConnState = $2000 Then begin
result:= True;  end
Else  result:= false;
end;

и если была хотя бы попытка выйти в Инет(набор номера) или в Инет я всетаки вышел, то когда я хочу перезагрузить или выключить комп ничего не просходит (не перегружается)(моя прога постоянно сидит в трее), если же я свою прогу закрываю то все в порядке.
Уважаемые мастера подскажите.


 
Alexey   (2004-06-15 19:26) [1]

Подскажите кто-нибудь в каком направлении искать ошибку. Пожалуста :)


 
BlackBaracuda ©   (2004-06-26 19:40) [2]

Как часто ты вызываешь эту функцию?


 
Rouse_ ©   (2004-06-26 19:43) [3]

Ошибка не здесь...



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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.033 c
14-1091636339
Fay
2004-08-04 20:18
2004.08.29
Полный RULEZZ!


8-1086717077
Дана
2004-06-08 21:51
2004.08.29
Градиентная заливка формы


14-1092062993
default
2004-08-09 18:49
2004.08.29
"Магия" девятки


9-1084373855
S.W.I.N.E.
2004-05-12 18:57
2004.08.29
Крысы и DelphiX


1-1092286606
Кириешки
2004-08-12 08:56
2004.08.29
Как остановить процедуру




   Наверх