Como pegar o IP de uma m�quina.

Question

Amigos estou precisando descobrir o IP e/ou o Nome de uma m�quina.
Quando o programa � aberto Pega o IP da M�quina que o abriu e compara com uma lista de IPs cadastrados no Banco.
Agrade�o se algu�m puder ajudar.

Luizfernando777 · Answer

function NumIP:string;varWSAData: TWSAData;HostEnt: PHostEnt;Name:string;begin  WSAStartup(2, WSAData);  SetLength(Name, 255);  Gethostname(PChar(Name), 255);  SetLength(Name, StrLen(PChar(Name)));  HostEnt := gethostbyname(PChar(Name));     with HostEnt^ do        begin           Result := Format(��d.�d.�d.�d�,                     [Byte(h_addr^[0]),Byte(h_addr^[1]),                      Byte(h_addr^[2]),Byte(h_addr^[3])]);        end;  WSACleanup;end;...

Sam · Answer

function GetIP:string;//--> Declare a Winsock na clausula uses da unit
var
WSAData: TWSAData;
HostEnt: PHostEnt;
Name:string;
begin
WSAStartup(2, WSAData);
SetLength(Name, 255);
Gethostname(PChar(Name), 255);
SetLength(Name, StrLen(PChar(Name)));
HostEnt := gethostbyname(PChar(Name));
with HostEnt^ do
Result:=Format(��d.�d.�d.�d�,[Byte(h_addr^[0]),
Byte(h_addr^[1]),Byte(h_addr^[2]),Byte(h_addr^[3])]);
WSACleanup;
end;

Mkoch · Answer

Muito obrigado, funcionou muito bem.Se precisar de algo � s� teclar....

F�rum Como pegar o IP de uma m�quina. #194844