Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   RS232 langasm (https://www.delphipraxis.net/193815-rs232-langasm.html)

tomkupitz 12. Sep 2017 15:15

RS232 langasm
 
Hallo,

wir lesen von der seriellen Schnittstelle mit

Code:
ReadFile(ComHandle, buf, SizeOf(buf), BytesRead, nil);
Die Länge mancher Antworten (auf ser. Befehle) ist unbekannt und ein #13 ist auch nicht vorhanden.

Wie kann ich solche Antworten möglichst schnell und vollständig abholen?

Danke und beste Grüße

Der schöne Günther 12. Sep 2017 15:59

AW: RS232 langasm
 
Die Größe des Buffers auf 1 setzen, jedes einzelne Byte in einen Puffer (z.B. eine Queue) legen bei jedem neuen Byte schauen ob man mit dem bislang erhaltenen Content etwas anfangen kann?

Bernhard Geyer 12. Sep 2017 16:11

AW: RS232 langasm
 
Es gibt Komponenten (z.B. AsyncPro) welche die Möglichkeit bieten Evengesteuert auf eingetroffene Daten zu reagieren.
Hatte mit diesen Komponenten im letzten Jahrtausend ganz gute Erfahrungen.
Mittlerweile sind sie OpenSource so das auch keine finanzielle Hürde den Einsatz verhindern würde.

himitsu 12. Sep 2017 17:19

AW: RS232 langasm
 
Zitat:

Die Länge mancher Antworten (auf ser. Befehle) ist unbekannt und ein #13 ist auch nicht vorhanden.

Wie kann ich solche Antworten möglichst schnell und vollständig abholen?
Garnicht?

Vollständig geht nur, wenn jemand weiß wie lang es ist.
Sei es eine bekannte/statische Länge, eine Längenangabe im Datenanfang (Längenbyte) oder eine Markierung für das Datenende (z.B. die #13).
Auf eine Sendepause kann man hier ja nicht sonderlich gut reagieren (außer man holt die Daten z.B. via Interrupt umgehen ab), um sie als Ende zu verwenden.



AsyncPro, TComPort usw. laden meistens in einem Thread im Hintergrund und machen dann intern auch nur ReadFile.
Liegt AsyncPro nicht auch im GetIt rum?

Wenn die Länge bekannt ist, dann ist ein direktes ReadFile mit der gewünschten Länge somit das Schnellste.
ReadFile kann auch Asynchron aufgerufen werden (siehe Overlapped) und man bekommt dann z.B. ein Event, wenn alle Daten da sind.

RS232 ist immer gleich schnell und du kannst dir sogar ausrechnen, wie lange es dauert.
Schneller geht es nur mit einer höheren Taktrate.

1 Startbit, 1 Stopbit, 8 Datenbits und keine Parität = 10 Bits pro Byte
Bei 9600 BAUD (in diesem Fall BitsProSekunde) = maximal 960 Byte pro Sekunde



Was heißt eigentlich langsam?

Die Daten werden zu langsam übertragen
oder es kommen nicht "durchgängig" Daten und ReadFile wartet manchmal länger, bis irgendwan Daten empfangen werden. (von irgendwem versendet)

p80286 12. Sep 2017 18:31

AW: RS232 langasm
 
Zitat:

Zitat von himitsu (Beitrag 1380942)
Vollständig geht nur, wenn jemand weiß wie lang es ist.
Sei es eine bekannte/statische Länge, eine Längenangabe im Datenanfang (Längenbyte) oder eine Markierung für das Datenende (z.B. die #13).

#13=x0B (VT) ist aber nicht so gebräuchlich
eher x02 (STX) und x03 (ETX)
es könnte ja auch wider Erwarten ein Protokoll genutzt werden:
vgl. https://de.wikipedia.org/wiki/Seriel...3%BCbertragung

Gruß
K-H

tomkupitz 12. Sep 2017 20:08

AW: RS232 langasm
 
Hallo,

es geht hier um ein Firmware-Update. "Unser" ReadFile ist gegenüber einem Herstellertool ziemlich langsam. Ich weiß aber nicht was die ganau anders machen.

Danke erstmal an alle. Ich werde Overlapped ausprobieren.

tom

Der schöne Günther 12. Sep 2017 21:30

AW: RS232 langasm
 
Etwas anderes als ReadFile werden die auch nicht machen. Wenn dein Buffer so groß ist du als
Delphi-Quellcode:
nNumberOfBytesToRead
nun
Delphi-Quellcode:
SizeOf(Buffer)
und nicht z.B.
Delphi-Quellcode:
1
angibst dann läufst du zwangsweise auf einen Timeout. Der ist übrigens so lang wie du ihn eingestellt hast (Hast du doch, oder?).

Ansonsten will ich nichts schlechtreden, aber ich glaube Overlapped macht das ganze nur asynchron, auf deinen Timeout läufst du trotzdem. Glauben statt wissen da ich es noch nie gebraucht habe - Einfach Byte für Byte lesen und wenn die Länge nicht bekannt ist kann eh nur dein Code wissen ob die Nachricht komplett ist. Deshalb einfach nach jedem Byte schauen.

bytecook 13. Sep 2017 10:42

AW: RS232 langasm
 
Alternativ zu den herkömmlichen Komponenten ist auch TSynaSer mit den Blocking Mechanismen (in einem Thread oder in einem OTLTask verarbeitet) ganz nett.

Dort bietet sich

"function RecvPacket(Timeout: Integer): AnsiString; virtual;" an. (Ggf mit INFINITE als Timeout Value).

Ich lese damit bulkweise die Daten in einen Buffer und überprüfe, ob die eingegangenen Bytes bereits dem zu erwartenden Konstrukt entsprechen.

Mehr Info:

http://synapse.ararat.cz/doc/help/sy...ockSerial.html
http://synapse.ararat.cz/doc/help/synaser.html
http://synapse.ararat.cz/doc/help/

Rollo62 13. Sep 2017 12:58

AW: RS232 langasm
 
Ich schreibe mir Alles was ankommt in eine ThreadedQueue, und habe danach genug Zeit das im anderen Thread zu analysieren und ggf. ein OnDataComplete zu feuern.

Aber schneller wird es dadurch wohl auch nicht, das liegt denke ich eher beim RS232 an sich.

Rollo

Klaus01 13. Sep 2017 13:01

AW: RS232 langasm
 
RS232 kann doch bis zu 115000 baud (bits per second)
So langsam ist das nun auch wieder nicht.
Wie ist denn die Schnittstelle bei dir eingestellt?

Grüße
Klaus


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:44 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