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