delphi获取本机的IP地址

本文整理自网络，侵删。

 function GetLocalIP: 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 := ''; 
GetHostName(Buffer, SizeOf(Buffer)); 
phe :=GetHostByName(buffer); 
if phe = nil then Exit; 
pptr := PaPInAddr(Phe^.h_addr_list); 
I := 0; 
while pptr^[I] <> nil do begin 
result:=StrPas(inet_ntoa(pptr^[I]^)); 
Inc(I); 
end; 
WSACleanup; 
end; 

//别忘记声明winsock，不然会报错的。即在uses 中加入 winsock 单元。 

相关阅读 >>

Delphi中调用http xml

Delphi 获取网络文件大小

Delphi xe 中的字符串生成哈希值（md5 / sha-1 / jenkins）

Delphi xe6通过wifiapi得到wifi信息

Delphi xe6 �c使用android的zlib

Delphi 在rxrichedit中插入图片的完美解决方法

Delphi webbrowser1提取网页中的所有链接、点击第 n 个链接

Delphi两个取字串长度的函数strlen,length

Delphi中实现dbgrid列宽度自动调整

Delphi 获取上一次文件访问时间

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi获取本机的IP地址