Mendapatkan Nama dan Alamat IP

     Bingung dan lupa dengan nama dan alamat IP komputer?? Tenang saja para “del-man”, kali ini aku akan membahas tentang cara mudah mendapatkan nama dan alamat IP menggunakan Delphi. Pertama-tama buat 1 form yang berisi 2 edit text dan 1 tombol. Kurang lebih tampilannya seperti berikut :










     Langkah pertama buatlah sabuah fungsi untuk mendapatkan nama host dan alamat IP. Listingnya seperti berikut

function CariIP(var NamaHost, AlamatIP, Error: string): Boolean;
type
Name = array[0..100] of Char;
PName = ^Name;
var
HEnt: pHostEnt;
HName: PName;
WSAData: TWSAData;
i: Integer;
begin
Result := False;
if WSAStartup($0101, WSAData) <> 0 then
begin
Error := 'Tidak ada respon dari Winsock."';
Exit;
end;

AlamatIP := '';
New(HName);
if GetHostName(HName^, SizeOf(Name)) = 0 then
begin
NamaHost := StrPas(HName^);
HEnt := GetHostByName(HName^);
for i := 0 to HEnt^.h_length - 1 do
AlamatIP :=
Concat(AlamatIP,
IntToStr(Ord(HEnt^.h_addr_list^[i])) + '.');
SetLength(AlamatIP, Length(AlamatIP) - 1);
Result := True;
end
else begin
case WSAGetLastError of
WSANOTINITIALISED:Error:= 'IP tidak terdeteksi';
WSAENETDOWN :Error:= 'Jaringan sedang down';
WSAEINPROGRESS :Error:= 'Dalam proses';
end;
end;
Dispose(HName);
WSACleanup;
end;

Kemudian untuk listing tombol cek IP sebagai berikut :

procedure TForm1.Button1Click(Sender: TObject);
var
Host, IP, Err: string;
begin
if CariIP(Host, IP, Err) then
begin
Edit1.Text := Host;
Edit2.Text := IP;
end
else
MessageDlg(Err, mtError, [mbOk], 0);
end;


     Ini hanyalah contoh sederhana para “del-man”, silahkan para “del-man” mengembangkannya. Untuk proyek lengkapnya silahkan dodwnload disini.