Как получить ip адрес в delphi?

1
2
3
4

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IdIPWatch1.LocalIP); //Вы водит локальный IP адрес
end;

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20

uses Winsock;

function GetIPAddress: String;
var
  HostEnt: PHostEnt;
  WSAData: TWSAData;
  Buf: array [0..127] of AnsiChar;
begin
  WSAStartup(MAKEWORD(1,1), WSAData);
  try
    GetHostName(Buf, SizeOf(Buf));
    HostEnt := GetHostByName(Buf);
    if Assigned(HostEnt) then
      Result := StrPas(inet_ntoa(PInAddr(HostEnt^.h_addr_list^)^))
    else
      Result := '';
  finally
    WSACleanup;
  end;
end;

1
2
3
4
5
6

uses IdStack;

function GetIPAddress: String;
begin
  Result := GStack.LocalAddress;
end;