Не срабатывает waitforsingleobject

[peeper]

Главный поток:

function TFreHolder.GetVersion: TFreHolderVersion;
Var
 Data   : TBArray;
 StrLen : Integer;
begin
 SetLength(Data, 0);

 FFrePro.SendCommand(PROTO_COMVERSION, Data);

 ResetEvent(FAsyncMutex);

 if (WaitForSingleObject(FAsyncMutex, PROTO_COMMANDTIMEOUT) = WAIT_TIMEOUT) Then
  Begin
   ShowMessage('Timeout');
   ResetEvent(FAsyncMutex);
   Exit;
  End;

 Result.DType    := BytesToWord(FActivePackage.User.Parameters, 0);
 Result.DVersion := BytesToWord(FActivePackage.User.Parameters, 2);
 StrLen          := BytesToByte(FActivePackage.User.Parameters, 4);

 if StrLen < 32
   then Result.DDesc    := BytesToString(FActivePackage.User.Parameters, 5)
   else Result.DDesc    := BytesToString(FActivePackage.User.Parameters, 4);
end;

В потоке, который следит за COM-портом:

...
Begin
     FActivePackage := Package;
     SetEvent(FAsyncMutex)
End;
...

Все время выбивает таймаут, хотя setevent вызывается.

Создавался так:

FAsyncMutex  := CreateEvent(Nil, True, False, 'FRE_EVENT');

[Пепел Феникса]

function TFreHolder.GetVersion: TFreHolderVersion;
Var
 Data   : TBArray;
 StrLen,start : Integer;
begin
 SetLength(Data, 0);

 FFrePro.SendCommand(PROTO_COMVERSION, Data);

 ResetEvent(FAsyncMutex);
 start:=GetTickCount;

 while(start+PROTO_COMMANDTIMEOUT>GetTickCount) do
  begin
   if (WaitForSingleObject(FAsyncMutex, 0); = WAIT_OBJECT_0)   Then
    Begin
     Result.DType    := BytesToWord(FActivePackage.User.Parameters, 0);
     Result.DVersion := BytesToWord(FActivePackage.User.Parameters, 2);
     StrLen          := BytesToByte(FActivePackage.User.Parameters, 4);

     if StrLen < 32
      then Result.DDesc    := BytesToString(FActivePackage.User.Parameters, 5)
      else Result.DDesc    := BytesToString(FActivePackage.User.Parameters, 4);
     exit;
    End;
  Application.ProcessMessages;
 end;
 ShowMessage('Timeout');
 ResetEvent(FAsyncMutex);
end;

как то так попробуй.

[peeper]

Большое спасибо, так действительно работает.