Code: Alles auswählen
procedure TForm1.Timer1Timer(Sender: TObject);
var
telnet: ttelnetsend;
begin
memo1.visible:=true;
telnet:=ttelnetsend.Create;
timer1.Enabled:=false;
try
telnet.targethost:=edit1.text;
telnet.Timeout:=1000;
telnet.Login;
telnet.WaitFor('login');
telnet.Send(edit2.text+#$0d+#$0a);
telnet.WaitFor('word');
telnet.Send(edit3.text+#$0d+#$0a);
telnet.Waitfor('~#');
sleep(500);
telnet.Send('cat /dev/fb/0 > /tmp/Scr.raw'+#$0d+#$0a);
telnet.WaitFor('~#');
memo1.Lines.text:=telnet.SessionLog;
finally
telnet.free;
end;
memo1.lines.add('successful done!!');
memo1.lines.add('please wait while we create the picture - this takes some time');
capture;
end;

Programm hab ich auch schon mit sudo ausgeführt, gleicher Effekt.
Hat jemand einen Hinweis für mich?
Danke