Enviar "PING" de nuestro programa a nuestro servidor

[strelok]

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?

//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:

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