Inhaltsverzeichnis
CpComPort.ReadBytes
Dieser Befehl wurde entfernt und steht nicht länger zur Verfügung. Ersatz ist der Befehl cpComPort.ReadByte
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.
Syntax
^ Befehl | CpComPort.ReadBytes(sData:String, BytesToRead, BytesRead : Integer) |
^ Funktion | Liest die angegebene Anzahl Bytes von der seriellen Schnittstelle |
^ Typ | |
^ ab | 3.0.9 build 375 |
Codebeispiel
Veranschaulicht die Verwendung und Wirkung der neuen AddOn-Befehle zum Abfragen, Setzen und Löschen vergebener Zusatzpunkte im Serienrennen.
<Code:pascal linenums>var
sComPort: String;
Baudrate: Integer;
Parity : Integer;
StopBits: Integer;
ByteSize: Integer;
Data : String;
BytesToRead: Integer;
BytesRead : 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('„$');
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.</Code>
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.
