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)

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

 

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