IP da m�quina Cliente

Question

Ol� pessoal,
Gostaria de saber como fa�o para pegar o IP da m�quina cliente em uma aplica��o multicamadas?
A aplica��o servidora montaria uma esp�cie de log contendo o IP (ou nome da m�quina na rede) e hora do acesso.
Coisa bem simples, por�m gostaria saber cmoo fa�o para capturar esse IP?
Obrigado desde j�!

Paullsoftware · Answer

tenta manda as informa��es do cliente para o servidor...
pra pegar essas informa��es use o c�digo abaixo:

variaveis globais: StrHostName, StrHostAddr:String;
//Necess�rio declarar a unit WinSock na clausula Uses da sua Unit...
procedure GetHostNameHostAddr;
var
  p : PHostEnt;
  s : array[0..128] of char;
  p2 : pchar;
begin
 GetHostName(@s, 128);
 p   := GetHostByName(@s);
 p2  := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
 StrHostName := p^.h_Name;
 StrhostAddr   := p2;

basta rodar a procedure acima no momento em que sua apli��o cliente for iniciada para pegar o Nome e IP do Micro, depois voc� pode gravar em uma tabela por exemplo!
tipo:

LogUser.AsString := Nome_Usuario; LogHostname.AsString := StrHostName; LogHostAddr.AsString := StrHostAddr;

e assim por diante, espero ter ajudado :wink:

F�rum IP da m�quina Cliente #333264