TAsynFileDownload se queda atorado
Publicado: Mié May 31, 2023 4:38 pm
Este código lleva funcionando mucho tiempo correctamente, un pequeño cambio en 2021, pero siguió funcionando.
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.
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
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.