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 windows服务控制单元

Delphi 调用sql和mysql存储过程

Delphi settimer 功能：定时api

减小Delphi xe5编译出来的程序体积

Delphi获取13位格林治时间实现方法

Delphi 上传文件到七牛，纯原生

dbgrid的cellclick事件，单击当前行记录的那一行时，不发生

Delphi执行sql提示“不正常地定义参数对象”，“提供了不一致或不完整的信息”错误

Delphi 模似键盘输入又一方法

Delphi ascii 码对照表

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

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