Cek status koneksi domain dengan menggunakan script delphi

Kode untuk cek status koneksi domain dengan menggunakan script delphi

uses
 IdHTTP, IdException, IdStack;

procedure TForm1.Button1Click(Sender: TObject);
var
 IdHTTP: TIdHTTP;
begin
 IdHTTP:= TIdHttp.Create(Application);
 try
 IdHTTP.host:=('google.ru');
 IdHTTP.connect;
 if IdHTTP.Connected=false then
 begin
 ShowMessage('Connected false');
 IdHTTP.Disconnect;
 end
 else
 begin
 ShowMessage('Connected true');
 end;
 except
 ShowMessage('Host not found');
 end;
end;

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google photo

You are commenting using your Google account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s