|
| EXEMPLO DE DOWNLOAD DE ARQUIVO |
| Iniciado por Boller, 28,feb. 2015 02:32 - 4 respuestas |
| |
| | | |
|
| |
Miembro registrado
4.613 mensajes |
|
| Publicado el 28,febrero 2015 - 02:32 |
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
|
| |
| |
| | | |
|
| | |
| |
Miembro registrado
4.613 mensajes |
|
| Publicado el 28,febrero 2015 - 13:05 |
Dica:
Para saber o tamanho do arquivo que vai ser salvo, use o comando Length( ) na variavel do buffer descarregado. |
| |
| |
| | | |
|
| | |
| |
Miembro registrado
4.613 mensajes |
|
| Publicado el 28,febrero 2015 - 14:34 |
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("") |
| |
| |
| | | |
|
| | |
| |
Miembro registrado
535 mensajes |
|
| Publicado el 28,febrero 2015 - 20:49 |
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 el 04,marzo 2015 - 13:48 |
| Agradecimentos ao Adriano e Amarildo. |
| |
| |
| | | |
|
| | | | |
| | |
|