TAsynFileDownload se queda atorado

[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.

[XeviCOMAS]

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