AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Rs232

Ein Thema von tomkupitz · begonnen am 11. Apr 2016 · letzter Beitrag vom 11. Apr 2016
Antwort Antwort
tomkupitz

Registriert seit: 26. Jan 2011
323 Beiträge
 
Delphi 11 Alexandria
 
#1

Rs232

  Alt 11. Apr 2016, 10:50
Hallo,

über RS232 sende ich einen Befehl und erhalte eine Antwort darauf. Der Antwortstring ist nicht mit #13 abgeschlossen. Wenn ich den Antwortstring mit ReadFile abhole, erhalte ich nur einen Teil der Antwort. D.h. ich muss nochmals Lesen, um auch den Rest der Antwort zu erhalten. Für das Ganze habe ich einen Timeout definiert, so daß ich immer sicher gehen kann, dass die gesamte Antwort ausgelesen ist.

Der Timeout oft nicht optimal und kostet unnötig Zeit. Gibt es eine schnelle Möglichkeit einen solchen Antwortstring auszulesen?

Beste Grüße
  Mit Zitat antworten Zitat
Der schöne Günther
Online

Registriert seit: 6. Mär 2013
6.110 Beiträge
 
Delphi 10 Seattle Enterprise
 
#2

AW: Rs232

  Alt 11. Apr 2016, 11:08
Ich glaube es wäre einmal interessant wie und was du für den Timeout einstellst und wie genau dein ReadFile-Aufruf aussieht.

Wenn ich es richtig verstehe:
  1. Deine Gegenstelle terminiert das Gesendete nicht mit einem bestimmten Zeichen (wie ETX (#03) oder #13)
  2. Du weißt nicht, wie lang die Antwort auf deine Frage sein wird
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.153 Beiträge
 
Delphi 12 Athens
 
#3

AW: Rs232

  Alt 11. Apr 2016, 11:57
Jupp, entweder die Länge wird vorher mit gesendet, bzw. ist vorher bekannt/statisch, oder es gibt eine "Ende"-Kennung, egal ob in den Daten oder mit Hilfe der Steuerleitungen (DCD, DTR, DSR, RTS, CTS und RI).
Ansonsten kannst du halt nur warten, ob nicht doch noch etwas kommt.

Alternativ vorher die maximal mögliche Zeit warten, wie lange eine Antwort dauern kann und danach dann einmal auslesen. (geht nur, wenn der Puffer des COM-Ports groß genug ist)
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests

Geändert von himitsu (11. Apr 2016 um 12:28 Uhr)
  Mit Zitat antworten Zitat
tomkupitz

Registriert seit: 26. Jan 2011
323 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: Rs232

  Alt 11. Apr 2016, 12:05
Es gibt kein Ende-Zeichen und die Länge ist auch nicht bekannt.

So siehts aus:

var s: AnsiString

SetLength(s, InQueue);
ReadFile(FComHandle, s[1], Length(s), result, @Overlapped);
GetOverlappedResult(FComHandle, Overlapped, result, True);

Das ganze wird halt x-mal wiederholt bis der Timeout (GetTickCount ...) abgelaufen ist.
  Mit Zitat antworten Zitat
Der schöne Günther
Online

Registriert seit: 6. Mär 2013
6.110 Beiträge
 
Delphi 10 Seattle Enterprise
 
#5

AW: Rs232

  Alt 11. Apr 2016, 12:14
Und wann fällt die Zahl InQueue vom Himmel?

Ansonsten: Kannst du vom Protokoll aus denn überhaupt nicht erkennen ob denn nun nichts mehr kommt?
  Mit Zitat antworten Zitat
tomkupitz

Registriert seit: 26. Jan 2011
323 Beiträge
 
Delphi 11 Alexandria
 
#6

AW: Rs232

  Alt 11. Apr 2016, 12:32
if ClearCommError(FComHandle, e, @ComStat) then
result:=ComStat.cbInQue;

Ansonsten zeigt mir die Antwort ob noch was kommt.
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:51 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