使用ip138的服务器获取外网IP

获取介绍:

访问ip138.com的内部页面内容来读取IP地址信息

var
  xml: OleVariant;
  r,rtmp: string;
  p1, p2: Integer;
begin
  //获取IP138的内嵌地址
    xml := CreateOleObject('Microsoft.XMLHTTP');
    xml.Open('GET', 'http://ip138.com/', False);
    xml.Send;
    r := xml.responseText;
    p1 := Pos('iframe src="', r); // 找到 h2 标签
    p2 := Pos('" rel=', r);   // 找到 h2 结束标签
    rtmp := Copy(r, p1 + 12, p2 - p1 - 12);
    edts1.Text := rtmp;//内嵌的地址

    //获取内嵌地址中的IP
    xml := CreateOleObject('Microsoft.XMLHTTP');
    xml.Open('GET', rtmp, False);
    xml.Send;
    r := xml.responseText;
    p1 := Pos('[', r); // 找到 h2 标签
    p2 := Pos(']', r);   // 找到 h2 结束标签
    edts2.Text := Copy(r, p1 + 1, p2 - p1 - 1);//获取的IP

发表评论