您的位置: 首页  >  IT文章  >  Delphi  >  怎么获取外网下网地址IP（非本机IP）

怎么获取外网下网地址IP（非本机IP）

分类: IT文章 • 2022-07-19 16:51:22
如何获取外网上网地址IP（非本机IP）
如何获取外网上网地址IP（非本机IP）

------解决方案--------------------
Delphi(Pascal) code

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;

相关推荐