Get ALL Ip

Советы » Интернет » Get ALL Ip

Function

GetLocalIP: string; var


wsaData: TWSAData;
P : PHostEnt;
S : array [0..128] of char; begin


WSAStartup(MAKEWORD(1,1), wsaData); GetHostName(@s, 128);
P:= GetHostByName(@s);
Result:= iNet_ntoa(PInAddr(p^.h_addr_list^)^); WSACleanup;
end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com