Fórum retornar o ip da conexão e a porta #326491
30/07/2006
0
Estou com um projeto e preciso saber qual é o IP da conexão e o numero da porta.
Estou utilizando uma rotina que encontrei aqui no clube e gostaria se possivel que alguem me ajudasse a melhorar colocando a porta tambem
Preciso desta rotina para fazer a segurança de um sistema que roda com banco Mysql na net e tem varias maquinas acessando, por isto tenho que criar um arquivo de log para gerenciar estas conexões;
A rotina é esta:
var
strFull : string;
begin
strFull := idHttp1.Get(´http://www.meuip.com.br´);
vConexao := Copy(strFull,Pos(´<strong class=´IP´>´, strFull) + 19, 14);
end;
Agradeço qualquer ajuda
Estou utilizando uma rotina que encontrei aqui no clube e gostaria se possivel que alguem me ajudasse a melhorar colocando a porta tambem
Preciso desta rotina para fazer a segurança de um sistema que roda com banco Mysql na net e tem varias maquinas acessando, por isto tenho que criar um arquivo de log para gerenciar estas conexões;
A rotina é esta:
var
strFull : string;
begin
strFull := idHttp1.Get(´http://www.meuip.com.br´);
vConexao := Copy(strFull,Pos(´<strong class=´IP´>´, strFull) + 19, 14);
end;
Agradeço qualquer ajuda
Dpinho
Curtir tópico
+ 0
Responder
Posts
31/07/2006
Massuda
Que problema está acontecendo?
Responder
Gostei + 0
31/07/2006
Dpinho
Que problema está acontecendo?
Esta funcionando perfeitamente. Porem gostaria de saber se não tem outra forma utilizando somente o Delphi e tambem se não tem alguma rotina onde posso retornar para um txt alem do ip a porta e a velocidade de conexão, sei que dar para fazer em javascript, mas gostaria de fazer no delphi
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)