Jumat, 16 November 2018

Code Agar Plink Bisa Auto Reconnect Sendiri

Assalamualaikum..
KENEONO - Dikesempatan kali ini saya share tentang delphi yaitu code delphi untuk Plink supaya bisa auto reconnect sendiri yang bisa sobat terapkan di project delphi.



Berikut ini codenya :



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) or (pos(‘network error’,NewLine)>0) or (pos(‘FATAL 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;

Code di atas taruh di component DosCommand.

Ket: Untuk tulisan yang berwarna merah itu code error supaya bisa di auto reconnect, bisa di tambahan lagi kalau ada code error lainnya yang gak bisa di auto reconnect.

Sekian... semoga bermanfaat.

Wassalamualaikum..

BERITA LENGKAP DI HALAMAN BERIKUTNYA

Halaman Berikutnya

>> PERHATIKAN !!! <<

- Gunakan kata-kata yang bijak saat berkomentar ya sob.
- Berkomentar dengan Foto <i rel="image">URL_GAMBAR</i>
- Berkomentar dengan Code HTML silakan Parse dulu.