Como Limpiar BytesReceived de Ping componente Indy

[ecfisa]

Hola.

No conozco mucho sobre la clase TIdIcmpClient, pero se me ocurre que podrías probar creando una nueva instancia para cada petición, y luego de realizar las acciones liberarla. De ese modo la propiedad BytesReceived debería quedar limpia en cada nuevo Ping.

Código Delphi [-]
  with TIdicmpClient.Create(nil) do
  try
    BufferSize:= 8192;
    ReceiveTimeOut:= 600;
    Protocol:= 1;
    Host:= XXX; // variable con la dirección
    Ping;
    // comprobaciones que realices:
    // almacenar, evaluar o mostrar resultados
  finally
    Free;
  end;

Saludos.