varWSAData: TWSAData; SockAddrIn: TSockAddrIn; Host: PHostEnt; // Эти переменные объявлены в Winsock.pas begin
if
WSAStartup($101, WSAData) = 0 then
begin
Host := GetHostByName(@Localname[1]); if
Host <> nil
then
begin
SockAddrIn.sin_addr.S_addr := longint(plongint(Host^.h_addr_list^)^); LocalIP := inet_ntoa(SockAddrIn.sin_addr); end
; WSACleanUp; end
; end
;