PEGAR O TEMPO (ms) de resposta de um host no Delphi Berlin

Delphi

Infraestrutura

23/08/2016

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

Hermeson Gonçalves

Curtidas 0

Respostas

Mateus Carvalho

Mateus Carvalho

23/08/2016

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.
//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
GOSTEI 0
POSTAR