Senin, 22 Februari 2016

Cara Menampilkan IP Address Pada Project Program Delphi 7 [T7]

Berikut adalah tips Cara Menampilkan IP Address Pada Project Program Delphi 7 [T7] yang dimana ini adalah tutorial kelanjutan dari [T6] yang sebelumnya yaitu Cara Mengatur Interval Timer di Delphi ok untuk menampilkan ip address dengan bantuan delphi silahkan langsung disimak saja.

1. Pada langkah yang pertama silahkan tambahkan komponen label kemudian ganti namanya menjadi ip lalu captionnya ganti jadi 127.0.0.1 yang dimana konsep menampilkan ip address ini akan kita gabungkan dengan konsep Auto Route, Ping IP, Reconnect modem agar program bisa reconnect ketika modem di on offkan nanti kita akan bahas di T T T berikutnya.

Cara Menampilkan IP Address Dengan Delphi

2. Langkah yang kedua silahkan tambahkan winsock pada uses winsock atau windows socket adalah perintah line break yang sudah ada pada system windows dan winsock sendiri tergantung untuk apa dia dipanggil.

Cara Menampilkan IP Address Dengan Delphi

3. Langkah yang ketiga kemudian silahkan tambahkan kode dibawah ini tepat dibawah implementation contohnya bisa dilihat digambar saja.

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;

Cara Menampilkan IP Address Dengan Delphi

4. Yang keempat lalu tambahkan kode dibawah ini tepat dibawah kode b5.Interval :=strtoint(rec.text); silahkan perhatikan gambarnya dibawah.

ip.Caption:=getips.Text;

Cara Menampilkan IP Address Dengan Delphi

5. Yang terakhir silahkan build projectnya nah dengan begitu maka anda sekarang bisa melihat ip adress anda pada program buatan anda tersebut, dan untuk keperluan apa lainnya tentang ip adress disini akan kita simak di selanjutnya dan ditunggu saja di postingan T T T  berikutnya.

Update untuk bagian kedelapannya [T8] silahkan cek DISINI

Ya sudah sob itu saja dulu info tentang Cara Menampilkan IP Address Pada Project Program Delphi 7 [T7] Terbaru 2016 terima kasih.

Baca Juga: Cara Ping , Tracert dan Pathing Pada Jaringan Komputer