Capturar endereco Ip

[sr.silva 1]

Olá!!

 

Alguem sabe se existe uma forma de capturar o IP de uma maquina que esteja acessando meu programa via

Terminal Service.

 

Tipo assim, o usuario entra no terminal service acessa o programa, e com isso eu consigo recuperar o IP identificando a máquina que esta acessando meu programa.

 

http://forum.imasters.com.br/public/style_emoticons/default/natal_noel.gif http://forum.imasters.com.br/public/style_emoticons/default/natal_noel.gif

[marcio.theis 3]

Ao menos que exista uma forma do windows reportar o usuário logado, mas mesmo assim, você pode ter mais de um user logado com o mesmo login... vou ver se encontro algo aqui... mas eu pelo menos desconheço...

[sr.silva 1]

Pois é rapaz, já pensei em "tudo" e até agora nada... http://forum.imasters.com.br/public/style_emoticons/default/natal_w00t.gif

[marcio.theis 3]

Dê uma olhada neste site têm algumas coisas sobre o ts

[sr.silva 1]

Seguinte dei uma olhada no site , só que infelizmente não tive um "retorno" bem sucedido.!

[jtftelles 0]

para pegar o IP

 

function GetIP:string; 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 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;

só não se esqueça de declarar winsock na uses da unit

 

falowss