Rede - descobrir o IP da maquina local

Top  Previous  Next

uses Winsock;

 

function LocalIP: string;

var

  wsaData: TWSAData;

begin

  WSAStartup( 257, wsaData );

  Result := iNet_ntoa( PInAddr( GetHostByName( NIL )^.h_addr_list^ )^ );

  WSACleanup;

end;

 

function ComputerName: string;

var

  wsaData: TWSAData;

begin

  WSAStartup( 257, wsaData );

  Result := GetHostByName( NIL )^.h_name;

  WSACleanup;

end;