Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Delphi Tcomport on RXChar Problem (https://www.delphipraxis.net/170836-tcomport-rxchar-problem.html)

PhilmacFLy 5. Okt 2012 08:38

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:
procedure TForm2.Timer1Timer(Sender: TObject);
var
  Str: String;
begin
  ComPort1.ReadStr(Str, 10);
  if str <>'' then
  memo2.Lines.Add(stringtohex(str));
end;
die Daten ausles, ist was da.
Jemand eine Idee woran das liegen könnte?

PhilmacFLy 10. Okt 2012 10:56

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.

divBy0 10. Okt 2012 11:21

AW: Tcomport on RXChar Problem
 
Hast du denn einen EventChar definiert, damit das OnRxChar gefeuert wird?

So reagiere ich auf neue Daten:

Delphi-Quellcode:
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;
Versuchs mal so, ich weiß ja nicht wie das Intervall deines Timer ist:

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;

PhilmacFLy 10. Okt 2012 11:47

AW: Tcomport on RXChar Problem
 
Ich reagier jetzt so drauf

Delphi-Quellcode:
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;
Und das scheint zu funktionieren.
Ich lass es jetzt noch n bisschen länger laufen und meld mich nochmal.

divBy0 10. Okt 2012 12:21

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.

BergLoewe 10. Jun 2022 10:01

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:
procedure TForm1.CP1RxChar(Sender: TObject);
begin
     Timer1.Enabled := True;
end;
Das macht der nicht.

Nehm ich einen Button, kann ich den Enabled ein- und ausschalten, wie ich will.
Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
    Timer1.Enabled := not Timer1.Enabled;
end;
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.

Gäb's dazu eine Erklärung?

himitsu 10. Jun 2022 10:15

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.

BergLoewe 10. Jun 2022 10:44

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.

himitsu 10. Jun 2022 11:12

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:
(Sender as TComPort).ReadStr(Received, Count);
FResponse := FResponse + Received;
oder eben Binär als ByteArray oder Stream lesen+speichern



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)

TurboMagic 10. Jun 2022 20:09

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.
Seite 1 von 2  1 2      

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