delphi获取本机IP地址

   获取本机ip地址，其实方法有很多了，现在用windows api 在delphi下实现如下；

1. 在uses 里引用 winsock 单元。

2. 源码如下：

 

[delphi]  view plain  copy

 print ?

1. function GetLocalIP:string;  
2. type  
3.   TaPInAddr = array [0..10] of PInAddr;   //用于存储活动的ip地址列表  
4.   PaPInAddr = ^TaPInAddr;  
5. var  
6.   phe  : PHostEnt;  
7.   pptr : PaPInAddr;  
8.   Buffer : array [0..63] of char;    //store hostname  
9.   I    : Integer;  
10.   GInitData      : TWSADATA;  
11.   wVersion:word;  
12. begin  
13.   wVersion:=MAKEWORD(1,1);     //winsock dll version  
14.   Result :='';  
15.   if WSAStartup(wVersion, GInitData)=0 then   //初始化windows socket   
16.   begin  
17.     if GetHostName(Buffer, SizeOf(Buffer))=0 then  //计算机名称  
18.         phe :=GetHostByName(buffer);  
19.     if phe = nil then  
20.        Exit;  
21.     pptr := PaPInAddr(Phe^.h_addr_list);  
22.     I := 0;  
23.     while pptr^[I] <> nil do begin  
24.       result:=StrPas(inet_ntoa(pptr^[I]^));  
25.       Inc(I);  
26.     end;  
27.     WSACleanup;           //关闭、清理windows socket  
28.   end;  
29. end;  

3.该源码的不足的地方是如果机器上有2张及以上网卡，得到的是最后一个。