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