TComPort - RS232 Ausgabe in Memo

[MarkusReisser]

Hallo alle zusammen,

ich habe hier eine ganz einfache Anwendung, mit der ich Befehle über RS232 zu einem Gerät sende. Das funktioniert wunderbar.

Hier die Codeschnipsel (wirklich sehr sehr einfach gehalten):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.ComPort1.Port:='COM1';
Form1.ComPort1.BaudRate:=br9600;
Form1.ComPort1.DataBits:=dbEight;
Form1.ComPort1.Parity.Bits:=prNone;
Form1.ComPort1.StopBits:=sbOneStopBit;
Form1.ComPort1.FlowControl.FlowControl:=fcNone;
Form1.ComPort1.Connected:=true;    // Verbidnung herstellen
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.ComPort1.Connected:=false;    // Verbidnung trennen
end;

Delphi-Quellcode:

procedure TForm1.ComPort1AfterClose(Sender: TObject);
begin
Form1.Label13.Caption:='Status: Nicht Verbunden';        // Status "Nicht Verbunden" anzeigen
end;

procedure TForm1.ComPort1AfterOpen(Sender: TObject);
begin
Form1.Label13.Caption:='Status: Verbunden';        // Status "Verbunden" anzeigen
end;

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
Befehl1:string;    // Befehl vom Typ string
begin
// Wenn die Verbindung hergestellt ist, dann Befehl senden
if Form1.ComPort1.Connected=true then begin
 Befehl1:='ich bin ein Befehl' + #13;
 Form1.ComPort1.WriteStr(Befehl1);
end;

Nun würde ich gern in einem Memo die Live-Anzeige der Konsole darstellen. Ich will also die Befehle und dessen Ergebnisse sehen. Sende ich Befehl1, bekomme ich auf der Konsole Ergebnis1 dargestellt. Nur wie bekomme ich das in ein Memo?

Ich habe da leider gar keine Idee. Habt Ihr da Hinweise für mich?

Vielen Dank im Voraus.

Grüße

[hathor]

http://www.delphi-treff.de/tipps/sys...ramm-anzeigen/

[guinnes]

Welche Konsole meinst du ?
und :

Delphi-Quellcode:

if Form1.ComPort1.Connected=true then begin
 Befehl1:='ich bin ein Befehl' + #13;

Nur ein Tipp

[DeddyH]

Das "Form1" gehört da auch nicht hin, entweder durch "self" ersetzen oder ganz weglassen.

[baumina]

Meine Routine sieht dafür folgendermaßen aus:

Delphi-Quellcode:

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);  // <-- Im ObjektInspektor von ComPort1 das Ereignis OnRxChar zuweisen
var
  i : integer;
  r_buff : array[0..1024] of Char;
  bCR : boolean;

begin
  bCR := False;
  ComPort1.Read(r_buff,SizeOf(r_buff));
  for i := 1 to Count do
  begin
    if r_Buff[i-1] > #13 then
     sReceive := sReceive+ r_Buff[i-1] else
     case r_Buff[i-1] of
      #13: bCR := True;
     end;
  end;

  if length(sReceive) > 250 then bCR := True;

  if bCR then
  begin
    Memo1.Lines.Insert(0, 'Empfange: ' + sReceive);
  end;
end;

[MarkusReisser]

Zitat:

Zitat von DeddyH (Beitrag 1259546)

Das "Form1" gehört da auch nicht hin, entweder durch "self" ersetzen oder ganz weglassen.

Das hatte ich mal in der Schule vor 8 Jahren gelernt. Dort hieß es, dass man immer die aktuelle Form davor schreiben sollte.

Zitat:

Zitat von guinnes (Beitrag 1259542)

Welche Konsole meinst du ?

Wenn ich z.B. Putty als Konsole nutze, sende ich darüber meine Befehle und bekomme dort natürlich auch die Antworten zu sehen. Genau das möchte ich in mein Tool implementieren. Das Senden der Befehle funktioniert :) Nun würde ich gern automatisch die Antworten in einem Memo darstellen lassen :)

Danke Euch schonmal für die Antworten. Ich werde dann mal weiter lesen.

Ich bin dann gestern auch noch auf die RxChar Funktion gekommen, aber mein Versuch war nicht so toll ;) Meine Kenntnisse sind auf dem Gebiet nicht sehr umfangreich.

Delphi-Quellcode:

Procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
Ausgabe:string; // Variable vom Typ String
begin
Form1.ComPort1.ReadStr(Ausgabe, Count);
Form1.Memo1.Text:=Ausgabe;
end;

[DeddyH]

Zitat:

Zitat von MarkusReisser (Beitrag 1259585)

Zitat:

Zitat von DeddyH (Beitrag 1259546)

Das "Form1" gehört da auch nicht hin, entweder durch "self" ersetzen oder ganz weglassen.

Das hatte ich mal in der Schule vor 8 Jahren gelernt. Dort hieß es, dass man immer die aktuelle Form davor schreiben sollte.

Dann hast Du etwas Falsches gelernt. Form1 ist die globale Variable, die Delphi automatisch in die entsprechende Formularunit schreibt. Die kann man aber auch umbenennen oder ganz löschen, wenn man das Formular nicht automatisch erzeugen lässt. Das bedeutet dann, dass die ganze Klasse nicht mehr funktioniert (sich nicht mehr kompilieren lässt), nur weil die Variable, die die Klasse TForm1 ja eigentlich gar nicht benötigt, nicht vorhanden ist. Noch schlimmer wird es dann, wenn man die Variable beibehält, aber eine TForm1-Instanz in einer anderen Variablen ablegt, da damit immer die falsche Instanz (sofern überhaupt vorhanden) angesprochen wird. Das merkt man aber erst während der Laufzeit.

[himitsu]

Und das andere Extrembeispiel:

Man lässt die Klasse zwei mal erzeugen, dann greifen die Methoden beider Instanzen auf die Form1-Variable zu.
- Entweder die erste Instanz greift ständig auf die falschen Komponenten drauf su, nämlich auf die der zweiten Instanz, welche zufällig in der Variable verlinkt ist, weil ihr Zeiger als Letztes dort reingeschrieben wurde, anstatt auf ihre Eigenen (Self).
- Oder es knallt, weil man beim dynamischen Erzeugen diese Variable nicht verwendet/gesetzt hat. (siehe DeddyH)

Gibt der Leerrer denn noch Unterricht?




Dieses TComport hat noch andere Events, bzw. eine Weitere Klasse, welche einem komplette Strings liefern kann.
z.B. beginnend bei einem definierten Startzeichen, aber vorallem endend mit einem bestimmten Stopzeichen, ohne daß man das selber machen behandeln muß.

OnRxChar wird nicht unbedingt am ende der Zeile/Message ausgelöst, womit die empfangenen Zeichen noch unvollständig seie können.

Delphi-Quellcode:

ComPort1.ReadStr(Ausgabe, Count);
Memo1.Text := Memo1.Text + Ausgabe;

[DeddyH]

Das sag ich doch, nur mit anderen Worten :roll:

[MarkusReisser]

Ich seh schon... :shock: Aber er unterrichtet natürlich noch im Fach Informatik. Vielleicht habe ich es aber auch nur falsch aufgefasst. Es ist doch schon so lange her :oops:

Nun zu der Ausgabe.

Delphi-Quellcode:

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
Ausgabe:String;  // Variable vom Typ String
begin
ComPort1.ReadStr(Ausgabe, 80);
Memo1.Lines.Add(Ausgabe);
end;

Es funktioniert grundsätzlich über die RxChar. Die Ausgabe in das Memo kann man ja noch auf anderen Wegen machen.

Der Fehler lag im ReadInterval Timeout des TComPort. Dieser ist per Default auf -1 gesetzt! Somit blieb mein Memo immer leer! Ich bin durch Zufall darauf gestoßen... Die Ausgabe ist ja sogar in dieser Form in den Examples aufgeführt - also muss diese Methode ja auch funktionieren. :thumb:

Das ReadInterval Timeout habe ich nun mal auf 1000 gesetzt. Das Memo füllt sich schön mit dem Ausgabetext und natürlich auch mit meinen Befehlen.

So sieht der ausgegebene Inhalt aktuell aus:

Zitat:

C876#ena
C876#conf t
Enter configuration commands, one per line. End with C
NTL/Z.
C876(config)#username Test6 password Test6
C876(config)#exit
C876#copy
run start
Destination filename [startup-config]?
Building configuration...


*Mar 2 01:20:33.610: %SYS-5-CONFIG_I: Configured from console by console[OK]


C876#
C876#
C876#

Ich möchte aber, dass dieser so aussieht:

Zitat:

C876#ena
C876#conf t
Enter configuration commands, one per line. End with CNTL/Z.
C876(config)#username Test6 password Test6
C876(config)#exit
C876#copy run start
Destination filename [startup-config]?
Building configuration...


*Mar 2 01:20:33.610: %SYS-5-CONFIG_I: Configured from console by console[OK]


C876#
C876#
C876#

Er bringt dort ab und zu Zeilenumbrüche rein (hier bei dem Befehl "copy run start"). Wie kann ich dem vorbeugen? Hat da jemand eine Idee? :)

Auf alle Fälle schon mal ein großes Danke an Euch!