Endereço IP da máquina onde roda o sistema

04/12/2003

1

Como posso pegar o endereço IP da máquina do em que estou rodando o sistema??? Não serve o nome do host pois isso já consegui quero o IP... Urgente...


Responder

Posts

04/12/2003

Deus

Bem, esta função retornara uma string com o IP da máquina que estiver rodando o programa:

function PegaIP: string;
var
       ss: array[0..128] of char;
        p: PHostEnt;
  WSAData: TWSAData;
begin
  WSAStartup(2, WSAData);
  GetHostName(@ss, 128);
  p := GetHostByName(@ss);
  result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
  WSACleanup;
end;


Não esquecendo de adicionar [b:1fe3f46d57]Winsock[/b:1fe3f46d57] à cláusula [i:1fe3f46d57]uses[/i:1fe3f46d57] do Form, pois algumas chamadas desta função estão na referida Unit. ;)

Espero que tenha sido útil! Abraços, dEUS


Responder

04/12/2003

Paulino

Valeu dEUS, serviu sim ....
qualquer dúvida que tb tenha pode entrar em contato por email paulino@usa.com.


Responder