Delphi如何获取本机IP地址

最新推荐文章于 2024-05-14 15:44:10 发布
最新推荐文章于 2024-05-14 15:44:10 发布
阅读量2.1k 收藏
点赞数 1
分类专栏： Delphi 文章标签： Delphi 获取IP地址
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_41660162/article/details/79828680
版权

Delphi获取本机IP地址

//获取本机IP
function TKSMsgLog.GetLocalAddress:String;
type
    TaPInAddr = array [0..10] of PInAddr;
    PaPInAddr = ^TaPInAddr;
var
    phe  : PHostEnt;
    pptr : PaPInAddr;
    Buffer : array [0..63] of char;
    I    : Integer;
    GInitData      : TWSADATA;
begin
    WSAStartup($101, GInitData);
    Result :
最低0.47元/天 解锁文章
踏雪寻梅i
关注
  • 1
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
在Delphi中获取本机的IP地址和计算机名称
10-20
使用WinSock中的GetHostByName函数可以快速获得本机的IP地址和计算机名称。这个方法可以嵌套到各种网络应用中。欢迎下载
delphi7 查看本机ip地址
09-07
本文将详细讲解如何使用Delphi 7来获取本机的IP地址，以及相关的编程知识。 首先，我们需要了解IP地址是互联网协议（IP）中用于标识网络上设备的一个唯一数字标识。在IPv4系统中，IP地址通常由四个十进制数表示，每...
delphi获取本机IP地址
zisongjia的博客
03-10 7735
获取本机ip地址，其实方法有很多了，现在用windows api 在delphi下实现如下； 1. 在uses 里引用 winsock 单元。 2. 源码如下：   [delphi] view plain copy  print? function GetLocalIP:string;   type     T
Delphi获取本机IP的函数
最新发布
05-14 257
Delphi获取本机IP的函数，在Delphi11.3 /12 编译通过。
Delphi 中快速获取本机IP地址
YXBS2129的专栏
05-29 700
用Delphi编程序的时候，常常碰到需要在程序中获取自己的IP地址的情况。在以往的版本中，可以通过编写一段代码或函数实现这一功能。但有了Delphi 7，这个工作可以更简化了。利用控件只需一句代码，就可以非常方便地实现这一功能。 　　新建一Project1，在form1中添加控件statusbar1(Win32页)和控件IdIPWatch1(Indy Misc页)。接着设置好控件属性：在statu
Delphi获得IP地址
GuoGuoABC
08-04 1394
获取公网ip uses msxml, RegularExpressions; function GetPublicIP:string; var req: IXMLHTTPRequest; begin req := CoXMLHTTP.Create; req.open('get', 'http://city.ip138.com/ip2city.asp', False, EmptyStr, EmptyStr); req.send(''); Result := TRegE...
Delphi 获取Ip地址的方法总结
weixin_34067980的博客
05-30 228
通过注册表获取或修改Ip 想到Windows会把系统网卡相关信息存入注册表，肯定可通过注册表读取具体ip信息。大致思路是找HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards ，由NetworkCards得分支表示各个网卡的信息通过ServiceName到 HKEY_LOCAL_MACHINE...
delphi获取本机ip用户名
08-21
在Delphi编程环境中，获取本机IP地址和用户名是常见的需求，这主要涉及到网络编程和系统信息获取两个方面。下面将详细讲解如何使用Delphi来实现这些功能。 首先，我们来探讨如何获取本机的IP地址。在Windows操作...
Delphi获取本机IP、名称、网卡MAC等信息..rar
04-29
在Delphi编程环境中，获取本机的IP地址、计算机名称以及网络适配器的MAC（物理）地址是常见的系统信息获取需求。这些信息对于网络通信、设备定位和系统管理至关重要。下面将详细介绍如何使用Delphi来实现这些功能。 ...
DELPHI获取网卡信息和IP地址
07-08
当我们需要在Delphi程序中获取计算机的网络接口卡（NIC，即网卡）信息和IP地址时，可以借助Windows API函数或者第三方库来实现。这篇内容将深入探讨如何使用Delphi来获取这些关键网络数据。 首先，我们需要了解...
delphi获取MAC_IP地址.pas
03-12
delphi7获取MAC地址
Delphi—获取本机“IP地址”和“MAC地址”，并显示在“文本框”里
10-29
需要先安装“Indy控件”，才能正常打开程序。 窗体Form中只用到一个控件：控件栏Indy Misc——IdIPWatch（图标为眼睛）
delphi xe10获得本机所有IP地址.rar
09-21
delphi xe10获得本机所有IP地址.rar
delphi获取Mac物理地址以及计算机名用户名IP地址CPUID等源代码分享
01-26
包含我的一个单元文件。自己写的哦。看完之后大家记得给点改进意见哦
获取本地电脑IP
09-17
Delphi7小工具获取本地电脑IP。
读取本机所有ip列表
04-01
读取本机所有ip列表，引用winapi.winsock
DELPHI 获取本地IP地址源码（Tool）
09-12 1673
uses WinSock; function LocalIP: string; type TaPInAddr = array [0..10] of PInAddr; PaPInAddr = ^TaPInAddr; var phe: PHostEnt; pptr: PaPInAddr; Buffer: array [0..63]
Delphi自定义过程获取本机ip，名字，用户名
十年磨一剑，霜刃未曾试!
02-26 1916
//取本机的 IP 地址<br /><br />functionComputerLocalIP:string;<br />var<br />  ch:array[1..32]ofchar;<br />  wsData:TWSAData;<br />  myHost:PHostEnt;<br />  i:integer;<br />begin<br />  Result:='';<br />  ifWSAstartup(2,wsData)<>0thenExit; // can’t start winsock<
delphi 获取本机网卡信息(包括ipv6 地址信息)
12-01
Delphi是一种流行的编程语言，可以用来开发Windows操作系统上的应用程序。要获取本机的网卡信息，包括IPv6地址信息，可以使用Delphi提供的一些函数和类。 首先，我们可以使用`TIdStack`类来获取本机所有的IP地址。`TIdStack`是Delphi中用于处理网络与套接字编程的类。可以通过调用`TIdStack.LocalAddress`方法来获取本机的IP地址列表。这个方法返回一个`TIdStackLocalAddressList`对象，其中包含了获取到的IP地址的详细信息，包括IPv6地址信息。 下面是一个示例代码，展示了如何获取本机的网卡信息和IPv6地址信息： ```delphi uses IdStack; procedure GetLocalNetworkCardInfo; var Stack: TIdStack; LocalAddressList: TIdStackLocalAddressList; I: Integer; begin Stack := TIdStack.Create; LocalAddressList := TIdStackLocalAddressList.Create; try Stack.GetLocalAddressList(LocalAddressList); for I := 0 to LocalAddressList.Count - 1 do begin // 输出网卡信息 Writeln('网卡名称：', LocalAddressList[I].InterfaceName); Writeln('IPv4地址：', LocalAddressList[I].IPAddress); // 输出IPv6地址信息 if LocalAddressList[I].IPVersion = Id_IPv6 then begin Writeln('IPv6地址：', LocalAddressList[I].IPAddress); Writeln('IPv6标识：', LocalAddressList[I].IP6LocalLink.Address.S6_addr); end; Writeln('-----------------'); end; finally LocalAddressList.Free; Stack.Free; end; end; ``` 在上述代码中，我们首先创建了一个`TIdStack`对象和一个`TIdStackLocalAddressList`对象。然后，调用`GetLocalAddressList`方法来将本机的网卡信息存储到`LocalAddressList`对象中。接下来，我们遍历`LocalAddressList`对象，输出每个网卡的名称和IPv4地址。如果网卡支持IPv6，我们还输出其IPv6地址和IPv6标识。 以上就是使用Delphi获取本机网卡信息（包括IPv6地址信息）的方法。希望对你有帮助！

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值