Как определить свой IP адрес

Советы » TCP/IP » Как определить свой IP адрес

uses


  WinSock;

function

GetLocalIP: String

; const

WSVer = $101; var


  wsaData: TWSAData;   P: PHostEnt;
  Buf: array

[0..127] of

Char; begin


  Result := '';
  if

WSAStartup(WSVer, wsaData) = 0 then

begin

    if

GetHostName(@Buf, 128) = 0 then

begin

      P := GetHostByName(@Buf);       if

P <> nil

then

Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);     end

;     WSACleanup;   end

;
end

;
 

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

Категории

Статьи

Советы

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