如何获取外网上网地址IP(非本机IP)
如何获取外网上网地址IP(非本机IP)
[解决办法]
uses IdHTTP;
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
idhttp:Tidhttp;
begin
idhttp:=Tidhttp.Create(self);
try
s:=idhttp.Get('http://city.ip138.com/city0.asp');
showmessage(copy(s,pos('[',s)+1,pos(']',s)-pos('[',s)-1));
finally
idhttp.Free;
end;
end;