Senden und Empfangen mit Dejan ComPort

[EccoBravo]

Hallo, ich komme mit dem (?asynchronen?) Datensenden/-empfangen über serielle Schnittstelle nicht klar.
Ich sende über COM1 einen Befehl an ein Messgerät, warte einige Zeit und lese dann den seriellen Port mit der Antwort wieder aus (weil ich es nicht anders kann/weiss). Bei mir sieht es ungefähr so aus

Delphi-Quellcode:

procedure MessgeraetAbfragen;
var
    stri : string; 
begin
    ComPort.Open;
    Stri:'WERT'+#13#10;            
    ComPort.WriteStr(Stri);         // senden eines Messbefehls an das Messgerät
    windows.Beep(100,150);          // dem Messgerät Zeit zum Überlegen lassen 
    ComPort.ReadStr(Stri,100);      // Messwert vom Messgerät auslesen
    ComPort.Close;
end;

Ja, das ist wohl etwas komisch von mir programmiert
Nun braucht das Messgerät für jede Anfrage unterschiedlich viel Zeit zum Reagieren, und das Messgerät liefert mir öfters falsche Rückantworten, weil es entweder noch nicht so weit ist oder die Frage längst überfällig ist.
Wie kann man dieses Problem lösen, wann weiß man, wann das Messgerät eine fertige Antwort auf dem seriellen Port bereitgestellt hat?

Vielen Dank für Hilfe und ein frohes Fest

EccoBravo

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]

[fkerber]

Hi!

Mit welcher Komponente greifst du denn auf den Com-Port zu?


Ciao Frederic

P.S. Für Code bitte verwenden.

[EccoBravo]

Hallo Frederic,

ich verwende nur die Komponente von Dejan TComPort.

Gruesse

EccoBravo

[Generalissimo]

Hi,

die meisten ComPort Komponenten haben irgendwo ein Ereigniss OnEventChar oder so ähnlich. Das wird ausgelöst sobald ein Zeichen am ComPort eintrifft. Dieses Ereigniss solltes du mit einer Funktion hinterlegen.

[EccoBravo]

Danke aber -

Das Messgerät sender Zeichenketten zurück, wann ist ein Messgerät mit dem Rücksenden einer Zeichenkette fertig?

Gruss

EccoBravo

[Generalissimo]

Sendet das Messgerät verschiedene Zeichenketten?

Normalerweise läuft es so ab:

OnEventChar wird ausgelöst -> mit ComportCompo.ReceiveText oder ähnlicher Funktion Zeichenkette abholen und verarbeiten.

Sollten mehrere Zeichenketten kommen dann wird das OnEventChar öfters ausgelöst, da die meisten Compos nach einer Abholung der Zeichenkette wieder in den Listener-Modus gehen.
Bei mehreren Zeichenketten muss aber der Buffer entsprechend hochgesetzt werden, damit nix verloren geht.

[EccoBravo]

Danke danke,
- (ComPortRxChar) -
nun arbeiten diese Befehle leider asynchron, das heißt, während man auf die Schnittstelle wartet arbeitet das Programm (an einer anderen Stelle) weiter.
Wenn man zeitsensitiv verschiedene Set/Read-Befehle mit dem Messgerät aushandelt, weis das Programm irgendwann nicht mehr welche Antwort zu welcher Frage gehört und alles gerät durcheinander.
Fazit: Funktionieren würde Dein Vorschlag bei synchroner Arbeitsweise der Schnittstellenoperation.
Das sind die Hintergründe meiner NeoGreenhornFrage.
Wie kann man dieses Problem am gescheitesten umgehen ?

Danke

EccoBravo

[Hansa]

Das macht man so, daß der Empfänger dem Sender STOP sagt, bis die Daten empfangen sind und wenn wieder Platz ist, dann sagt er dem Sender wieder START. Dadurch geht dann nichts verloren. Für so was gibt es Protokolle, Handshake usw. Und das muß auf beiden Seiten richtig eingestellt sein. Die Komponente hat mit Sicherheit ein Feld im OI, wo man das einstellt. Vermutlich was mit Optionen.

Da ich allerdings nur AsyncPro für so was verwende, weiß ich nicht, wie das bei Dir geht. Ich würde mir das mal ansehen, zumal da ein richtiges Handbuch dabei ist. Und das ist bei serieller Kommunikation unverzichtbar.

[Generalissimo]

Ich arbeite auch sehr gerne mit der TSerial Komponente von der Zeitschrift Toolbox.
Ansonsten scließ ich mich Hansa an.

[EccoBravo]

Hallo,

Danke für die Tips, ich arbeite mit D7 und dafür gibt es kein TSerial,

Guten Rutsch

EB