Endere�o IP da m�quina onde roda o sistema

Question

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......

Deus · Answer

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

Paulino · Answer

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