Masalah Delphi Code Agar Plink Bisa Auto ReConnect

Auto reconnect. Cara lain agar Plink bisa auto reconnect yaitu dengan merekam kata “error” pada log Plink itu sendiri, kemudian mengirimkan kembali command yang sama. Begitu seterusnya ketika pesan “error” didapat. Mungkin bisa lebih disempurnakan lagi dengan mengambil pesan “Network error” misalnya atau lainnya. Kode berikut hanya versi simple dan sederhananya saja. Silahkan dicoba.

lain halnya dengan Bitvise Tunnelieg, Plink tidak memiliki fitur
Contoh pesan plink “error” ketika gagal konek :

 Code procedure-nya :

 procedure TForm1.DosCommand1NewLine(Sender: TObject; NewLine: String;
OutputType: TOutputType);
var
num,newnum: Integer;
cmd1: String;
begin
if (pos(‘error’,NewLine)>0) or (pos(‘ERROR’,NewLine)>0) then
begin
Memo1.Clear;
Sleep(10);
CMD1:=extractfilepath(application.exename)+’Plink.exe -v -N -C -D 1080 ‘ +username+ ‘@’ +host+ ‘ -P ‘ +porthost+ ‘ -pw ‘ +password;
DosCommand1.CommandLine:=CMD1;
DosCommand1.Execute;
end;
Memo1.Lines.Add(newline);
end;