Cara Menampilkan IP Address (Delphi 7)

Baik lah sobat pembaca pada artikel ini, saya akan menampilkan coding function bagaimana cara menampilkan IP Address komputer kita.

Seumpama kita pada contoh kasus kita ini adalah, "Tampilkan IP address pada komponen TLabel pada saat tombol diklik" maka langkahnya adalah sebagai berikut :




1. Buat aplikasi Delphi dengan cara klik New Application pada menu Standard Delphi, maka akan muncul form standard delphi.

2. Letakkan 2 VCL yaitu Label dan Button pada form tersebut

3. Tambahkan Uses Winsock pada bagian atas (sejajar dengan uses

4. Tulis pada tepat dibawah tulisan "private"
     "Function GetIPAddress : String;" (tanpa tanda petik)

5. Lalu Copy dan paste kan coding dibawah ini  tepat dibawah tulisan {$R *.dfm}

Function TForm1.GetIPAdress: String;
type
  TaPInAddr = array[0..10] of PInAddr;
  PaPInAddr = ^TaPInAddr;
var
  phe: PHostEnt;
  pptr: PaPInAddr;
  Buffer: array[0..63] of Char;
  I: Integer;
  GInitData: TWSAData;
begin
  WSAStartup($101, GInitData);
  //Cek apakah ada NIC Kalau gak ada, Error dan result = ''
  Result := '';
  GetHostName(Buffer, SizeOf(Buffer));
  phe := GetHostByName(buffer);
  if phe = nil then Exit;
  pPtr := PaPInAddr(phe^.h_addr_list);
  I    := 0;
  while pPtr^[I] <> nil do
  begin
    Result := inet_ntoa(pptr^[I]^);
    Inc(I);
  end;
  WSACleanup;
end;

6. Setelah itu anda kembali ke form dan klik button 2 x maka anda akan dihadapkan pada form mode coding kembali dan Delphi akan membuatkan procedure secara otomatis, namun procedure tersebut masih kosong.

7. Copykan code ini diantara begin dan end; procedure yang terbentuk tadi
label1.caption := GetIPAddress;

8. Setelah itu jalankan program dengan klik RUN.

9. Coba anda klik tombol yang ada pada form, maka akan label yang semula bertuliskan "Label1" akan berubah menjadi alamat IP address komputer anda.



Baik sobat, selamat mencoba