FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Gracias
Gracias Federico, voy a hacer pruebas....
Que tenga buen día. |
#2
|
||||
|
||||
Pero....
Gracias por su respuesta Federico pero no me funciono, ya realize pruebas, hace lo mismo que el UrlDownloadToFile pero con la diferencia que la que usted me dio se crea TDownLoadURL.Create(nil) y se Destruye con FREE creí que con eso bastaba para que retomará la información del archivo de la página web pero no es así, TOMA SIEMPRE el primer valor que tomo al Iniciar la Aplicación, hago llamadas a la página en intervalos de 3 veces de 3 minutos después 3 veces de 5 minutos y por ultimo 3 veces de 10 minutos pero ninguno los retoma, siendo que si abró manualmente la página web si me aparece el último Dato del archivo.
Otra Cosa que descubrí es que cuando abró la página Manualmente en la Pc donde esta corriendo la Aplicación me doy cuenta que la aplicación cuando intenta retomar el archivo lo BAJA CORRECTAMENTE, pero si NO ABRO Manualmente sigue intentando pero sin éxito alguno. Existirá alguna otra función ó API de windows???? A usted Federico si le REFRESCA el archivo que descarga en su aplicación???? Si no la solución que tomare sería cerrar y volver abrir la aplicación que apenas así refresca el archivo.... Gracias por su sugerencia. Última edición por AGAG4 fecha: 18-05-2005 a las 17:06:18. Razón: Corrección |
#3
|
|||
|
|||
tengo el mismo problema que tu con
UrlDownloadToFile siempre me descarga el mismo contenido a pesar de modificarlo en el destino. |
#4
|
|||
|
|||
solucionado!!!
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; |
#5
|
|||
|
|||
Ahora solo me falta ponerle un progressbar
Alguien sabe como hacerlo? Gracias |
#6
|
||||
|
||||
Amigo, tienes casi 100 mensajes... recuerda nuestra guía de estilo, gracias.
__________________
La otra guía de estilo | Búsquedas avanzadas | Etiquetas para código Únete al grupo Teaming clubdelphi | Colabora mediante Paypal |
|
|
|