[Bargest]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

OverlapRead.hEvent := CreateEvent(nil, true, false, nil);   if OverlapRead.hEvent = 0 then   begin     ShowMessage('Ошибка создания события.');     exit;   end; //и жду данных:   if not WaitCommEvent(hPort, dwMask, @OverlapRead) then     begin       if GetLastError = ERROR_IO_PENDING then         WaitForSingleObject(OverlapRead.hEvent, INFINITE)       else       begin         ShowMessage('Ошибка при ожидании данных.');         exit;       end;     end;

[Bargest]

Актуально.

[NumLock]

if not WaitCommEvent(hPort, dwMask, @OverlapRead) then
if not ReadFile(hCom, Buf, dwRead, dwRead, @OverlapRead) then

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

function ReadCOM(HCOM: THandle; var Buffer; NumberOfBytesToRead: Cardinal): Integer; var   overlapped: TOverlapped;   evtmask: Cardinal;   numberofbytestransferred: Cardinal;   errors: DWORD;   stat: TComStat;   numberofbytesread: DWORD;   inque: Integer; begin   numberofbytesread:=0;   ZeroMemory(@overlapped, SizeOf(TOverlapped));   overlapped.hEvent:=CreateEvent(nil, True, False, nil);   if not WaitCommEvent(HCOM, evtmask, @overlapped) then   begin     if (GetLastError=ERROR_IO_PENDING) and (WaitForSingleObject(overlapped.hEvent, INFINITE)=WAIT_OBJECT_0) then       GetOverlappedResult(HCOM, overlapped, numberofbytestransferred, False);   end;   ClearCommError(HCOM, errors, @stat);   inque:=stat.cbInQue;   if inque>0 then   begin     inque:=Min(inque, NumberOfBytesToRead);     ReadFile(HCOM, Buffer, inque, numberofbytesread, @overlapped);   end;   CloseHandle(overlapped.hEvent);   Result:=numberofbytesread; end;

[Bargest]

Спасибо, буду пробовать.
А насчет разных имён - это я просто переименовал хэндл, а в старых постах осталось