Tcomport on RXChar Problem
Moin DPler
Ich habe folgendes Problem, ich bekommen über einen virtuellen Comport Daten zu gesendet mit 115200 Baud. Nun wollte ich mit dem OnRxChar event der Komponente arbeiten. Nur leider feuert die keine Events. Wenn ich aber über einen Timer
Delphi-Quellcode:
die Daten ausles, ist was da.
procedure TForm2.Timer1Timer(Sender: TObject);
var Str: String; begin ComPort1.ReadStr(Str, 10); if str <>'' then memo2.Lines.Add(stringtohex(str)); end; Jemand eine Idee woran das liegen könnte? |
AW: Tcomport on RXChar Problem
Ich push das hier nochmal aus gegebenen Anlass
Tante Edit meinte noch: Grad hats mal kurz funktioniert, hatte die Buffer size in der Tcomport auf 4096 hoch gestellt, dann hats kurz geklappt, jetzt aber wieder tote hose. Tante Edit mütterlicher seits meinte: Hab grad in den Gerätemanager geschaut, der hatte Probleme mit dem Gerät angezeigt. Hab jetzt die latencytime auf 1 gesetzt und vorher neu angesteckt. Jetzt wuppts Edit 3: Glück war nur von kurzer dauer, kaum hatte ich den 2 Edit verfasst hats wieder einfach aufgehört zu laufen. |
AW: Tcomport on RXChar Problem
Hast du denn einen EventChar definiert, damit das OnRxChar gefeuert wird?
So reagiere ich auf neue Daten:
Delphi-Quellcode:
Versuchs mal so, ich weiß ja nicht wie das Intervall deines Timer ist:
procedure TRS232Thread.ComPortRxChar(Sender: TObject; Count: Integer);
var Received: string; CRPosition: Integer; begin (Sender as TComPort).ReadStr(Received, Count); FResponse := FResponse + Received; CRPosition := Pos(Chr(13), FResponse); if CRPosition > 0 then begin FReceivedStr := Copy(FResponse, 1, CRPosition); FResponse := ''; if MeasureDataValid(FReceivedStr, FValue1, FValue2) then Synchronize(DoOnDataRead); end; FCycles := 0; end;
Delphi-Quellcode:
procedure TForm2.Timer1Timer(Sender: TObject);
var Str: String; begin (Sender as TTimer).Enabled := False; try ComPort1.ReadStr(Str, 10); if str <>'' then memo2.Lines.Add(stringtohex(str)); finally (Sender as TTimer).Enabled := True; end; end; |
AW: Tcomport on RXChar Problem
Ich reagier jetzt so drauf
Delphi-Quellcode:
Und das scheint zu funktionieren.
procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var Str: String; first, last: Integer; begin (Sender as TComport).ReadStr(Str, Count); if str <>'' then begin empf := empf + stringtohex(str); end; if pos('BB BB', empf) > 0 then begin first := pos('AA AA', empf); last := pos('BB BB', empf); if last < first then begin delete(empf, 1, last+5); end else begin memo1.Lines.Add(Copy(empf, first+5, last-7)); //parser.push(empf); with TParserthread.Create(empf) do begin Priority := tpHighest; Resume; end; delete(empf, 1, last+5); end; end; end; Ich lass es jetzt noch n bisschen länger laufen und meld mich nochmal. |
AW: Tcomport on RXChar Problem
So wie beschrieben nutze ich das einem Thread und lesen Daten von mehreren Messgeräten. Die Variante läuft in verschiedenen Anwendungen 24/7 und es gab noch keine Probleme.
|
AW: Tcomport on RXChar Problem
Hallo,
ich greif mal den alten Tröt auf, weil er meinem aktuellen Problem am nächsten kommt. Ich habe eine FMX-Anwednung und dazu die Winsoft-Komponente installiert: https://www.winsoft.sk/comport.htm Nun will ich Hex-Daten zu einem Controller schicken und welche empfangen. Nur Hex, also Bytes, keine Ansi-Chars oder ähnliches. Weshalb ich keine Ende-Erkennung habe. Das Protokoll, das der Controller verwendet, läßt sich nicht ändern, weil ich Geräte mit einbeziehen muß, die seit Jahren im Feld sind. Nun hab ich das Problem, dass OnRxChar eigentlich das einzige Event ist, das sich zum Empfang nutzen läßt. Aber es tritt nach jedem 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. Weshalb ich nun die Erleuchtung hatte, die einem der obigen Kommentatoren auch kam - ich setze einen Timer auf 100ms und lese dann erst die Daten aus. Nach 100ms müßte jede denkbare Sendung durch sein. Das hieße, dass OnRxChar meinen Timer starten müßte. UNd da kommt das Problem: In dieser OnRxChar-Routine reagiert der Timer.Enable nicht.
Code:
Das macht der nicht.
procedure TForm1.CP1RxChar(Sender: TObject);
begin Timer1.Enabled := True; end; Nehm ich einen Button, kann ich den Enabled ein- und ausschalten, wie ich will.
Code:
Da klappt das bestens. Aber in der OnRxChar gar nicht. Genau genommen ändert sich das Property auf True aber der Timer löst kein Event aus.
procedure TForm1.Button1Click(Sender: TObject);
begin Timer1.Enabled := not Timer1.Enabled; end; Gäb's dazu eine Erklärung? |
AW: Tcomport on RXChar Problem
Warum nicht die Daten auslesen, merken und wenn genug verarbeiten? (siehe #3)
Kommt das Event in einem Thread an? (glaub schon) wenn ja, dann TThread.Synchronize oder besser TThread.Queue Die Memo1.Lines.Add, in den oberen Antworten, funktionieren "zufällig", da sie intern SendMessage nutzen und sich so indirekt synchronisieren. |
AW: Tcomport on RXChar Problem
Es ist ja blöderweise nicht bekannt, wann die Sendung zu Ende ist. Keine Anzahl an Bytes, keine Ende-Erkennung durch ein bestimmtes Zeichen. Den Kommentar #3 hatte ich so verstanden, dass der nach "CHR(13)" sucht und damit sein Ende definiert. Bzw. eben auch mit einem Timer arbeitet, wie ich es vorhabe.
Hinsichtlich Threads muß ich ehrlich eingestehen, dass mein Wissen in solche Tiefen nicht reicht. Ich habe in der Anwendung keine Threads vereinbart. Wenn Delphi hier selbstständig auf verschiedene Threads verteilt, weiß ich nicht, wie genau ich das auseinanderhalten oder auf einen anderen Thread zugreifen soll. Dann aber wär's dennoch irgendwie komisch. Schalte ich den Timer per Button-Click ein, geht's. Schalte ich den in der OnRxChar ein, reagiert der Timer nicht auf den dann wahren Enabled, bzw. läßt das Timer-Event im gleichen Thread aufschlagen. |
AW: Tcomport on RXChar Problem
Du brauchst so oder so eine Ende-Erkennung, bzw. ob es (mindestens) genug Daten sind.
erstmal irgendwie alles mitschneiden
Delphi-Quellcode:
oder eben Binär als ByteArray oder Stream lesen+speichern
(Sender as TComPort).ReadStr(Received, Count);
FResponse := FResponse + Received; bezüglich des Timers mußt du ihn im Event beenden und neu starten, damit die Zeit erst nach dem letzten Empfang, im Intervall, verarbeitet wird. "Nochmal" auf True setzen, wenn schon True war, startet die Zeit nicht neu. Oder den Timer immer laufen lassen, bzw. beim ersten Empfangen starten dann auch noch die Empfangszeit merken oder im Timer prüfen, ob sich seit dem letzten OnTimer etwas (Zeit oder Daten im Puffer) geändert hat und wenn vorher, aber nicht beim letzten Mal, geändert, dann erst verarbeiten (und im Notfall auch noch wenn "zuviele" Daten vorhanden sind, die auf jeden Fall ausreichen, falls etwas hing) In einem ähnlichen Fall hatte ich bei jedem Empfang geprüft ob eine Mindestmenge an Daten vorhanden sind (der Header) und dann versucht die Daten zu dekodieren ... gab es Probleme, weil noch was fehlt, dann Abbruch und später nochmal, wenn wieder Neues rein kommt. (wenn erfolgreich verarbeitet, dann diese Daten aus dem Puffer löschen) |
AW: Tcomport on RXChar Problem
Hallo,
muss es diese Komponente sein? Alternativ mal TComPortDrv aus GetIt probiert? Die liefert nicht nur Zeichen für Zeichen... Grüße TurboMagic |
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:45 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz