使用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声明：本站所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。
