Das CpComPort-Objekt ermöglicht es, direkt mit der seriellen Schnittstelle des Rechners zu kommunizieren. Daten können gesendet und gelesen werden. Das eröffnet z.B. die Möglichkeit, während eines Rennens Daten an einen Arduino zu senden und diesen entsprechende Aktionen ausführen zu lassen.
Das hier verwendete Beispiel findet sich bei allen Befehlen aus diesem Abschnitt, da sie nur gemeinsam wirklich Sinn machen und sich kaum einzeln herauslösen lassen.
Befehl | CpComPort.SendByte(ByteToSend) |
---|---|
Funktion | Sendet ein Byte and die serielle Schnittstelle. Werte von 0 bis 255 |
Typ | Byte |
ab | 3.3.1 build 480 |
Ein Byte besteht aus 8 Bits und kann maximal 256 Integer-Werte annehmen (0-255). Es ist nicht möglich, damit negative Werte abzubilden.
Veranschaulicht die Verwendung und Wirkung der neuen AddOn-Befehle zum Abfragen, Setzen und Löschen vergebener Zusatzpunkte im Serienrennen.
var sComPort: String; Baudrate: Integer; Parity : Integer; StopBits: Integer; ByteSize: Integer; Data : String; BytesToRead : Integer; BytesRead : Integer; ByteToSend : Integer; begin // Parameter der COM-Schnittstelle definieren sComPort := 'COM4'; Baudrate := 19200; Parity := 0; StopBits := 1; ByteSize := 8; // COM-Port öffnen. Wenn geöffnet (1), weitere Befehle ausführen if CpComPort.OpenCOM( sComPort, Baudrate, Parity, StopBits, ByteSize ) = 1 then begin // Sendet Daten an den COM-Port CpComPort.Timeouts (500); // 500 mSek CpComPort.ClearBuffer; // Lösche Empfangsbuffer CpComPort.BufferSize(100); // Empfangsbuffer Größe CpComPort.SendString('"$'); // Sendet ein Byte an den COM-Port ByteToSend := 128; cpComPort.SendByte(ByteToSend); cpShowMessage('Byte gesendet: ' + IntToStr(ByteToSend); // Liest Daten vom COM-Port BytesToRead := 1; CpComPort.ReadBytes( Data, BytesToRead, BytesRead ); // "$ liefert # zurück cpShowMessage( 'BytesRead: ' + IntToStr(BytesRead) + Data ); end else cpShowMessage( sComPort + ' konnte nicht geöffnet werden !' ); end.
Nach dem erfolgreichen Öffnen der Schnittstelle COM4 wird im ersten Schritt die Dauer festgelegt, die dieser Port auf Daten wartet.
Der nächste Befehl löscht den Datenspeicher und setzt anschließend die Größe auf 100 Bytes.
Abschließend wird die Zeichenfolge „$ an den COM-Port gesendet.
Im nächsten Befehlsblock wird die Richtung umgekehrt und Daten von der seriellen Schnittstelle gelesen. Es geht um 1 Byte. Die Variable Data enthält die Daten und BytesRead sollte enthalten, wie viele Bytes gelesen wurden.
Der Kommentar zeigt an, dass ggfs. andere Inhalte zurückkommen, als gesendet worden sind. Im Beispiel kommt ein # zurück, statt es zu erwartenden „$.
Sendet man z.B. eine 0 als Zeichenfolge über die serielle Schnittstelle, ist das Resultat beim Emfpänger eine 48.
Wie sich das Ergebnis aus dem Beispiel ergibt, kann ich nicht erklären. Bei 0
und 1
weiß ich es aus eigener Erfahrung. Hier wird kein Integerwert übertragen, sondern eine Zeichenfolge (Character). Als Basis dient der ASCII-Zeichensatz. Die 48
entspricht dem Zeichen 0
, nicht der Zahl 0.
Soll z.B. ein Arduino ein Steuersignal bekommen und ihr sendet über Cockpit-XP eine 0 an die Schnittstelle, müsst ihr beim horchenden Arduino auf den Wert 48 reagieren.