[wiwaedu]

Buenas Noches,

Me gustaría saber si existe alguna forma de saber si existe un archivo en internet antes de proceder a su descarga a través de TDownloadURL. O al menos alguna forma de controlar el error para que no aparezca el mensaje de que la URL no existe.

El código que uso es este:

procedure TImpBL.DBGrid1CellClick(Column: TColumn);
begin
if FileExists(rutainst+'data\images\sets\'+DM1.QBuscaITEMID.Text+'.jpg') then
 begin
    PreviewImg.Picture.LoadFromFile(rutainst+'data\images\sets\'+DM1.QBuscaITEMID.Text+'.jpg');
 end else
 begin
    ProgressBar1.Position := 0;
    ProgressBar1.Visible := True;
    with TDownloadURL.Create(self) do
   try
     URL:='WWW-PAGINAWEB-COM/SL/'+DM1.QBuscaITEMID.Text+'.jpg';
     FileName := rutainst+'data\images\sets\'+DM1.QBuscaITEMID.Text+'.jpg';
     OnDownloadProgress := URL_OnDownloadProgress;
     ExecuteTarget(nil) ;
   finally
     Free;

   end;
   ProgressBar1.Visible := False;
   PreviewImg.Picture.LoadFromFile(rutainst+'data\images\sets\'+DM1.QBuscaITEMID.Text+'.jpg');
 end;
end;

Aclaraciones:

DM1.QBuscaITEMID.Text es un Query de ADO.

rutainst := ExtractFilePath(ParamStr(0));

Mas que nada lo quiero saber por que las imagenes que intento descargar no siempre estan en .jpg, a veces estan en .gif, y otras no existen.

Saludos y futuras Gracias!!