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.