Event ы, Thread ы или remote api. где ошибка?

← →
jack128 © (2003-02-07 23:24) [0]

Заманался уже вроде все правильно но неработает

может ошибка в работе с 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;

Event ы, Thread ы или remote api. где ошибка? Найти похожие ветки