获取外网ip地址

通过TIdHTTP空间的Get访问外网IP查询

procedure TForm1.Button1Click(Sender: TObject);
var
    stxt:string;
    i,i2:integer;
begin
   //如果访问出现“HTTP1.1/ 403 Forbidden”错误，需要以下4行代码
    IdHTTP1.HandleRedirects:=true;
    //IdHTTP1.HTTPOptions[hoForceEncodeParams];
    IdHTTP1.ProtocolVersion:= pv1_1;
    IdHTTP1.Request.UserAgent := 'Mozilla/5.0 (compatible; Test)';
    // 为解决出现“HTTP1.1/ 403 Forbidden”错误，需要以上4行代码
    stxt :=IdHTTP1.Get('http://www.ip138.com/ip2city.asp');   //获取数据
    i:=Pos('：[',stxt);//查找第一个位置
    Delete(stxt,1,i+2);//delete
    i2:=Pos(']',stxt);
    stxt:=Copy(stxt,1,i2-1);
    label1.Caption := stxt;
end;