In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

TAsynFileDownload se queda atorado

Foro público de Xailer en español
Responder
Avatar de Usuario
XeviCOMAS
Mensajes: 582
Registrado: Sab Mar 12, 2011 8:16 pm

TAsynFileDownload se queda atorado

Mensaje por XeviCOMAS »

Este código lleva funcionando mucho tiempo correctamente, un pequeño cambio en 2021, pero siguió funcionando.

Código: Seleccionar todo

         WITH OBJECT ::oAsynFileDownload1
         :cRemoteFile  := "https://docs.google.com/uc?export=download&id=" + aSQL[1,3]//1NMdb4cgJvRRdNRWW0FmV_27Kp87EmC49"
         :cLocalFile   := Application:cDirectory + "\GWinUpdate.zip"
         :OnConnect    := {|| lDownloadDrive := .T. }
         :OnDisconnect := {|| lDownloadDrive := .F. }
         :OnTotalDnLoadInfo := {|o,nProgress| ::oProgressBar1:nValue += nProgress }
//09-10-2021 Error BASE/1005 Message not found: TAsynFileDownload:_NLENGTH
*         :OnTotalLengthInfo := {|o,nTotal| o:nLength := nTotal }
         :Run()
         END WITH
Pero me encuentro que a partir de hace unos días, no me funciona. No da ningún error, pero no descarga el archivo.
Mi aplicación se queda "pillada" y debo cerrarla con el Administrador de tareas.
No se si es por el Drive que ha cambiado algun parámetro, pero no funciona.
¿Alguien está utilizando la descarga de archivos desde estos alojados en el Drive???

Gracias por vuestro tiempo.
Un Saludo,
Xevi.
Avatar de Usuario
XeviCOMAS
Mensajes: 582
Registrado: Sab Mar 12, 2011 8:16 pm

Re: TAsynFileDownload se queda atorado

Mensaje por XeviCOMAS »

Por lo que he podido comprobar, a Google no le gusta que un zip contenga según que ejecutables.
Un Saludo,
Xevi.
Responder