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 单元。 

相关阅读 >>

Delphi2009 使用 png 图片

Delphi2010中使用pchar时e2010 incompatible types: 'char' and 'ansichar' 错误的处理

Delphi带进度条复制文件函数

Delphi 在memorystream查找字符串

Delphi 端口扫描器原理

Delphi thttpclient 时获取跳转后的 url

Delphi如何把一个文本列表添加到tlistbox并避免重复项

Delphi webbrowser 查找对话框

Delphi 检测应用程序是否已停止响应

Delphi 获取windows系统网卡mac地址

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

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