获取 IP138 IP 地址

本文整理自网络，侵删。

 uses里面加ComObj 
function GetIP: string; //获取外网IP
var
xml : OleVariant;
r:string;
p1,p2 : Integer;
begin
xml := CreateOleObject('Microsoft.XMLHTTP');
xml.Open('GET','http://www.ip138.com/ip2city.asp', False);
xml.Send;
r := xml.responseText;
p1:=Pos('[',r);
p2:=Pos(']',r); 
Result := Copy(r, p1+1, p2-p1-1);
end;
 

相关阅读 >>

Delphi 修改ie首页代码

Delphi整理三（窗体和基本组件）

Delphi一个简单的穿墙下载者

Delphi调用程序版本信息的方法

Delphi 泛型数组 strsplit 字符串分割

Delphi ansi字符串转unicode编码

Delphi xe7实现的登录窗体的正确用法示例

Delphi 简单的旋转图像角度代码

Delphi cxgrid中回车键光标移到下列

Delphi tparallel并行性能测试

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » 获取 IP138 IP 地址