Delphi-Help

Главная Статьи TCP/IP Как вычислить IP адрес компьютера?

Как вычислить IP адрес компьютера?

Оцените материал
(3 голосов)


Как вычислить 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;
Прочитано 7991 раз

Авторизация



Счетчики