问一个与DELPHI无关的问题，怎样获取本机的外部IP？？

Question

通过局域网连到互联网络，怎么样获取本机的外部IP地址？？谢谢！Win2000专业版。

Answer 1

网关外部IP我也不知道呀，请问在这种环境下能不能用NetMeeting连接到一台用Adsl上网的机器上？

Answer 2

下面这段代码可以获取外部主机的IP，请尝试function getipaddress: string;
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 := '';
  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 := StrPas(inet_ntoa(pptr^[I]^));
    Inc(I);
  end;
  WSACleanup;
end;

Answer 3

wuyingchen(wuyingchen) ，这段代码中要包括哪些单位总要写出来吧???