ich habe mich erfolgreich mit einem Telnet Server verbunden der ständig Daten liefert die ich auswerten möchte.
In einem TMemo wollte ich die erstmal Zeile für Zeile untereinander auflaufen lassen.
Die erste Zeile landet auch odrnungsgemäß im TMemo.
Nun fehlt mir ein Eventhandler - bzw ich kenne ihn nicht - gibt ei einen für TelnetSend von Synapse ?
Wie kann ich die Daten abhohlen und ins TMemo bringen ?
Code: Alles auswählen
procedure TForm1.FormShow(Sender: TObject);
begin
TN := TTelnetSend.Create;
TN.TargetHost := 'db0hgw.dyndns.org';
TN.TargetPort := '4111';
TN.Timeout := 1000;
if TN.Login then
begin
TN.WaitFor('login:');
TN.Send('dl3ad'+#$0d+#$0a);
TN.WaitFor(#$0d+#$0a);
Label1.Caption:= 'Connectet';
Memo1.Text:= TN.RecvString;
end;
end;
Gruß Frank