Foros Club Delphi - Enviar "PING" de nuestro programa a nuestro servidor

Hola,

hemos tenido problemas últimamente, ya que nuestro código no funciona para el 100% de los casos, hay usuarios que no se puede establecer el PING correctamente ¿creen que es problema del código?

Código:

//ConexionIdIcmp es un objeto de la clase TIdIcmpclient;

begin

  ConexionIdIcmp.Tag:=0;

  ConexionIdIcmp.Host:=ENCP(C_Host);

  try

    ConexionIdIcmp.Ping;

    DoConnect:=ConexionIdIcmp.Tag=1;

  except

    DoConnect:=False;

  end;

end;

Ese código dejó de funcionar:

Código:

var

  vBuffer:String;

begin

  ConexionIdIcmp.Tag:=0;

  ConexionIdIcmp.Host:=String(ENCP(C_Host));

  try

    // ARM: el código que había antes ya no funciona debido al componente Indy que no devuelve el ping correctamente

    // Nuevos ajustes: PacketSize=24 y agregar espacios en blanco al final del host

    ConexionIdIcmp.PacketSize:=24;

    vBuffer := ConexionIdIcmp.Host + StringOfChar(' ',255);

    ConexionIdIcmp.Ping(vBuffer);

    DoConnect:=ConexionIdIcmp.Tag=1;

  except

    DoConnect:=False;

  end;

end;

El siguiente no lo pude testear aún:

http://clubdelphi.com/foros/showpost...88&postcount=9

Desconozco porque el 100% de los usuarios no puede realizar correctamente PING, pero si la mayoría, ¿será por SO? ¿configuraciones del usuario? ¿código? o ¿configuraciones nuestras?

Agradecería cualquier información