Delphi for delphier

Mendapatkan IP dan Nama Komputer

Eko IndriyawanIP dan Nama Komputer merupakan dua hal yang tidak bisa terlepas jika kita berurusan dengan jaringan.

Membuat program aplikasi yang bisa berjaringan atau bisa diakses oleh banyak komputer merupakan suatu hal tersendiri bagi kita sebagai seorang programmer.

Pada tips kali ini saya ingin memberikan teknik prosedur untuk mendapatkan data IP atau Nama Komputer dari sebuah PC.

Untuk informasi lebih jelasnya, silahkan anda baca artikel ini lebih lanjut….

Untuk mengambil data IP atau Nama Komputer dari sebuah PC sebenarnya merupakan suatu hal yang mudah dan tidak rumit.

Namun demikian, apabila kita tidak tahu caranya hal itu kadang bisa membuat kita juga bingung setengah mati.

Baiklah, kali ini kita akan bahas bagaimana delphi mendapatkan data IP atau Nama Komputer dari sebuah PC dengan menggunakan library [b]Winsock[b]

– Silahkan anda buat program aplikasi baru
– Tambahkan library Winsock pada uses

….
….
uses
Windows, Messages, SysUtils, Variants,
Classes, Graphics, Controls, Forms,
Dialogs,WinSock, StdCtrls, ExtCtrls;
….
….

– Buat prosedur seperti terlihat berikut

….
….
procedure GetHostInfo(var Name, Address: string);
var
WSAData: TWSAData;
HostEnt: PHostEnt;
begin

WSAStartup(2, WSAData);
SetLength(Name, 255);
Gethostname(PChar(Name), 255);
SetLength(Name, StrLen(PChar(Name)));
HostEnt := gethostbyname(PChar(Name));
with HostEnt^ do
Address := Format(‘%d.%d.%d.%d’,[
Byte(h_addr^[0]),
Byte(h_addr^[1]),
Byte(h_addr^[2]),
Byte(h_addr^[3])]);
WSACleanup;

end;
….
….

Teknik ini dibuat oleh Michael Beck yang saya implementasikan dalam bentuk program

Untuk lebih jelasnya silahkan anda download program yang sudah saya buat.

Anda bisa mendownload program tersebut disini

Semoga artikel dan contoh program ini bisa bermanfaat

Tinggalkan sebuah Komentar »

Belum ada komentar.

RSS feed for comments on this post. TrackBack URI

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Blog di WordPress.com.

%d blogger menyukai ini: