本篇文章主要介绍了"DELPHI取得本机IP的一个方法"，主要涉及到Delphi,本机ip方面的内容，对于Delphijrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播感兴趣的同学可以参考一下：
最近在做一个小项目，需要用到取本机IP的功能， 从网上找了一个， 实测可以正常运行。function GetLocalIP:string; type T...
最近在做一个小项目，需要用到取本机IP的功能， 从网上找了一个， 实测可以正常运行。
function GetLocalIP:string;
type
TaPInAddr = array [0..10] of PInAddr; //用于存储活动的ip地址列表
PaPInAddr = ^TaPInAddr;
var
phe : PHostEnt;
pptr : PaPInAddr;
Buffer : array [0..63] of char; //store hostname
I : Integer;
GInitData : TWSADATA;
wVersion:word;
begin
wVersion:=MAKEWORD(1,1); //winsock dll version
Result :='';
if WSAStartup(wVersion, GInitData)=0 then //初始化windows socket
begin
if GetHostName(Buffer, SizeOf(Buffer))=0 then //计算机名称
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; //关闭、清理windows socket
end;
end;
以上就介绍了DELPHI取得本机IP的一个方法，包括了Delphi,本机ip方面的内容，希望对Delphijrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播有兴趣的朋友有所帮助。
本文网址链接：http://www.codes51.com/article/detail_710510.html
