CPort: Comport auslesen DOS-> Delphi

[Wal]

Du kannst das hier noch testen:

Delphi-Quellcode:

procedure TfrmMain.Timer1Timer(Sender: TObject);
var
  A: String;
begin
  if ComPort.InputCount > 0 then
  begin
    ComPort.ReadStr(A, ComPort.InputCount);
    memo1.Text := memo1.Text + 'Daten: ' + A + #13#10;
  end;
end;

Über einen 1Sekunden Timer abfragen, ob Daten vorhanden sind. Evtl. ist OnRxChar irgendwie nicht richtig konfiguriert bei dir.
Den Code oben habe ich mit einer GPS-Mouse getestet, die sendet aber immer Daten.