我知道一个方法：执行外部INTERNET上的一个网页，保存下IP，然后再访问这个保存文件,取得自已的IP。 有没有其它的方法？

DELPHI如何得到本机上INTERNET的IP地址? USES NB30,Winsock; {$R *.dfm} function LocalIP : 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; procedure TForm1.FormCreate(Sender: TObject); begin SHOWMESSAGE(LocalIP); end;

首先非常感谢sos_admin网页的回答. 可能是我没说清楚, 我的意思是想要得到本网络中的路由(或电脑)拨入INTERNET取得的外部IP. 而不是本地IP.

在网上找到这个不知道是不是您想要的 [转帖] get the IP-Address bhind a router/proxy? procedure TForm1.Button1Click(Sender: TObject); var IPSTR, IP, HP: string; BeginIP, EndIP, i: integer; begin Button1.Enabled := False; HP :='http://61.136.62.71/cgi-bin/login'; NMHTTP1.Get(HP); IPSTR := NMHTTP1.Body; BeginIP := Pos('BEGINIP', IPSTR) Length('BEGINIP'); EndIP := Pos('ENDIP', IPSTR); IP := ''; for i := BeginIP to ENDip - 1 do begin IP := IP IPstr[i]; end; label1.Caption := IP; Button1.Enabled := True; end;

aKnightChen 您好:    試試這個看看是不是您要的    資料來源:http://delphi.about.com/library/weekly/aa103100a.htm

uses Winsock;     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;     procedure TForm1.Button1Click(Sender: TObject); 
var 
  Host, IP, Err: string; 
begin 
  if GetIPFromHost(Host, IP, Err) then begin 
    Edit1.Text := Host; 
    Edit2.Text := IP; 
  end 
  else 
    MessageDlg(Err, mtError, [mbOk], 0); 
end; 

/*開心的事情別隱藏在心裡,分享給別人知道會更快樂的*/
/*得到新知識別隱藏在心裡,分享給別人了解會更清楚的*/

非常谢谢. 不过它也是用我一样的方法. 因为要用到"http://61.136.62.71/cgi-bin/login"--而这个文件是INTERNET. 我想可能没有其它方法.必须上INTERNET了.