Проблеммы при чтении из COM порта

[Demien]

Читаю из порта:

Size:=30;
  ReadFile(hPort, Buffer, Size, NumberOfBytesReaded, nil);

Все прекрасно, пока передаются пакеты по 30 символов!
Часто в порту "шум возникает" и выскакивают, скажем 31 символ.
При последующем чтении из порта строки смещаются:

GB,001832,001890,001550,001827
0GB,001832,001890,001550,00182
70GB,001832,001890,001550,0018
270GB,001832,001890,001550,001
8270GB,001832,001890,001550,00
18270GB,001832,001890,001550,0
018270GB,001832,001890,001550,
0018270GB,001832,001890,001550

Как почитить буфер порта после извлечения 30-ти байт?

PurgeComm(hPort, PURGE_TXABORT or PURGE_RXABORT or PURGE_TXCLEAR or PURGE_RXCLEAR) //мне не помогло;

Слыхал что можно "вычитать" остаток строки. Как это реализовать не зная точной длинны пакета?

[xoodoo]

Часто в порту "шум возникает"

Судя по фрагменту лога никакой это не "шум".
И возникает он судя по тому же логу не "часто", а со стабильной и вполне закономерной периодичностью.
Отсюда напрашивается вывод что размер прикладного инф.пакета не 30, а 31 байт.

[Demien]

На данном примере я искуственно смоделировал шум!
В реальности происходит чего-то вроде:

GB,001832,001890,001550,001827
GB,001832,001890,001550,001827
GB,001832,001890,001550,001827
GB,001832,001890,001550,00y827
GB,001832,001890,001550,003827
=GB,001832,001890,001550,00382
7GB,001832,001890,001550,00382
7GB,001832,001890,001550,00382

Моделировать приходиться через COM Port Data Emulator, так как нет сейчас возможности подключиться к устройству. (потому и "чего-то вроде")

[raxp]

var Resive :array [0..255] of char;
    comstat: TComStat;
    mask, signal, temp, btr: dword;
    //
    str: string;
    i: Integer;
begin 
 ovr.hEvent:= CreateEvent(nil, true, true, nil);

 while true do begin
  WaitCommEvent(h, mask, @ovr);
  signal:= WaitForSingleObject(ovr.hEvent, INFINITE);

  if (signal = WAIT_OBJECT_0) then
   if (GetOverlappedResult(h, ovr, temp, true)) then begin



   if ((mask and EV_RXCHAR)<>0) then begin
      ClearCommError(h, temp, @comstat);
      btr:= comstat.cbInQue;
      str:= '';

      ReadFile(h, Resive, btr, temp, @ovr);
      for i:= 0 to temp-1 do
       str:= str + Resive[i];
      // визуализируем принятый пакет
      memo1.lines.add(str)
    end;
...