Hallo,
Ich habe kein Beispiel mit rangehängt - Sorry.
Aber hier sind mal ein paar Codeschnipsel:
onDataAvailable: normaler Ausgabekanal von plink
onDataFehler: Fehlerausgabe von plink
onError: Fehlerausgabe der Komponente
Plinkremote1.ClearEsqSeq
: Löscht Terminal Esqape-sequenzen aus den Ausgaben
Für das Verbinden:
Delphi-Quellcode:
Plinkremote1.exe_parameters:='hostname -l usename -pw mypassword ';
Plinkremote1.exe_directory:='d:\Putty';
Plinkremote1.exe_name:='plink.exe';
Plinkremote1.execute;
Für das Abbrechen:
Plinkremote1.do_stop_process;
Für das Schreiben:
Plinkremote1.write_string(Mytext+#13);
Die Events:
Delphi-Quellcode:
procedure TForm1.Plinkremote1DataAvailable(Sender: TPlinkremote;
const Buffer: string);
var memostring: string;
begin
EmulVT1.WriteStr(Buffer);
memo1.Lines.text:=memo1.Lines.Text+buffer;
end;
procedure TForm1.Plinkremote1Error(Sender: TPlinkremote; const Error: string);
begin
ShowMessage(Error);
end;
procedure TForm1.Plinkremote1DataFehler(Sender: TPlinkremote;
const Buffer: string);
begin
EmulVT1.WriteStr(Buffer);
memo1.Lines.text:=memo1.Lines.Text+buffer;
end;
procedure TForm1.Plinkremote1Plinkclose(Sender: TPlinkremote);
begin
ShowMessage('Programm '+Plinkremote1.exe_name + ' geschlossen!');
end;
Ich hoffe das hilft dir weiter!
CU
Daliuz