Форум: "Сети";
Текущий архив: 2006.03.12;
Скачать: [xml.tar.bz2];

Вниз

RasConnectionNotification, определение дисконнекта   Найти похожие ветки 

← →
Dmitry_177   (2005-11-25 14:48) [0]

Как мне определить дисконнект в моей звонилке использующую RASAPI? Что-то сотворил такое... если что неправильно подскажите пожалуйста:

var
hActive: THandle;

procedure Disconnect;
begin
WaitForSingleObject(hActive, INFINITE);
.......мои действия при дисконнекте
end;

procedure RasCallBack(Msg: Integer; State: TRasConnState; Error: Integer); stdcall;
var
SecAtt1, SecAtt2: TSecurityAttributes;
begin
 case State of
   RASCS_Connected:
     begin
     SecAtt1.nLength := SizeOf(TSecurityAttributes);
     SecAtt1.lpSecurityDescriptor := nil;
     SecAtt1.bInheritHandle := false;

     SecAtt2.nLength := SizeOf(TSecurityAttributes);
     SecAtt2.lpSecurityDescriptor := nil;
     SecAtt2.bInheritHandle := false;
     
     hActive := CreateEvent(@SecAtt1, true, false, "Disconnect");
     RasConnectionNotification(hRas, hActive, RASCN_Disconnection);

     CreateThread(SecAtt2, 0, @Disconnect, nil, 0, nil);
     end;
 end;
...
end;

и правильно ли я делаю создав две переменные SecAtt1, SecAtt2 типа TSecurityAttributes? чтобы одну вставить в CreateEvent а друнгую в CreateThread? или надо там "nil" писать, или надо одну переменную типа TSecurityAttributes и там м там написать?

---

← →
Дмитрий_05   (2005-11-25 19:47) [1]

у меня почему-то ошибка на CreateThread(nil, 0, @Disconnect, nil, 0, nil); выскакивает...((( [Error] Unit1.pas(293): Types of actual and formal var parameters must be identical что я делаю не так?

---

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

Форум: "Сети";
Текущий архив: 2006.03.12;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.012 c