delphi 获取本地IP地址源码

uses WinSock;

function LocalIP: 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

try

WSAStartup($101, GInitData);

Result := '';

GetHostName(Buffer,SizeOf(Buffer));

phe := GetHostByName(buffer);

if phe <> nil Then

begin

pptr := PaPInAddr(Phe^.h_addr_list);

I := 0;

while pptr^[I] <> nil do

begin

if i=0 then

result := StrPas(inet_ntoa(pptr^[I]^))

else

result:=result+ ', '+ StrPas(inet_ntoa(pptr^[I]^));

Inc(I);

end;

finally

WSACleanup;

end;

————————————————

原文链接：https://blog.csdn.net/xxkku521/article/details/11609499

推荐分享