获得本机IP资源-CSDN文库

需积分: 1 39 浏览量 2012-08-06 22:05:03 上传评论收藏 1KB TXT 举报

在IT领域，获取本机IP地址是网络编程中一个常见的需求，无论是为了网络通信、安全控制还是数据分析，了解如何在不同的编程环境下获取本机IP都显得尤为重要。从给定的文件内容来看，主要涉及了三种不同的方法来实现这一功能：使用Delphi语言编写本地应用程序、利用ASP网页脚本来获取服务器或客户端IP，以及通过调用特定网站API来间接获取本机IP。下面将对这三种方法进行详细解析。 ### Delphi语言获取本机IP 在Delphi代码片段中，首先通过`IdHTTP1.Get()`函数发送HTTP请求至`http://www.ipseeker.cn`，该网站会返回包含访问者IP地址的HTML页面。随后，通过一系列字符串处理函数（如`Pos()`、`Copy()`、`Delete()`和`StringReplace()`）提取出IP地址。具体步骤如下： 1. **获取网页内容**：通过`IdHTTP1.Get()`函数向目标URL发送GET请求，并将返回的HTML文本存储在`Memo1.Text`变量中。 2. **提取IP地址**：使用`Pos()`函数定位到包含IP地址的关键字符串（在示例中为`ѯ`），并通过`Copy()`函数截取这部分字符串。然后，删除已处理过的部分，重复此过程直至所有可能的IP地址都被提取。 3. **格式化输出**：使用`StringReplace()`函数去除提取结果中的多余字符，最终将整理后的IP地址显示在`Memo2.Text`中。 ### ASP网页脚本获取IP 在ASP网页脚本中，可以轻松地获取客户端（即访问者）或服务器自身的IP地址。这通常通过读取`Request.ServerVariables`对象的特定属性来实现。例如： ```vbscript <% ' 获取服务器的IP地址 sip = Request.ServerVariables("LOCAL_ADDR") ' 获取客户端（访问者）的IP地址 cip = Request.ServerVariables("REMOTE_ADDR") %> <body> IP=<%= cip %> </body> ``` 在上面的ASP代码中，`Request.ServerVariables("LOCAL_ADDR")`用于获取服务器自身的IP地址，而`Request.ServerVariables("REMOTE_ADDR")`则用于获取客户端（即访问者的浏览器）的IP地址。这些值随后被嵌入到网页的HTML代码中，供用户查看。 ### 调用特定网站API获取本机IP 除了以上两种直接或间接的方法外，还可以通过调用专门提供此类服务的网站API来获取本机IP地址。例如，在提供的代码中，`IdHTTP1.Get()`函数同样被用于调用`http://www.xxx.cn/ip.asp`，该网址假设是一个能够返回访问者IP地址的API接口。这种方法的实现相对简单，只需构造合适的HTTP请求即可。 ### 总结获取本机或远程客户端的IP地址是网络编程中的基础操作之一，不同的应用场景可能需要采用不同的技术手段。无论是使用本地编程语言如Delphi，还是通过网页脚本如ASP，亦或是调用第三方API，关键在于理解各种方法的工作原理及其适用场景，以便在实际开发中做出合理的选择。上述三种方法分别展示了不同环境下的实现方式，为开发者提供了多样化的解决方案。

资源推荐

资源详情

资源评论

用另类法获得外网IP地址

function pro_result(str:string):string ;//封装了成一个匹配字符的处理函数
var
i_0,i_1:Integer;
flag:Boolean;
str_1,temp_result:string;
begin
temp_result:='';
while Pos('查询结果',str)<>0 do
begin
i_1:=Pos('</span>',str);
i_0:=Pos('查询结果',str);
temp_result:=temp_result+Copy(str,i_0,i_1-i_0)+#13#10;
Delete(str,1,Pos('</span>',str));
end;
temp_result:=StringReplace(temp_result,' ','',[rfreplaceall,rfignorecase]);
Result:=temp_result;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
temp,str_1,str_2:string;
i:Integer;
begin
Memo1.Text:=IdHTTP1.Get('http://www.ipseeker.cn');
temp:=Memo1.Text;
i:=Pos('查询结果',temp);
str_1:=Copy(temp,i,254);

本内容试读结束，登录后可阅读更多

下载后可阅读完整内容，剩余1页未读，立即下载

评论收藏

内容反馈