Event ы, Thread ы или remote api. где ошибка? [D5, Win2k]
jack128 © (2003-02-07 23:24:00)
Заманался уже вроде все правильно но неработает
может ошибка в работе с Event" ами
Такое ощущение что ивент ri.heRapiInit не сигналит
хотя функция работает нармально(соединение устанавливается)
Небольшое пояснение :
СeRapiInitEx - асихронная функция об её выполнении сигналит
ивент ri.heRapiInit;результат функции Ri.hrRapiInit;
FUserEvent : Tevent чтобы юзер мог прекратить ожидание..
procedure TInitRapiThread.Execute;
var ri : TRapiInit;
handles : array[0..1] of THandle;
begin
FreeOnTerminate := True;
Ri.cbSize := SizeOf(Ri);
case CeRapiInitEx(@Ri) of
E_FAIL : begin ReturnValue := Integer(False); Exit;
end;//Функция провалилась - выход
CERAPI_E_ALREADYINITIALIZED : begin ReturnValue :=
Integer(True); Exit; end// RAPI уже инициализирована - выход
else begin // иначе успех
Handles[0] := Ri.heRapiInit; Handles[1] :=
FUserEvent.Handle;// заполняем нассив Handles и ждем
if WaitForMultipleObjects(2,@Handles[0],False,Ftimeout) =
WAIT_OBJECT_0 then begin // функция отработала определяем результат
и выходим
ReturnValue := Integer(Ri.hrRapiInit <> E_FAIL);
if not boolean(ReturnValue) then CeRapiUninit();
end else begin
// ожидание прервал юзер или истек таймаут
ReturnValue := Integer(False);
CeRapiUninit();
end;
end;
end;
end;
jack128 (2003-02-09 22:54:00) [1]
up
Наверх 
ЧАТ |
Орешник |
|
