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.