TComPort - RS232 Ausgabe in Memo

[MarkusReisser]

Ich seh schon... 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

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.

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!

[baumina]

Hast du versehentlich oder absichtlich meine obige Antwort überlesen? Dort würdest du sicher die Antwort finden.

[guinnes]

Oder du benutzt, wie auch schon vorgeschlagen, ein TComDataPacket

[MarkusReisser]

Zitat von baumina:

Hast du versehentlich oder absichtlich meine obige Antwort überlesen? Dort würdest du sicher die Antwort finden.

Sorry, versehentlich überlesen

sReceive ist ein String?

[himitsu]

Ja.

TComDataPacket macht intern praktisch genau das Selbe, nur eben voll automatisch.
Man muß nur als Ende-Zeichen den Zeilenumbruch (#13) angeben.

[MarkusReisser]

Heyho,

das TComDataPacket habe ich nun mal probiert und die Formatierung ist so, wie sie sein soll.

Aber:

Stelle ich die COM-Verbindung in meinem Tool her und starte dann erst den Cisco Router, sehe ich die Ausgabe vom Startprozess des Routers im Memo. Danach kann ich meine Befehle absetzen und auch dort wird alles im Memo angezeigt. Alles super!

Wenn der Cisco Router aber schon gestartet ist, ich die COM-Verbindung im Tool dann erst herstelle und im Anschluss meine Befehle absetze, bleibt das Memo leer...

Woran kann das denn liegen? Es sieht so aus, als wolle mein Tool von der Gegenstelle aus das erste mal getriggert werden...

Mein Code sieht aktuell so aus:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
ComDataPacket1.StopString:=#13;
end;

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

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

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

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

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

procedure TForm1.ComDataPacket1Packet(Sender: TObject; const Str: string);
begin
Memo1.Lines.Add(Str);   // Ausgabe Rx/Tx Data in Memo
end;

[MarkusReisser]

So,

alles funktioniert nun. Die Verbindung konnte nur bei einem bestimmten Gerät nicht vom Tool aus aufgebaut werden.

Ich danke Euch für die Hilfe.

Mfg