PEGAR O TEMPO (ms) de resposta de um host no Delphi Berlin
23/08/2016
0
boa tarde Amigos, estou criando uma app de mapeamento de host (switches) em uma rede, e gostaria de pegar o tempo de resposta de cada um, pois dependendo do retorno, o host ficará amarelo, verde ou vermelho... mas eu achei um exemplo, aqui mesmo no devmedia, mas acredito que seja incompatível com o Berlin, já que ficou aparecendo erros no métodos. Fico no aguardo. Obrigado
Hermeson Gonçalves
Curtir tópico
+ 0
Responder
Posts
26/08/2016
Mateus Carvalho
Boa tarde!
Eu utilizo uma função do IdIcmpClient no Delphi Seattle, mas acredito que funcione no Berlin.
Adicione o componente, uma label e um botão.
*Nota: Em algumas maquinas, foi necessário executar como ADM.
Att
Eu utilizo uma função do IdIcmpClient no Delphi Seattle, mas acredito que funcione no Berlin.
Adicione o componente, uma label e um botão.
//Testado no FMX, mas funciona no VCL com ajuste de propriedades //No botão, coloque o seguinte código IdIcmpClient1.host := 'www.google.com.br'; IdIcmpClient1.ping(); label1.Text := inttostr(IdIcmpClient1.ReplyStatus.MsRoundTripTime);
*Nota: Em algumas maquinas, foi necessário executar como ADM.
Att
Responder
Clique aqui para fazer login e interagir na Comunidade :)