Tcomport on RXChar Problem

[himitsu]

macht TComPort auch nicht ... es liefert garkeine Zeichen. (es sagt, gerade war was reingekommen und x Zeichen sind aktuell im Puffer)

OnRxChar liefert quasi 1 bis x Zeichen, je nach dem, wieviel bereits im Buffer gelandet ist und noch nicht abgeholt wurde, z.B. mit ReadStr.

[BergLoewe]

Hallo,


vielen Dank erst mal, dass Ihr Euch meiner Probleme annehmt! Ich hatte am Wochenende leider keine Zeit, da meine Enkelin ihren großen Tag hatte und meine Angetraute etliches am Haus gemacht haben wollte. Daher erst jetzt ein Response.

Ich habe es jetzt zunächst mal so gemacht, dass ich den Timer beim Senden starte. Das ist nicht ideal, weil damit die Reaktionszeit der Gegenseite mit berücksichtigt werden müßte und die kann sehr unterschiedlich sein. Aber jetzt zum reinen Testen erst nmal so.
Im Prinzip geht das so. Leider aber nicht immer. Stochastisch zeigt der mir mitunter falsche Daten und vor allem falsch Byte-Anzahlen an. Und irgendwann hängt sich die App dann ganz auf.

Ich versuch's jetzt doch erst mal mit einer anderen Komponente. Aber ich nehm die ASync von TMS. MIt der habe ich vor 10 oder 12 Jahren schon mal sowas gemacht, damals unter Delphi2005. Die Winsoft wollte ich, weil die auch unter FMX läuft, die TMS wohl nicht. Die Anwendung soll später mal auch auf anderen Platformen laufen. Dann auch per WLAN oder Bluetooth. Deshalb habe ich das -was mir völliges Neuland ist- unter FireMonkey angefangen und wollte eben zunächst einmal das ganze via USB/RS232 aufbauen.

[himitsu]

Wenn garnichts geht, dann kannst du es auch selbst machen ... am Besten in einem Thread, falls zwischen zwei Empfängen zu viel Zeit vergeht und der Haupthtread dann immer wieder etwas hängt.


CreateFile+ReadFile, wobei man ReadFile+Overlapped auch im Hauptthread asynchron nutzen könnte (ohne hängen)
oder TFileStream, bzw. THandleStream+CreateFile und Stream.Read***
oder Assign+Read (das alte Pascalzeugs)
oder ...

und als Dateiname z.B. 'COM1' bis 'COM9'
so lange im Windows als Standard bereits die richtige Config (Baud, StopBits, Parität usw.) eingestellt ist, mußt du im Programm nichts weiter machen.
wenn doch nicht, dann SetCommState nach dem CreateFile -> https://docs.microsoft.com/de-de/win...tions-resource


also im Thread die "Datei" (Gerät) öffnen
ein oder mehere Byte auslesen (read) ... es wird ohne Overlapped bestimmt gewartet, bis diese x Bytes da und gelesen sind (darum im Thread)
eventuell die Bytes in einer Variable (TBytes bzw. TArray<Byte>) zwischenspeichern
und dann via Synchronize oder Queue in den Haupthtead damit (oder wenn möglich auch direkt im Thread verarbeiten und das Ergebnis in den Hauptthread)

[BergLoewe]

Moin,

nachdem ich nun fluchend Tage damit verlebte, andere Komponenten zu installieren und festzustellen, dass die in FMX nicht laufen, kam ich zur ursprünglichen Winsoft-Komponente zurück.

Naja, was soll ich sagen - vielleicht bin ich zu blöd, zu alt, zu blind(leider nicht zu besoffen, dann hätt ich was davon) aber jetzt läßt sich der Timer plötzlich aus der OnRxChar-Funktion heraus starten. Was er letzte Woche ums Verrecken nicht machen wollte.

Also vielen Dank dennoch, für Eure Hilfe und Eurer Verständnis.

[Rollo62]

Zitat von BergLoewe:

... empfangenen Byte auf. Nur, wenn ich nach jedem Byte selbiges einsammeln und in ein TByte-Array oder ähnliches schreiben will, tritt zwangsläufig der Fall auf, dass während des Ausführens dieser Routine der Empfang ja weiterläuft und sich die empfangenen Daten ändern. Das führt zu Fehlern.

TL;DR;
Ist vielleicht schon beantwortet.

Im Prinzip ist das richtig so wie Du oben schreibst:
1a.) Schnell sammeln
1b.) LOCK
1c.) Daten in einen Speicher schreiben, möglichst kurz
1d.) UNLOCK
1e.) Und schnell wieder raus

2a.) Später in Ruhe, Analyse
2b.) TRY-LOCK
2c.) Schnell Arbeitskopie holen, möglichst kurz
2d.) UNLOCK
2e.) Check in Ruhe an der Aerbeitskopie ob ein Datensatz fertig ist
2f.) - wenn ja, Auswerten
2g.) - ausgewertetes Kommando ( Ende-Position merken )
2h.) LOCK
2i.) Aktuelles Kommando im Arbeitsspeicher schnell löschen, bis zur Ende-Position
2h.) UNLOCK

So oder so ähnlich, möglicherweise auch mit Umschaltung von zwei Speicherbereichen.
Ich nutze dafür einen RingBuffer mit gelocktem Read und Write.

Dabei sollten man die Umschaltstellen besonders beachten und sauber kapseln, vielleicht liegt das Problem irgendwo da.
Gerade die sichere Übergabe der Daten ist kritisch.

[BergLoewe]

Also nachdem der Timer -warum auch immer erst so spät- einsieht, dass er sich in der Empfangsroutine starten lassen soll, geht's eigentlich.
Wobei:
Erstens wird das Event OnRxChar nicht mehrfach aufgerufen, sondern immer nur einmal. Ich hatte da einen Zähler laufen, der zeigt nur "1" an.
Zweitens -ich sende/empfange ja ausschließlich Bytes, also keine Chars oder Strings oder Ascii oder so- Auslesen des COMPORT-Buffers funktioniert nur mit ReadBytes. Aber das geht dann. Ich mach das final im Timer-Event.
Eines ist aber doch ganz komisch:
Die Gegenseite ist zunächst eine Sensor-/Kommunikationsbaugruppe mit einem Mikrocontroler, der via USB über einen CP210 und dessen RS232 angesprochen wird. Da hab ich noch Zugriff auf die Software, kann also das Prtokoll bestimmen. Die Baugruppe soll sich zunächst melden, sagen, wie sie heißt und auf weitere Anfrage ihre Software-Versionen bekannt geben. Nun hatte ich offensichtlich Übertragungsfehler, so dass das Delphi-Programm sehr oft zu wenig oder was falsches verstand. Im Controler hab ich deshalb eine Verzögerung zwischen den Sende-Bytes eingebaut, seither geht's mit der eigentlich drei Byte längeren Versions-Abfrage super. Sowohl in 9600 Baud, als auch 19200Baud. Die kürzere Sendung mit der Typnummer aber, da sind die Übertragungsfehler nicht wegzukriegen. Der Fehler liegt aber im PC/Delphiprogramm. Auf dem Oszi gibt's da keine Abweichungen. Ich hoffe nur, dass sich das nicht mit anderen Geschichten fortsetzt, da sollen später 64Byte lange Blöcke über einige hundert Kilobyte übertragen werden. Soweit bin ich aber momentan noch nicht.

Aber noch eine ganz andere Frage, die eigentlich nichts mit der COMPORT-Schnittstelle zu tun hat:
Ich sende an die Baugruppe bestimmte Dinge, die bestimmte Antworten erbringen sollen. Die sind dann recht kompliziert auszuwerten und dann geht das ganze wieder von vorn los. Das heißt, im Timer_Event, was dem Empfang folgt, wird eine Auswerte-Routine aufgerufen, die dann wieder den nächsten Schritt sendet. Was aber eben wieder Empfangs- und Timer-Event aufruft. Wenn jetzt der Quittungssempfang nach dem Senden einer Zeile schon fertig ist, bevor die Auswerteroutine und die Timer-Event-Roiutine abgeschlossen wurden, dann wird das Ding doch rekursiv - oder? Erstens, verträgt Delphi überhaupt sowas und zweitens gibt's da im Delphi so'ne Tricks, wie man eine Art Hauptschleife simuliert?

[BergLoewe]

Also diese Übertragungsfehler sind definitiv eine Zeitfrage. Wenn der Controller schneller als binnen 3ms antwortet, verschluckt der Delphi-PC gerne mal die Hälfte.
Hätt ich nicht gedacht.