DelphiPemrograman

Membuat WHOIS dengan Delphi #207

Teh melati tidak akan memiliki aroma jeruk

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.

whois dengan delphi
gg
Okeh, apps whois dengan delphi nya bisa di donlod gan lumayan tambah-tambah koleksi.

Download

*AFK

Andry Fadrie K

CPU : AMD Ryzen 5 1600 12Core
Mobo : Asus ROG Strix B450-F GAMING
RAM : 16GB
Storage : 12.8TB
VGA : NVIDIA GeForce GTX 1050ti
OS : KDE Neon
Kernel : 5.11.0-46

Related Articles

One Comment

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan.

Back to top button