取外网IP函数
来源:互联网 发布:怎么查看windows密码 编辑:程序博客网 时间:2024/06/05 19:13
注:取自群友的函数
function GetWanIp: string;
var
xml : OleVariant;
r:string;
p1,p2 : Integer;
begin
xml := CreateOleObject('Microsoft.XMLHTTP');
xml.Open('GET','http://www.net.cn/static/customercare/yourIP.asp', False);
xml.Send;
r := xml.responseText;
p1:=Pos('<h2>',r); // 找到 h2 标签
p2:=Pos('</h2>',r); // 找到 h2 结束标签
Result := Copy(r, p1+4, p2-p1-4);
end;
var
xml : OleVariant;
r:string;
p1,p2 : Integer;
begin
xml := CreateOleObject('Microsoft.XMLHTTP');
xml.Open('GET','http://www.net.cn/static/customercare/yourIP.asp', False);
xml.Send;
r := xml.responseText;
p1:=Pos('<h2>',r); // 找到 h2 标签
p2:=Pos('</h2>',r); // 找到 h2 结束标签
Result := Copy(r, p1+4, p2-p1-4);
end;
另一法,通过uPnP协议,在内网直接从路由器里取
使用TBurroNAT控件的GetExternalIP方法
使用TBurroNAT控件的GetExternalIP方法
- 取外网IP函数
- IP地址限制函数
- IP函数分析_APUE
- ip限制函数
- PHP函数取得IP
- 获取ip地址函数
- 获取ip地址函数
- IP的转换函数
- 获取IP地址函数
- PHP IP函数
- ip地址转换函数
- IP地址转换函数:
- IP地址转换函数
- IP地址转换函数
- php 获取IP函数
- 判断IP地址函数
- mysql ip处理函数
- ip范围限制函数
- MySQL常用命令总结
- J2ME蓝牙连接步骤
- Makefile学习笔记---------自动化变量
- 开始奋斗
- Delphi经典实例11------特殊字符处理
- 取外网IP函数
- 网站策划系列:如何成为优秀的产品经理
- ORACLE ERP开发基础之前言
- 菜鸟杂谈
- JavaScriptSerializer 对 DateTime 数据类型的JSON序列化的问题
- QT: Fast way to measure time?
- JavaScriptSerializer 对 DateTime 数据类型的JSON序列化的问题
- STP mitm attack idea
- linux笔试题目