Menampilkan Nama PC dan IP menggunakan Delphi

Kali Ini saya mau shere bagaimana cara menampilkan Nama PC dan IP di Aplikasi yang kita buat..
Kurang lebih tampilannya seperti diatas:

 Sebelum membuat fungtionnya terlebuh dahulu tambahkan WinSock pada Uses.

uses
  UMenu,IniFiles,WinSock; 

Kemudian buatlah fungtion seperti dibawah ini:
letakan tepat dibawah {$R *.dfm}

function GetIPFromHost
(var HostName, IPaddr, WSAErr: 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
    WSAErr := 'Winsock is not responding."';
    Exit;
  end;
  IPaddr := '';
  New(HName);
  if GetHostName(HName^, SizeOf(Name)) = 0 then
  begin
    HostName := StrPas(HName^);
    HEnt := GetHostByName(HName^);
    for i := 0 to HEnt^.h_length - 1 do
     IPaddr :=
      Concat(IPaddr,
      IntToStr(Ord(HEnt^.h_addr_list^[i])) + '.');
    SetLength(IPaddr, Length(IPaddr) - 1);
    Result := True;
  end
  else begin
   case WSAGetLastError of
    WSANOTINITIALISED:WSAErr:='WSANotInitialised';
    WSAENETDOWN      :WSAErr:='WSAENetDown';
    WSAEINPROGRESS   :WSAErr:='WSAEInProgress';
   end;
  end;
  Dispose(HName);
  WSACleanup;
end; 

Kemudian Letakan letakan kode ini dimana anda akan memanggil procedur tersebu, bisa diletakan di button seperti yang saya buat dibawah ini:

procedure TFrm_Login.btn_LoginClick(Sender: TObject);
var Host, IP, Err: string;
begin
  if GetIPFromHost(Host, IP, Err) then begin
      Frm_menu.sStatusBar1.Panels[3].Text:='('+Host+') / IP : '+IP;
  end
  else
    MessageDlg(Err, mtError, [mbOk], 0);
end;

Ok... Demikian tutorial yang saya buat. Semoga bermanfaat!!!

Share on Google Plus

About sadf

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.