RS232 - Problem z Buforem odbioru

Problem polega na tym że chyba mam coś źle skonfigurowane na COMie.
Jak urządzenie zewnętrze dostarcza mi dane po 256bajtów to ja za pierwszym odczytem otrzymuje 33bajty, kolejny odczyt to dane po 33bajcie
Czyli buffor wypełnia się na dwa razy.

Czy posiadacie może sprawdzony sposób na odbiór danych przez RS'a bez gubienia danych w buforze?

Jak sprawdzam w Serial Port Monitor to moje zewnętrzne urządzenie wysyła dane OK i powtarzalnie!
Może znacie sposób jak działają te monitory portów. Czyli kod w Delphi jest niedoskonały!

const 
  // -- wartości flag sterujących portu szeregowego -- 
  dcb_fBinary = $0001; 
  dcb_fParity = $0002; 
  dcb_fOutxCtsFlow = $0004; 
  dcb_fOutxDsrFlow = $0008; 

  // -- fDtrControl -- 
  DTR_CONTROL_ENABLE = $0010; 
  DTR_CONTROL_HANDSHAKE = $0020; 

  dcb_fDsrSensitivity = $0040; 
  dcb_fTXContinueOnXoff = $0080; 
  dcb_fOutX = $0100; 
  dcb_fInX  = $0200; 
  dcb_fErrorChar = $0400; 
  dcb_fNull = $0800; 

  // -- fRtsControl -- 
  RTS_CONTROL_ENABLE = $1000; 
  RTS_CONTROL_HANDSHAKE = $2000; 
  RTS_CONTROL_TOGGLE = $3000; 

  dcb_fAbortOnError = $4000; 

  cbInQueue =  255; 
  cbOutQueue = 255; 
var 
  //hfile_s  : HFILE;  // identyfikator pliku źródłowego 
  Buffer_O : ARRAY[0..cbOutQueue] of Char; // bufor wyjściowy 
  Buffer_I : ARRAY[0..cbInQueue] of Char;  // bufor wejściowy 
  Number_Bytes_Read : DWORD; 
  hCommDev : THANDLE; 
  lpFileName : LPCSTR; 
  fdwEvtMask : DWORD; 
  Stat : TCOMSTAT; 
  Errors : DWORD; 
  dcb    : TDCB; 

  resourcestring 
  s1 = 'Niewłaściwa nazwa portu lub jest aktywny '; 


function TForm2.OpenCOM: Boolean; 
begin 
  Result:=FALSE; 
  hCommDev:= CreateFile(lpFileName, GENERIC_READ or 
                        GENERIC_WRITE, 0, NIL, 
                        OPEN_EXISTING, 0, 0); 

  if (hCommDev <> INVALID_HANDLE_VALUE) then 
    begin 
      SetupComm(hCommDev, cbInQueue, cbOutQueue); 
      dcb.DCBlength := sizeof(dcb); 
      GetCommState(hCommDev, dcb); 
      dcb.BaudRate:=CBR_115200; 
      //-przykładowe ustawienia flag sterujących DCB- 
      //dcb.Flags := dcb.Flags or dcb_fParity; 
      dcb.Parity := NOPARITY; 
      dcb.StopBits := ONESTOPBIT; 
      dcb.ByteSize := 8; 

      SetCommState(hCommDev, dcb); 
      GetCommMask(hCommDev, fdwEvtMask); 
      SetCommMask(hCommDev, EV_TXEMPTY); 
      Result:=TRUE; 
     end 
      else 
         case hCommDev of 
           IE_BADID: MessageDlg(s1 + lpFileName, 
                                mtError, [mbOk], 0); 
         end; 
end; 

//--------------------------------------------------------- 
function TForm2.Write_Comm(hCommDev: THANDLE; lpBuffer: PChar; 
                           nNumberOfBytesToWrite: DWORD): BOOL; 
var 
  NumberOfBytesWritten : DWORD; 

begin 
   WriteFile(hCommDev, Buffer_O, nNumberOfBytesToWrite, 
             NumberOfBytesWritten, NIL); 
   Result := WaitCommEvent(hCommDev, fdwEvtMask, NIL); 
end; 
//--------------------------------------------------------- 
function TForm2.Read_Comm(hCommDev: THANDLE; 
                          Buf_Size: DWORD): BOOL; 
var 
  nNumberOfBytesToRead: DWORD; 
begin 
   Result := FALSE; 
   ClearCommError(hCommDev, Errors, @Stat); 
   if (Stat.cbInQue > 0) then 
     begin 
        if (Stat.cbInQue > Buf_Size) then 
          nNumberOfBytesToRead := Buf_Size 
          else 
             nNumberOfBytesToRead := Stat.cbInQue; 
        Result := ReadFile(hCommDev, Buffer_I, 
                           nNumberOfBytesToRead, 
                           Number_Bytes_Read, NIL); 
     end; 
end; 

//--------------------------------------------------------- 
function TForm2.CloseCOM: Boolean; 
begin 
  Result:=FALSE; 
  if (hCommDev <> INVALID_HANDLE_VALUE) and (hCommDev > 0) then 
    begin 
      CloseHandle(hCommDev); 
      Result:=TRUE; 
    end; 
end; 

//Odbiór danych 
begin 
  repeat 
     Application.ProcessMessages; 
  until Form2.Read_Comm(hCommDev, SizeOf(Buffer_I)) = TRUE; 
end;

powiem tylko ze ja zawsze uzywalem komponentow i nigdy nie mialem takich dziwnych problemow...

Kiedyś kożystałem z TCOMPort czy coś takiego - też był problem dlatego najlepiej panować nad kodem i napisać coś własnego ja myślę że ma to coś wspólnego z zdarzeniem WaitCommEvent po prostu odbiera dane jednej ramki na dwa razu - dziwne.

wiesz co, nie znam sie na takiej obsludze portu ale nie rozumiem jednego:

      GetCommMask(hCommDev, fdwEvtMask); 
      SetCommMask(hCommDev, EV_TXEMPTY);
    {...}
      Result := WaitCommEvent(hCommDev, fdwEvtMask, NIL);

do WaitCommEvent przekazujesz w koncu jaka maske? jaka wartosc siedzi w fdwEvtMask? EV_TXEMPTY? nie wiadomo chyba...

Testowałem i testowałem....

Wynik dał mi taki że jeżeli robię tak:

Write_comm ()
Sleep (20..100); //Oczywiście chodzi mi o przedział czasowy 20..100ms
Read_comm ();

Działa poprawnie odczyt.

Potrzebuję by funkcja Read_comm sama czekała do czasu odebrania całej ramki danych po tym przypisała ją do Buffor'u