12-24-2013, 09:51 AM
Coding Menampilkan IP di Project jadi langsung aja tanpa basa basi
![[Image: Untitled.png]](https://images.weserv.nl/?url=s20.postimg.cc%2F52bxded55%2FUntitled.png)
1. Tambahkan 1 Timer dan 1 Label pada project
2. Tambahkan winsock di uses
3. Tambahkan kode ini tepat di bawah {$R *.dfm}
Tambahkan code di timer / klik 2x pada timer :
pada label1 diatas sesuaikan dengan label yang anda pakai
![[Image: Untitled.png]](https://images.weserv.nl/?url=s20.postimg.cc%2F52bxded55%2FUntitled.png)
1. Tambahkan 1 Timer dan 1 Label pada project
2. Tambahkan winsock di uses
3. Tambahkan kode ini tepat di bawah {$R *.dfm}
Code:
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;
Tambahkan code di timer / klik 2x pada timer :
Code:
Label1.Caption:=getips.Text;
pada label1 diatas sesuaikan dengan label yang anda pakai
[Only registered and activated users can see links Click here to register]