Fórum Descobrir IP #220889

uses
  WinSock;

{$R *.dfm}

procedure TForm1.PegarIP();
type
   TAPInAddr = Array[0..100] of PInAddr;
   PAPInAddr = ^TAPInAddr;
var
   WSAData: TWSAData;
   Host, nHost: String;
   HostEntPtr: PHostEnt;
   pptr: PAPInAddr;
   i: Integer;
begin
      WSAStartUp( $101, WSAData );
      try

      Host := Trim( ´Nome do Servidor´ );

      // Get host entry by hostname
      HostEntPtr := GetHostByName( PChar( Host ) );
      if HostEntPtr = NIL then
         raise Exception.Create( ´WinSock error: ´ + IntToStr( WSAGetLastError() ) );

      // Make list of host IPs
      pptr := PAPInAddr( HostEntPtr^.h_addr_list );
      i := 0;
      while pptr^[i] <> NIL do
         begin
         nHost:=nHost+( inet_ntoa( pptr^[i]^ ) );
         Inc( i );
         end;

      except
         on E: Exception do
         begin
         Beep();
         ShowMessage( E.Message );
         end;
      end;

      WSACleanUp();

end;

end.