Gimana sintak program pada delphi buat namilin IP Address komp yang sedang kita pakai. Thank berat atas bantuannya :roll: :!: :?:

try to follow this link: http://delphi.about.com/od/networking/l/aa103100a.htm

http://pascal-id.org/dpr/Downloads-index-req-viewdownloaddetails-lid-138.pas

function GetIP(var HostName, IPAddr: string): Boolean; type Name = array of Char; PName = ^Name; var PHE: PHostEnt; // Pointer ke struktur HOSTENT HName: PName; // Nama Host WSAData: TWSAData; // Struktur WSADATA Windows Socket i: Integer; begin Result := False; // Memulai sesi Windows Socket if WSAStartup($0101, WSAData) <> 0 then Exit; IPAddr := ''; New(HName); // Menemukan nama host standar pada komputer lokal if GetHostName(HName^, SizeOf(Name)) = 0 then begin HostName := string(HName^); // Memperoleh informasi host dari nama haost yg diketahui PHE := GetHostByName(HName^); for i := 0 to PHE^.h_length - 1 do IPaddr := Concat(IPAddr, IntToStr(Ord(PHE^.h_addr_list^[i])) + '.'); // Mengeset panjang string alamat IP yg diperoleh SetLength(IPAddr, Length(IPaddr) - 1); Result := True; end; Dispose(HName); // Mengakhiri sesi Windows Socket WSACleanup; end; procedure TForm1.Button1Click(Sender: TObject); var HostName, IP : string; begin if GetIP(HostName, IP) then begin Edit1.Text := HostName; Edit2.Text := IP; end else ShowMessage('Gagal memperoleh nama Host dan IP'); end; end.

udah coba pake komponen bawaan delphi ? di indymisc ada IDIPWATCH Pakenya tinggan edit1.text:= idipwatch1.localip; {ni buat nampiliin IP address komputer yang lagi di pake} edit2.text:=idipwatch1.LocalName; {yg ini buat nampilin nama komputernya}