Delphi 获取Ip地址的方法总结

通过注册表获取或修改Ip

想到Windows会把系统网卡相关信息存入注册表，肯定可通过注册表读取具体ip信息。大致思路是找HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards ，由NetworkCards得分支表示各个网卡的信息通过ServiceName到 HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces 下找到对应的网卡配置详细信息，通过对注册表的read与write实现读取或修改ip地址等信息。

通过解析批处理命令结果获取

在cmd命令行输入ipconfig可以显示出当前电脑ip地址，可以考虑先执执行命令"Ipconfig /all >Ips.txt"，然后解析Ips.txt文件得到本机的Ip信息，此方法较繁杂。

通过delphi控件获取Ip

找到fastnet 下的 Tpowersock控件，利用 该控件localip属性返回 本机（主要指局域网） ip地址 。 放一个控件在窗体上可得到本机IP，方便简单。

通过WinSock函数获取Ip

此方法在程序中常用，一般函数如下：

//多网卡 将IP地址写入到列表，求本机IP的话返回IP列表中的第一个即可，该函数要引用 WinSock

function GetLocalIpList(var IpList:TStringList):Integer;

type

TaPInAddr = array[0..10] of PInAddr;

PaPInAddr = ^TaPInAddr;

var

HostName: array [0..MAX_PATH] of char;

NameLen: Integer;

WSData: TWSAData;

lpHostEnt: PHostEnt;

I: Integer;

pptr: PaPInAddr;

begin

Result := 0;

if WSAStartup(MakeWord(2,0), WSData) <> 0 then Exit;

try

NameLen := sizeof(HostName);

fillchar(HostName, NameLen, 0);

NameLen := GetHostName(HostName, NameLen);

if NameLen = SOCKET_ERROR then Exit;

lpHostEnt := GetHostByName(HostName);

if lpHostEnt = Nil then Exit;

I := 0;

pPtr := PaPInAddr(lpHostEnt^.h_addr_list);

IpList.Clear;

while pPtr^[I] <> nil do

begin

IpList.ADD( inet_ntoa(pptr^[I]^));

Inc(I);

end;

Result := IpList.Count;

finally

WSACleanup;

end;

end;

该函数用到的主要Winsock方法有：

（1）WSAStartup，即WSA(Windows SocKNDs Asynchronous，Windows异步套接字)的启动命令。是Windows下的网络编程接口软件Winsock1 或 Winsock2 里面的一个命令（Ps：Winsock 是由Unix下的BSD Socket发展而来,是一个与网络协议无关的编程接口）。为了在应用程序当中调用任何一个Winsock API函数，首先第一件事情就是必须通过WSAStartup函数完成对Winsock服务的初始化，因此需要调用WSAStartup函数。使用Socket的程序在使用Socket之前必须调用WSAStartup函数。该函数的第一个参数指明程序请求使用的Socket版本，其中高位字节指明副版本、低位字节指明主版本；操作系统利用第二个参数返回请求的Socket的版本信息。当一个应用程序调用WSAStartup函数时，操作系统根据请求的Socket版本来搜索相应的Socket库，然后绑定找到的Socket库到该应用程序中。以后应用程序就可以调用所请求的Socket库中的其它Socket函数了。函数定义如下：

　　int WSAStartup ( WORD wVersionRequested, LPWSADATA lpWSAData )；wVersionRequested

　　⑴ wVersionRequested：一个WORD（双字节）型数值，指定了应用程序需要使用的Winsock规范的最高版本。高位字节指出副版本(修正)号，低位字节指明主版本号。

⑵lpWSAData 指向WSADATA数据结构的指针，用来接收Windows Sockets实现的细节。

本函数必须是应用程序或DLL调用的第一个Windows Sockets函数。它允许应用程序或DLL指明Windows Sockets API的版本号及获得特定Windows Sockets实现的细节。应用程序或DLL只能在一次成功的WSAStartup()调用之后才能调用进一步的Windows Sockets API函数。

　　为支持日后可能和Windows Sockets 1.1有功能上差异的Windows Sockets实现及应用程序，在WSAStartup()中规定了一个协议。WSAStartup()的调用方和Windows Sockets DLL互相通知对方它们可以支持的最高版本，并且互相确认对方的最高版本是可接受的。在WSAStartup()函数的入口，Windows Sockets DLL检查了应用程序所需的版本。如果所需版本低于DLL支持的最高版本，则调用成功并且DLL在wHighVersion中返回它所支持的最高版本，在

　　wVersion中返回它的高版本和wVersionRequested中的较小者。然后Windows Sockets DLL就会假设应用程序将使用wVersion.如果WSDATA结构中的wVersion域对调用方来说不可接收，它就应调用WSACleanup()函数并且要么去另一个Windows Sockets DLL中搜索，要么初始化失败。

　　本协议允许Windows Sockets DLL和Windows Sockets应用程序共同支持一定范围的Windows Sockets版本。如果版本范围有重叠，应用程序就可以成功地使用Windows Sockets DLL。下列的图表给出了WSAStartup()在不同的应用程序和Windows Sockets DLL版本中是如何工作的：

　　应用程序版本 DLL版本 wVersionRequested wVersion wHighVersion 最终结果

　　1.1 1.1 1.1 1.1 1.1 use 1.1

　　1.0 1.1 1.0 1.1 1.0 1.0 use 1.0

　　1.0 1.0 1.1 1.0 1.0 1.1 use 1.0

　　1.1 1.0 1.1 1.1 1.1 1.1 use 1.1

　　1.1 1.0 1.1 1.0 1.0 失败

　　1.0 1.1 1.0 －- －- WSAVERNOTSUPPORTED

　　1.0 1.1 1.0 1.1 1.1 1.1 1.1 use 1.1

　　1.1 2.0 1.1 2.0 1.1 1.1 use 1.1

2.0 1.1 2.0 1.1 1.1 失败

返回值：0 成功。否则返回下列的错误代码之一。注意通常依靠应用程序调用WSAGetLastError()机制获得的错误代码是不能使用的，因为Windows Sockets DLL可能没有建立"上一错误"信息储存的客户数据区域。

　　关于Windows Sockets提供者的说明：

　　每一个Windows Sockets应用程序必须在进行其它Windows Sockets API调用前进行WSAStartup()调用。这样，本函数就可以用于初始化的目的。

　　进一步的说明在WSACleanup()的说明中有讨论。

错误代码

　　WSASYSNOTREADY 指出网络通信依赖的网络子系统还没有准备好。

　　WSAVERNOTSUPPORTED 所需的Windows Sockets API的版本未由特定的Windows Sockets实现提供。

WSAEINVAL 应用程序指出的Windows Sockets版本不被该DLL支持。

（2）WSACleanup函数

int WSACleanup (void);

应用程序在完成对请求的Socket库的使用后，要调用WSACleanup函数来解除与Socket库的绑定并且释放Socket库所占用的系统资源。

WSAStartup应该与WSACleanup成对使用，WSAStartup的功能是初始化Winsock DLL，WSACleanup是来解除与Socket库的绑定并且释放Socket库所占用的系统资源。 在Windows下，Socket是以DLL的形式实现的。在DLL内部维持着一个计数器，只有第一次调用WSAStartup才真正装载DLL，以后的 调用只是简单的增加计数器，而WSACleanup函数的功能则刚好相反，每调用一次使计数器减1，当计数器减到0时，DLL就从内存中被卸载！因此，你 调用了多少次WSAStartup，就应相应的调用多少次的WSACleanup.

（3）gethostname()

　　【函数原型】

int PASCAL FAR gethostname (char FAR * name, int namelen);

　　【使用说明】

　　该函数可以获取本地主机的主机名，其中：

　　name：用于指向所获取的主机名的缓冲区的指针。

　　Namelen：缓冲区的大小，以字节为单位。

返回值：若无错误，返回0；否则，返回错误代吗。

（4）gethostbyname()

　　【函数原型】

struct hostent FAR * PASCAL FAR gethostbyname(const char FAR * name);

　　【使用说明】

　　该函数可以从主机名数据库中得到对应的"主机"。

　　该函数唯一的参数name就是前面调用函数gethostname()得到的主机名。若无错误，刚返回一个指向hostent结构的指针，它可以标识一个"主机"列表。