Нахождения собственного IP

Советы » TCP/IP » Нахождения собственного IP

var

WSAData: 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

;

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

Категории

Статьи

Советы

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