Komponente für SSH-Verbindung

[daliuz]

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