sábado, 9 de maio de 2015

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)




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
























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


Nenhum comentário:

Postar um comentário

Teste

Teste
teste