COM порт, как принять данные?

[gusluk]

Подключаюсь и принимаю данные так:

procedure FNTimeCallBack(uTimerID, uMessage: UINT;dwUser, dw1, dw2: DWORD);stdcall;
begin
ReadFile(CommHandle, BinBuf, 128, NumberWritten, nil);
if(NumberWritten > 0) then p := BinBuf;
end;

procedure TForm1.GPS1Click(Sender: TObject);
begin
PortString := '\\.\COM'+inttostr(ComPort);
CommHandle := CreateFile(PChar(PortString), GENERIC_READ or
			GENERIC_WRITE, 0, nil, OPEN_EXISTING, 0, 0);

if (CommHandle = INVALID_HANDLE_VALUE) then
begin
  MessageDlg('Error. Can`t Open port', mtError, [mbOK], 0);
end
else
begin
  GetCommState(CommHandle, DCB);
  DCB.BaudRate  := CBR_4800; // FORMALLY, CONNECT BAUD DOESN`T MATTER (Virtual Com Port)
  DCB.Parity    := NOPARITY;
  DCB.ByteSize  := 8;
  DCB.StopBits  := OneStopBit;

  CommTimeOuts.ReadIntervalTimeout          := 0;
  CommTimeOuts.ReadTotalTimeoutMultiplier   := 0;
  CommTimeOuts.ReadTotalTimeoutConstant     := 1000;
  CommTimeOuts.WriteTotalTimeoutMultiplier  := 0;
  CommTimeOuts.WriteTotalTimeoutConstant    := 1000;
  SetCommTimeouts(CommHandle, CommTimeOuts);
  SetCommState(CommHandle, DCB);

  uTimerID := timeSetEvent(1000,0,@FNTimeCallBack,100,TIME_PERIODIC);

  CRbyte := 13; // HEX 0x0D
  LFbyte := 10; // HEX 0x0A
  form1.GPS1.Caption:='Подключено'
end;
end;

Все работает нормально, данные приходят корректно. Но в данном случае данные читаются раз в секунду, а приходят они на порт не периодически, т.е. может прийти за секунду несколько команд а может не прийти ни одной. Поэтому иногда бывают сбои.
Есть ли способ читать данные тогда когда они на него пришли, а не через промежуток времени?

[Stilet]

Есть ли способ читать данные тогда когда они на него пришли

Есть, но думается мне что только драйвер позволит такие выкрутасы делать. Впрочем ты всегда можешь попробовать организовать отдельный поток (Thread имеется ввиду) для чтения, и не ставить в нем задержки

[SERG1980]

Используйте компонент СportLib там всё просто. Очень удобно работать.

[gusluk]

Сообщение от Stilet

Есть, но думается мне что только драйвер позволит такие выкрутасы делать. Впрочем ты всегда можешь попробовать организовать отдельный поток (Thread имеется ввиду) для чтения, и не ставить в нем задержки

Тогда сначала попробую интервал поменьше поставить, если не будет виснуть и сбоить то хорошо, если будет, сделаю как посаветовал.
Спасибо!