Windev - Donwload Arquivo

1

Exemplo de Download de Arquivo

VIDEO - DOWNLOAD ARQUIVO COM BARRA PROGRESSO E TRACE

Exemplo de Download de Arquivo - http://forum.pcsoft.fr

HTTPProgressBar - http://help.windev.com
HTTPRequest - http://help.windev.com
HTTPGetResult - http://help.windev.com
Event - http://doc.windev.com
fSaveBuffer - http://doc.windev.com
 

---

---

---

-----------------------------------------------------------------------------------------------------------------
//EXEMPLO DE DOWNLOAD DE ARQUIVO
//##################################

Ok is boolean = HTTPRequest("http://www.7-zip.org/downloads.sourceforge.net/sevenzip/7z920.exe")

IF Ok = True THEN

ArchivoDownloading is Buffer = HTTPGetResult()

Ok = fSaveBuffer("/mnt/sdcard/7z920.EXE",ArchivoDownloading) 

Okarchivo is boolean = fFileExist("/mnt/sdcard/7z920.EXE") 

IF Ok = True AND Okarchivo = True
Info("Download efetuado com sucesso!'") 
ELSE
Error("Não foi possivel efetuar o download.") 
END

ELSE
Error("Não foi possivel efetuar o download.") 
END
----------------------------------------------------------------------------------------------------------------- 
// com barra de progresso
HTTPProgressBar(PROGBAR_download)
_arquivo is boolean = HTTPRequest("http://www.amarildomatos.com.br/clientes_arquivos/dll262.zip")
HTTPProgressBar("")
IF _arquivo = True THEN
    _baixar_arquivo is Buffer = HTTPGetResult()
    _arquivo = fSaveBuffer("e:\aleva\dll262.zip",_baixar_arquivo)    
    _arquivo_existe is boolean = fFileExist("e:\aleva\dll262.zip")   
    IF _arquivo = True AND _arquivo_existe = True
        Info("Download efetuado com sucesso!'")
    ELSE
        Error("Não foi possivel efetuar o download.")
    END   
ELSE
    Error("Não foi possivel efetuar o download.")
END
 

----------------------------------------------------------------------------------------------------------------- 
 //Com Trace
HTTPProgressBar("gerencie_projeto")
Event(gerencie_projeto,"*.*","HTTPProgress")
_arquivo is boolean = HTTPRequest("http://www.amarildomatos.com.br/clientes_arquivos/dll262.zip")
HTTPProgressBar("")
IF _arquivo = True THEN
    _baixar_arquivo is Buffer = HTTPGetResult()
    _arquivo = fSaveBuffer("e:\aleva\dll262.zip",_baixar_arquivo)   
    _arquivo_existe is boolean = fFileExist("e:\aleva\dll262.zip")  
    IF _arquivo = True AND _arquivo_existe = True
        Info("Download efetuado com sucesso!'")
    ELSE
        Error("Não foi possivel efetuar o download.")
    END  
ELSE
    Error("Não foi possivel efetuar o download.")
END

PROCEDURE gerencie_projeto(TotalByte, TotalTransmitted)
Trace("Baixando Arquivo : " + TotalTransmitted + " / " + TotalByte)

----------------------------------------------------------------------------------------------------------------- 

 

---------------------------------------------------------------------------------------------------------------------

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

Webdev Download

Webdev Download