Ver Mensaje Individual
  #7  
Antiguo 09-12-2021
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - Espańa
Posts: 18.275
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por vroa74 Ver Mensaje
La validación por ping no me funciona ya que tengo que verificar si un archivo de una dirección ulr esta disponible
un ejemplo seria valida : http://www.mundomanuales.com/manuales/curso-Delphi.pdf que el archivo esta disponible.

Es que es diferente comprobar una URL como comentaste al inicio que la existencia de un fichero.
Puedes usar las Indy con un código como este:

Código Delphi [-]
procedure TForm3.Button1Click(Sender: TObject);
var
  ResponseCode:integer;
  ContentLength:int64;
begin
  IdHTTP1.Head(Edit1.Text {URL});  // URL= http://www.mundomanuales.com/manuales/curso-Delphi.pdf 
  ResponseCode :=  IdHTTP1.Response.ResponseCode; // 200 = OK etc
  ContentLength := IdHTTP1.Response.ContentLength;
end;


Lo único que se me ocurre es que podría ser que detectes que el fichewro existe, pero que luego no puedas descargarlo (porque el servidor decida que no tienes permiso para ello -no estoy 100% seguro de qe esa posibilidad pueda darse-).
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita