Cport und Delphi 10.3

[js747a]

Hallo, ich programiere ein Programm zur Steuerung von Modelleisenbahnen.
Bisher habe ich seit jahren mit Delphi 7 programiert.

In meinem Programm Steuere ich eine Intellybox uber die COM Schnittstelle (Serial Port) mit CPort.

Bisher har alles funktioniert.
Jetzt programiere ich mit Delphi 10.3 und schon gibt es Fehler.
Am Anfang bekomme ich die Selben Antworten von der IntellyBox über die COM Schnittstelle. Aber schon nach einigen Sekunden sind die Daten anders als
in meinem Programm programiert mit Delphi 7

Senden mache ich mit : InterfacePort.WriteStr

InterfacePort.WriteStr('x' + Chr(202)); Wobei Chr(202) ein Befehl darstellt.

Die Antwort lese ist aus mit :InterfacePort.ReadStr

ProtokolIBForm.RxStr(Count: Integer);
var Str: String;
i : Integer;
begin
InterfacePort.ReadStr(Str, Count);
If Length(Str) > 0 then
begin
RxChars := Str;
RxCount := Count;
RxChar := pchar(RxChars);
End;


RxChars und RxChar sind

RxChars : String;
RxChar : pChar;

Ich habe schon mit
RxChars : AnsiString;
RxChar : pAnsiChar;

versucht aber das Ergebnis ist dasselbe

[Sherlock]

AnsiString und AnsiChar sollten schon der richtige Ansatz sein. Wie genau sehen denn die Daten aus? Daraus lässt sich unter Umständen ableiten, was Falsch läuft.

Sherlock

[Rollo62]

Zitat:

Zitat von js747a (Beitrag 1466719)

Hallo, ich programiere ein Programm zur Steuerung von Modelleisenbahnen.

Meinst Du solche Eisenbahn-Teile ?
https://www.miniatur-wunderland.de/ :stupid:

[js747a]

Die Daten die ich sende bestehen immer aus 'x' + Chr(160). Wobei die 160 ein Befehl ist.
Die Intellybox antwortet dan jeweils mit einer Antwort.
bestehende aus 1 oder mehr Bytes.
Die Bytes kann ich dann entschlusseln indem ich nachsehe welches Bit gesetzt (1) ist.

Beispiel
//Antworten auswerten
//********************Byte 1*********
If (byte1 AND 1) = 1 then XEvtLok; // 0C9h (201)
//IR Daten
If (byte1 AND 2) = 2 then ProtokolIBMemo.Lines.Add('Lok Daten ' +IntToStr(byte1));
//IREvent;
// S88 Daten
If (byte1 AND 4) = 4 then XEvtSen; // &HCB (203)
// IBPwr Changed
If (byte1 AND 8) = 8 then XStatus;
// changing the status
If (byte1 AND 16) = 16 then ProtokolIBMemo.Lines.Add('there has been at least one non-PC attempt
at changing the status of a reserved Turnout');
//Weichen auswerten
If (byte1 AND 32) = 32 then XEvtTrn; // 0CAh (202)
If (byte1 AND 64) = 64 then XStatus; //Bit 6: LSY 1: da war ein Lissy Event

Ich bekomme aber nicht dieselben Antworten zurück mit Delphi 10.3 als mit Delphi 7

[js747a]

Zitat:

Zitat von Rollo62 (Beitrag 1466726)

Zitat:

Zitat von js747a (Beitrag 1466719)

Hallo, ich programiere ein Programm zur Steuerung von Modelleisenbahnen.

Meinst Du solche Eisenbahn-Teile ?
https://www.miniatur-wunderland.de/ :stupid:

Ich habe meine Eigene Modellbahn. Und steuere auch die Modellbahn in underen Modellbahnverein.
http://www.eisenbahnfreunde-warburg-volkmarsen.de/
http://www.johnny-modellbau.de/modelbahn.html

[himitsu]

Am Besten aufpassen, dass du nicht mit "Strings" arbeitest (zumindestens niemals Binärdaten mit UnicodeStrings mischen),
sondern mögichst nur Binär mit Byte-Arrays rumhantieren, oder maximal mit AnsiString RawByteString.

Ansonsten mußt du aufpassen wo die Daten des Comports in Strings landen und womöglich durch eine ANSI-Unicode-Convertierung sich diese Daten verändern.

Ich hatte am Wochenende mit dem Comport im Delphi 10.4 gespielt,
aber bei mir ist es einfach, denn die Hauptdaten sind immer 8 Byte groß sind und besitzen ein festes Format, womit sie sich ideal in einen Record kopieren lassen,
und da sie eine Prüfsumme enthalten, fallen Fehler auch sofort auf.