poner un progressbar a URLDownloadToCacheFile

[petete2008]

Hola :
Necesito poner un progressbar para ver el proceso de descarga en la llamada a la siguiente función.
¿Alguien sabe como agregar el componente 'barra de progreso'?
Gracias.

function DownloadToFile(URL, FileName: String): Boolean;
var  lpszFile: Array [0..MAX_PATH] of Char;
begin
  // Download to cache by getting newest version
  if (URLDownloadToCacheFile(nil, PChar(URL), @lpszFile, MAX_PATH, BINDF_GETNEWESTVERSION, nil) = S_OK) then
     // Copy to desired file name
     result:=CopyFile(@lpszFile, PChar(FileName), False)
  else
     // Failed
     result:=False;
end;

[[ElDioni]]

No he leido el hilo con los enlaces que lleva pero echale un vistazo que puede que te sirva de ayuda.

http://www.clubdelphi.com/foros/show...ht=progressbar

Saludos.

[petete2008]

No me sirven porque en todo ellos siempre me descarga el mismo aunque yo modifique por ftp el fichero de la web.
Es como si me cogiera el de la cache del ordenador en lugar de FORZAR la "bajada" del fichero de nuevo.
De ahí que lo único que me ha funcionado es el código que he puesto.

[petete2008]

Tengo el mismo código que tú y me acabo de dar cuenta de una cosa.

Supongamos que de donde quiero decargar tenemos dos ficheros. Por ejemplo :
http://www.rutas.com/fichero.sql y http://www.rutas.com/fichero.sql.gz

Pues bien...
Cuando le digo que descargue el http://www.rutas.com/fichero.sql me descarga el que termina en .gz
Y esto pasa siempre que tenga para el mismo nombre otro fichero con extensión .gz al final.

¿Alguien sabe la solución?
Yo quiero descargar el fichero con extensión .sql

Gracias

[Casimiro Notevi]

Empezado por petete2008

Tengo el mismo código que tú y me acabo de dar cuenta de una cosa.

El mismo código que tú mismo

[petete2008]

Era un problema del .htaccess que tenía redirecciones a gz en el caso que existiese.
Tema solucionado