Com Port auslesen

[dominikkv]

1) Bibliothek runterladen
2) In sources.zip sind die benötigten Units. Diese entweder in den Ordner von deinem Projekt entpacken oder in einen beliebigen Ordner, dann aber als Such-Pfad von Delphi diesen Ordner angeben.
3) In die Uses kommt CPort, CPortCtl
4) Variable deklarieren, am besten als Feld einer Klasse:

Delphi-Quellcode:

private
  ComPort: TComPort;

5) Ereignis festlegen

Delphi-Quellcode:

private
  ComPort: TComPort;
  procedure ComPortRxChar(Sender: TObject; Count: Integer);

{...}

procedure TKlasse.ComPortRxChar(Sender: TObject; Count: Integer);
var
  MyStr: String;
begin
  ComPort.ReadStr(MyStr, Count);
  showmessage(MyStr);
end;

6) Instanz erzeugen, zB im Constructor der Klasse / onFormCreate

Delphi-Quellcode:

  ComPort := TComPort.Create(self);
  ComPort.OnRxChar := ComPortRxChar;
  ComPort.Port := 'COM1'; // Im Gerätemanager nachgugn!
  ComPort.BaudRate := br115200;
  ComPort.StopBits := sbOneStopBit;

  ComPort.Open;

7) Befehl senden
ComPort.WriteStr('s5'); 8) Freuen
9) Freigeben nicht vergessen

Es kann sein das das Ereignis ComPortRxChar mehrmals aufgerufen wird und nur jeweils die hälfte der Informationen enthält...
Außerdem sind in dem runtergeladenen ZIP auch Beispiele dabei.