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.php?p=414988&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

[Casimiro Notevi]

Por ejemplo, firewall.

[Neftali [Germán.Estévez]]

Como comenta Casimiro, intervienen otros factores que afectan a un PING.
Por ejemplo, yo probaría si en ese mismo equipo funciona el PING desde una pantalla MSDOS. Según la respuesta se puede mirar hacia una dirección o hacia otra.

[strelok]

Estuve viendo las configuraciones de Firewall y efectivamente ese puede ser el problema, cuando tenga la oportunidad de probarlo les contaré