Membuat WHOIS dengan Delphi #207

Teh melati tidak akan memiliki aroma jeruk

Andry Fadrie K Juli 31, 2012

1 521 Less than a minute

andrypein.net : Mengecek whois bisa melalui situs domain registrar atau dengan aplikasi yang aing bikin ini.

Apakah definisi dari WHOIS?

WHOIS :

“Adalah sebuah protocol query yang berbasis TCP yang digunakan untuk melakukan query ke database untuk menentukan pemilik dari sebuah domain name“.

Oke, kita akan membuat nya di delphi dengan komponen huis itu sendiri dari INDY dengan nama nya IdWhois.

Untuk komponen IdWhois nya dapat di temukan di palet indy clients.

Sekarang untuk kodingnya hanya dua event, yakni button proses OnClick dan Form OnCreate.

Kode untuk button onclick :

procedure TForm1.Button1Click(Sender: TObject);
begin
  with IdWhois1 do
    begin
      host:=trim(combobox1.Text);
      memo1.Lines.Text:=WHOIS(trim(edit1.Text));
    end;
end;

Kode form oncreate :

procedure TForm1.FormCreate(Sender: TObject);
begin
  memo1.Clear;
  edit1.Clear;
  combobox1.Clear;
  combobox1.Items.Add('whois.internic.net');
  combobox1.Items.Add('whois.domaintools.com');
  combobox1.Items.Add('www.whois.com');
  combobox1.Items.Add('whois.godaddy.com');
end;

Hasil akhirnya bisa ditest dengan memilih whois domain dan input domain name, kaya yang aing.