FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Comprobar la existencia de un archivo en internet
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: Código:
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; Código:
DM1.QBuscaITEMID.Text es un Query de ADO. rutainst := ExtractFilePath(ParamStr(0)); Saludos y futuras Gracias!! |
#2
|
||||
|
||||
Todos los protocolos de red devuelven códigos de error o confirmación junto con los datos al hacer una petición, y entre las peticiones no válidas está la de solicitar un archivo que no exista. Símplemente tienes que comprobar el código devuelto y si este se corresponde con el código de "no existe el archivo". Por ejemplo, en el protocolo HTTP este código es el conocido error 404.
Ojo, que FileExists únicamente suele funcionar para archivos locales. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Verificar la Existencia de un Archivo | sidneyb | Varios | 2 | 22-04-2008 22:16:19 |
como comprobar existencia de una tabla? | jhoncacru | MS SQL Server | 2 | 11-12-2006 19:34:17 |
existencia de archivo | ddd_ddd | Varios | 1 | 06-11-2005 15:54:00 |
Comprobar la existencia de un modem en PC | S.M.S. | API de Windows | 1 | 22-02-2005 12:09:24 |
Cómo puedo comprobar la existencia de un archivo al cargar mi programa? | darkone2k3 | Varios | 9 | 30-01-2004 02:44:24 |
|