Selamat Datang Di Weblog http://delphiscript.blogspot.com, Mari Kita Belajar Bersama Tentang Blogging, dan Internet Marketing
"Dan di antara manusia (ada) orang yang mempergunakan perkataan yang tidak berguna untuk menyesatkan (manusia) dari jalan Allah tanpa pengetahuan dan menjadikan jalan Allah itu olok-olokan. Mereka itu akan memperoleh azab yang menghinakan" [Q.S Luqman : 6]

Mendapatkan IP Address Komputer Dengan Delphi

Mungkin bagi temen2 yang butuh untuk ngecek IP Addres komputer pakai aplikasi Delphi bisa nyoba cara berikut ini :


uses Winsock;


function getIPs: Tstrings;
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);
Result := TstringList.Create;
Result.Clear;
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.Add(inet_ntoa(pptr^[I]^));
Inc(I);
end;
WSACleanup;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetIps.text);
end;

Jangan lupa gunakan klausa uses winsock; moga membantu

Refference : delphitrics.com





Artikel yang berhubungan..