ComPort - jak poprawnie odbierać dane przy użyciu zdarzenia EvRx80Full?

Cytat:

const
MyMESSAGE = WM_USER + 100;


type
TMyMESSAGE = record
Msg: Cardinal;
Message: PChar;
Length: Longint;
Result: Longint;
end;


// tą sekcję umiść w miejscu gdzie masz definicje zmiennych i procedur TForm1
// typu public i private - czyli dodajemy jeszcze sekcję protected
protected
procedure HandleMyMessage(var Msg: TMyMESSAGE); message MyMESSAGE;



var
FrameLength: Integer = tu podajesz dlugosc swojej ramki w bajtach
FMessage: String = '';
Znacznik: Boolean = False;



procedure TForm1.HandleMyMessage(var Msg: TMyMESSAGE);
var
AMsg: String;
begin
AMsg := Msg.Message;
StrDispose(Msg.Message);
AMsg := trim(AMsg);

// ..... Tu masz w AMsg swoją całą kompletną ramkę, która zaczyna się od #
// a kończy się sumą kontrolną i ma długość ustaloną w zmiennej FrameLength
// - możesz więc dalej już robić sobie z nią w tym miejscu co ci się
// żywnie podoba

end;



procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
c: char;
i: Integer;
buffer: String;
PStr: PChar;
begin
SetLength(buffer, Count);
ComPort.ReadStr(buffer, Count);

for i := 1 to length(buffer) do begin
c := buffer[i];

// zawsze gdy pojawi się znak # zacznie się odliczanie i "składania" znaków ramki
if (c = '#') and (not Znacznik) then Znacznik := True else Znacznik := False;

if Znacznik then begin
FMessage := FMessage + c;
if Length(FMessage) = FrameLength then begin
PStr := StrNew(PChar(FMessage));
PostMessage(Handle, MyMESSAGE, Integer(PStr), 0);

end else begin
FMessage := '';
Znacznik := False;
end;
end;
end;