|
| EXEMPLO DE DOWNLOAD DE ARQUIVO |
| Iniciado por Boller, fev., 28 2015 2:32 AM - 4 respostas |
| |
| | | |
|
| |
Membro registado
4.520 mensagems |
|
| Publicado em fevereiro, 28 2015 - 2:32 AM |
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
4.520 mensagems |
|
| 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
4.520 mensagems |
|
| 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 |
|
| 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. |
| |
| |
| | | |
|
| | | | |
| | |
|