Componente TDownloadFile

Este componente tem a função de realizar downloads da internet, possibilitando que o usuário veja o progresso e seja capaz de cancelá-lo. leia o arquivo leiame.txt para saber como instalar corretamente o componente.

Índice

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

1) Introdução

O componente TDownloadFile têm a função de
realizar downloads da internet, possibilitando
a manutenção do progresso do mesmo.

2) Limitações

Esta versão só permite que o componente realize
um download por vez. Caso deseje realizar mais
de um download simultâneamente, utilize outro
componente ou aguarde o primeiro acabar para
iniciar o segundo.
Este componente foi desenvolvido em Delphi 7,
porém, teoricamente, ele deve funcionar em
qualquer versão do Delphi, o que sabemos que
não é verdade. :-)

3) Utilização

3.1) Instalação:

* Descompacte todos os arquivos em uma pasta
qualquer.

* Abra o arquivo PDPack_D7.dpk pelo Delphi e
clique no botão "Install".

* Caso nenhum erro ocorra, um mensagem de
confirmação aparecerá e a página "Planeta
Delphi" será adicionada à sua paleta
de componentes.

* Adicione o Path da pasta onde descompactou
os arquivo no Library Path do Delphi.

Tools > Environment Options > Library > Library Path

3.2) Desinstalação:

* No Delphi selecione
Component > Install Packages

* Localize
"Pacote de Componentes do Planeta Delphi"

* Clique em Remove

* Remova o Path adicionado anteriormente
do Library Path do Delphi.


3.3) Propriedades e Eventos do componente TDownloadFile

Propriedades

* UrlToDownload: string
É o endereço do arquivo que deve ser
baixado da internet.

Exemplo:
|
| http://www.servidor.com.br/pasta/arquivo.exe

* FileName: string
É o local onde o arquivo baixado deve
ser salvo.

Exemplo:
|
| c:\path\arquivo.exe

* Busy: boolean (somente leitura)
Indica TRUE se o componente está realizando
um download.


Eventos

* OnStart
É executado antes do download ser iniciado

* OnProgress (ReceivedBytes, CalculatedFileSize: Cardinal)
É executado a cada notificação de processo
dado pelo download.
Esse evento passa como parâmetro o tamanho
total do arquivo e a quantidade de bytes que
já foram baixados.

Exemplo de utilização com ProgressBar:
|
| begin
| ProgressBar1.Max:=CalculatedFileSize;
| ProgressBar1.Position:=ReceivedBytes;
| end;

Observação:
Caso o valor do parâmetro CalculatedFileSize
for igual à 0 (zero) significa que o tamanho
do arquivo não pôde ser calculado.
Normalmente isso ocorre devido a alguma
limitação do servidor.

* OnFinish (Canceled: boolean)
É executado após o download ser concluído.
Esse evento passa como parâmetro se o download
foi concluído com êxito ou se ele foi cancelado.

* OnError (ECode: ErrorCode; Msg: string)
É executado quando algum erro ocorre.
Esse evento passa como parâmetro o código de
erro e uma mensagem.

Códigos de erro:
E_BUSY = 1
Tentou iniciar um download enquanto
o componente estava ocupado realizando
outro download (não afeta em nada no
download corrente).

E_NODOWNLOADACTIVE = 2
Tentou cancelar um download quando
não existia nenhum download ativo.

E_MISSINGDATA = 3
Tentou iniciar um download com as
propriedades UrlToDownload ou FileName
em branco.


Funções e procedimentos

* procedure StartDownload
Inicia o download

* procedure CancelDownload
Cancela o download atual

* class procedure DownloadNow(URL, DestFile: string;
OnStartEvent: TNotifyEvent = nil;
OnProgressEvent: TProgressNotifyEvent = nil;
OnFinishEvent: TFinishNotifyEvent = nil;
OnErrorEvent: TErrorNotifyEvent = nil);
Implementa uma modo rápido de realizar
um download.
Utilizando esta função não é necessário
adicionar nenhum componente no Form, nem
instanciá-lo do modo convencional.
Basta adicionar a unit DownloadFile na cláusula
uses da Unit e utilizar este procedimento.

4) Histórico

* 07 de fevereiro de 2006
Remoção do Bug que impedia que o componente
funcionasse corretamente em Windows XP
* 07 de fevereiro de 2006
Primeira versão do TDownloadFile e da biblioteca
DownloadFileThread

5) Bugs

Até o momento não existe nenhum Bug conhecido.
Caso você encontre algum favor entre em contato através
do e-mail garoto_burns@delphi.eti.br descrevendo a ação
que ocasionou o erro.

6) Licença

Este componente é totalmente Freeware, ou seja, você
pode alterá-lo e redistribuí-lo sem qualquer tipo
de restrição e/ou responsabilidade impostas pelo autor.

Contanto, ninguém além do próprio usuário será
responsável por danos materiais, físicos e/ou psíquicos,
perdas, prejuízos ou qualquer outro feito que venha a
ocorrer por causa do uso devido ou indevido do mesmo.


Download