Guten Abend,
so kann ich mich in mein Linuxsystem per telnet anmelden:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
idTelnet1.Host:='192.168.189.128';
idTelnet1.Connect();
if idTelnet1.Connected then
memo1.Lines.Add('connected');
end;
procedure TForm1.IdTelnet1DataAvailable(Sender: TIdTelnet;
const Buffer: String);
begin
memo1.Lines.add(buffer);
if pos('ogin',buffer) > 0 then
(sender as TidTelnet).SendCmd('klaus');
if pos('assword',buffer) > 0 then
(sender as TidTelnet).SendCmd('klaus');
end;
Im ObjectInspector habe ich beim idTelnet1 noch ThreadedEvent auf true gesetzt.
Grüße
Klaus