1 - Membaca IP Address Komputer

Artikel pertama saya, udah lama ga ngepost karena lupa password blogspot :D

Saat membangun sebuah sistem terlebih jika menggunakan jaringan intranet / LAN tentunya kita memerlukan sebuah identitas untuk masing - masing komputer, salah satu identitas tersebut adalah IP Address dan Nama PC.

Untuk membuatnya silahkan letakkan 2 Label, 2 Edit dan 1 BitButton desain sehingga seperti gambar berikut :

Double klik pada button Get dan isikan kode berikut :

procedure TGet_IP_Address.BitBtn1Click(Sender: TObject);
var
wVersionRequested : WORD;
wsaData : TWSAData;
phe : PHostEnt;
stri : array[0..128] of char;
pc : PChar;
snet: PChar;
begin
//start winsock
wVersionRequested := MAKEWORD(1, 1);
WSAStartup(wVersionRequested, wsaData);

//get computer name
GetHostName(@stri, 128);
phe := GetHostByName(@stri);

//get ip address
pc := iNet_ntoa(PInAddr(phe^.h_addr_list^)^);

EdtIPAddr.Text := pc;
EdtHostName.Text := phe^.h_Name;

//clean up winsock
WSACleanup;
end;

kemudian Run. Hasilnya seperti berikut

Silahkan di download
Download Program dan Source Code

• Tweet
• Share