Download de Arquivos via Mobile

Download de Arquivos via Mobile

http://forum.pcsoft.fr/fr-FR/pcsoft.us.windevmobile/1097-example-download-files-via-mobile-webdev-windev-download-1098/read.awp


Uma contribuição de Adriano Boller e Marcos Roberto Carvalho

adrianoboller #1

Membre enregistré 695 messages Posté le 17 janvier 2015 - 15:12 //HTM_Download..URL="http://www.7-zip.org/a/7z920.exe" OK is boolean = HTTPRequest("http://www.7-zip.org/a/7z920.exe") IF OK = True THEN Arquivo is Buffer = HTTPGetResult(httpResult) IF InSimulatorMode() = True OK = fSaveBuffer("c:\download\7z920.exe",Arquivo) ELSE OK = fSaveBuffer("/mnt/sdcard/7z920.exe",Arquivo) END IF OK = True THEN IF InSimulatorMode() = True OK = fFileExist("c:\download\7z920.exe") ELSE OK = fFileExist("/mnt/sdcard/7z920.exe") END IF OK = True THEN Info("Download do arquivo 7z920.exe com sucesso!") ELSE Error("Nao foi possivel encontrar o arquivo do 7z920.exe. "+ErrorInfo(errMessage)) END ELSE Error("Nao foi possivel efetuar o download do 7z920.exe. "+ErrorInfo(errMessage)) END ELSE Error("URL nao encontrado para download do 7z920.exe. "+ErrorInfo(errMessage)) END