PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → EXEMPLO DE DOWNLOAD DE ARQUIVO
EXEMPLO DE DOWNLOAD DE ARQUIVO
Iniciado por adrianoboller, fev., 28 2015 2:32 AM - 4 respostas
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em fevereiro, 28 2015 - 2:32 AM
//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
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em fevereiro, 28 2015 - 1:05 PM
Dica:
Para saber o tamanho do arquivo que vai ser salvo, use o comando Length( ) na variavel do buffer descarregado.
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em fevereiro, 28 2015 - 2:34 PM
Outro metodo de fazer:
Executando o download e colocando um progress bar para ver o download do arquivo:

HTTPProgressBar(PROGBAR_download)
arquivo is boolean = HTTPRequest("http://www.amarildomatos.com.br/clientes_arquivos/dll262.zip")
HTTPProgressBar("")
Membro registado
535 mensagems
Popularité : +14 (14 votes)
Publicado em fevereiro, 28 2015 - 8:49 PM
http://windevdesenvolvimento.blogspot.com.br/2015/02/exemplo-de-download-de-arquivo.html
Nesse video vou mostrar o exemplo feito pelo adriano

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


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
Publicado em março, 04 2015 - 1:48 PM
Agradecimentos ao Adriano e Amarildo.