获取本地IP地址的代码示例

"获取本机IP" 在计算机网络中，获取本机IP地址是一项基础操作，这通常涉及到网络通信和服务器交互。本示例提供了几种不同的方法来获取本地IP地址，包括使用 Indy HTTP 客户端组件和解析 HTML 文档。 首先，我们来看一个名为 `pro_result` 的函数，它用于从包含 IP 地址的 HTML 字符串中提取 IP 地址。这个函数通过查找特定的 HTML 标签（如 `<span>` 和 `</span>`）来定位 IP 地址，并使用 `Pos` 函数找到这些标签的位置。然后，使用 `Copy` 函数截取字符串中的 IP 地址部分，并使用 `Delete` 函数去除原始字符串中的已处理部分。最后，使用 `StringReplace` 函数移除任何不需要的字符（例如空格），并返回结果。 在 `TForm1.Button1Click` 事件处理程序中，当用户点击按钮时，`IdHTTP1.Get` 用于向 `http://www.ipseeker.cn` 发送 HTTP GET 请求，获取的响应文本存储在 `Memo1.Text` 中。然后，`temp_result` 变量被初始化为空字符串，并使用 `pro_result` 函数处理 `Memo1.Text` 中的 HTML，提取出的 IP 地址显示在 `Memo2.Text` 中。 另一种获取 IP 地址的方法是通过 ASP（Active Server Pages）脚本。在 ASP 文件中，`Request.ServerVariables` 对象可以用来获取服务器和客户端的相关信息。`LOCAL_ADDR` 返回服务器的 IP 地址，而 `REMOTE_ADDR` 返回请求该页面的客户端的 IP 地址。在这个例子中，IP 地址会被嵌入到 HTML 代码中并显示在网页上。 此外，还有一种方法是通过访问特定的网页（如 `www.xxx.cn/ip.asp`）来获取本机 IP。在 `TForm1.Button1Click` 中，`WebBrowser1.Navigate` 用于加载网页，而 `IdHTTP1.Get` 用于获取该网页的源代码，然后将结果赋值给 `edit1.Text` 显示 IP 地址。 总结来说，获取本机 IP 地址的方法包括： 1. 解析从 HTTP 服务器获取的 HTML 响应，寻找 IP 地址。 2. 使用 ASP 脚本中的 `Request.ServerVariables` 获取服务器和客户端的 IP。 3. 访问特定网页，该网页会返回请求者的 IP 地址。 这些方法都依赖于网络连接，并且适用于不同场景，如本地开发、服务器监控或客户端识别。在实际应用中，可以根据具体需求选择合适的方式。