Efetuando download com TIdHttp no Delphi

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (3)  (0)

Veja neste artigo como desenvolver uma aplicação para efetuar downloads no Delphi, usando o componente TIdHttp.

Olá pessoal, neste artigo será demonstrado como construir uma aplicação para efetuar downloads utilizando o componente TIdHttp da paleta Indy Clients que faz a conexão entre a aplicação e o servidor de onde pretendemos baixar o arquivo.

As paletas de componentes Indy (Indy Clients, Indy Servers, Indy I/O Handlers, Indy Intercepts, Indy Misc e Indy SASL) acompanham o Delphi há várias versões. Entre os componentes mais famosos e usados frequentemente podemos citar o conjunto (TIdMessage, TIdSMTP, TIdSSLIOHandlerSocket) utilizado para envio de e-mails através do Delphi.

Mas hoje não vamos falar sobre envio de e-mails, mas sim sobre como fazer downloads no Delphi utilizando o componente TIdHttp. É muito simples, os componentes Indy facilitam muito a vida dos desenvolvedores, principalmente no controle de tráfego dos bytes.

Vamos iniciar um novo projeto no Delphi. Para essa aplicação será necessário apenas um Form, onde serão adicionados os seguintes componentes no formulário:

ComponentesConfigurações das Propriedades
1 - TIdHttpName = IdHttp
1 - TIdAntiFreezeName = IdAntiFreeze
1 - TSaveDialogName = dlgSave
1 - TEditName = edtUrl
1 - TCheckBoxName = ckbOpcao
Cursor = crHandPoint
1 - TProgressBarName = pbProgresso
Visible = False
1 - TImageName = img
Align = alTop
2 - TLabel1 - Name = lbl1
 
1 - Name = lblStatus
Visible = False
3 - TBitBtn1 - Name = btnBaixar
Caption = Baixar
 
1 - Name = btnCancelar
Caption = Cancelar
 
1 - Name = btnFechar
Caption = Fechar

Tabela 1: Lista de componentes e suas respectivas configurações

Entre esses componentes, cinco merecem atenção:

  • TEdit: nesse edit será informada a URL para download.
  • TIdAntiFreeze: esse componente impede o congelamento da aplicação, enquanto aguardamos o final do download.
  • TSaveDialog: servirá para indicar o caminho onde será gravado o arquivo que será baixado.
  • TProgressBar: exibirá o progresso do download, trazendo mais conforto para o usuário, pois o mesmo poderá acompanhar a evolução do download.
  • TCheckBox: disponibilizará a opção de fechar a aplicação após o termino do download.

Para deixar o visual mais agradável foi inserida uma imagem, o layout final do formulário segue abaixo:

Layout do formulário

Figura 1: Layout do formulário

Vamos começar codificando o evento OnClick botão “Fechar”, nesse evento simplesmente vamos fechar a aplicação.

Listagem 1: Código para fechar a aplicação

Application.Terminate;

No evento OnClick do botão “Cancelar” vamos desconectar o componente, assim estaremos “matando” o download.

Listagem 2: Código para cancelar o Download

IdHTTP.Disconnect; 

Antes de codificar o botão “Baixar” será necessário criar duas funções, uma para converter a porcentagem transcorrida do Download e outra para converter a quantidade em Kilobytes já baixados.

Listagem 3: Função para converter porcentagem transcorrida

function TfrmPrincipal.RetornaPorcentagem(ValorMaximo, ValorAtual: real): string;
var
resultado: Real;
begin
resultado := ((ValorAtual * 100) / ValorMaximo);
Result    := FormatFloat('0%', resultado);
end; 

Listagem 4: Função para converter KiloBytes recebidos

function TfrmPrincipal.RetornaKiloBytes(ValorAtual: real): string;
var
resultado : real;
begin
resultado := ((ValorAtual / 1024) / 1024);
Result    := FormatFloat('0.000 KBs', resultado);
end; 

Observação: As funções não serão explicadas, pois seu conteúdo é composto por operações matemáticas, a primeira com cálculo de porcentagem e a segunda com a conversão de bytes em kilobytes.

Essas funções serão chamadas em eventos específicos do componente TIdHttp, pois o mesmo possui alguns métodos e propriedades que facilitam o controle de tráfego dos downloads.

O primeiro evento do TIdHttp que vamos codificar é o OnWorkBegin, esse evento será disparado quando o componente inicia uma operação de leitura ou escrita. Sendo assim, a propriedade AWorkCountMax será preenchida com o número em Bytes aguardados para operação atual, nesse caso o tamanho do arquivo que pretendemos baixar, vamos também atribuir esse valor para a propriedade Max do TProgressBar.

Listagem 5: Codificação do evento OnWorkBegin

procedure TfrmPrincipal.IdHTTPWorkBegin(ASender: TObject; AWorkMode: TWorkMode; AWorkCountMax: Int64);
begin
pbprogresso.Max := AWorkCountMax;
end; 

Continuando no componente TIdHttp, agora vamos para o evento OnWork, esse evento é disparado sempre que a conexão chama operações de leitura ou gravação. Vamos utilizar esse evento para atualizar TProgressBar, a quantidade de bytes baixados e a porcentagem já baixada no caption do Formulário. Notem que estão sendo usadas as duas funções que criamos acima, passando o valor da propriedade AWorkCount que indica o número de bytes enviados ou no nosso caso recebidos.

Listagem 6: Codificação do evento OnWork

procedure TfrmPrincipal.IdHTTPWork(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64);
begin
pbprogresso.Position := AWorkCount;
lblStatus.Caption    := 'Baixando ... ' + RetornaKiloBytes(AWorkCount);
frmPrincipal.Caption := 'Download em ... ' + RetornaPorcentagem(pbprogresso.Max, AWorkCount);
end;

Para finalizar os eventos do TIdHttp, vamos codificar o evento OnWorkEnd. Esse evento é disparado quando é concluída uma operação de leitura ou escrita. No nosso caso quando finalizar o download, vamos desabilitar controles, emitir as mensagens de finalizado na tela e no caption do Formulário e verificar se o TCheckBox está marcado para finalizarmos a aplicação.

Listagem 7: Codificação do evento OnWorkEnd.

procedure TfrmPrincipal.IdHTTPWorkEnd(ASender: TObject; AWorkMode: TWorkMode);
begin
pbprogresso.Position := 0;
frmPrincipal.Caption := 'Finalizado ...';
lblStatus.Caption    := 'Download Finalizado ...';
pbprogresso.Visible  := false;
btnBaixar.Enabled    := true;
if ckbOpcao.Checked then
Application.Terminate;
end;

Para finalizar vamos codificar o evento OnClick do botão “Baixar”, nesse evento vamos atribuir um filtro para TSaveDialog e criar um objeto do tipo TFileStream para manipularmos o arquivo que pretendemos baixar.

Listagem 8: Código iniciar o Download.

procedure TfrmPrincipal.btnBaixarClick(Sender: TObject);
var
fileDownload : TFileStream;
begin
dlgSave.Filter := 'Arquivos' + ExtractFileExt(edtUrl.Text) + '|*' + ExtractFileExt(edtUrl.Text);
dlgSave.FileName := 'Arquivo';
if dlgSave.Execute then
begin
fileDownload := TFileStream.Create(dlgSave.FileName + ExtractFileExt(edtUrl.Text), fmCreate);
try
pbprogresso.Visible := True;
lblStatus.Visible   := True;
btnBaixar.Enabled   := false;
IdHTTP.Get(edtUrl.Text, fileDownload);
finally
FreeAndNil(fileDownload);
end;
end;
end; 

Antes de iniciar o download deixamos TProgressBar e lblStatus com a propriedade Visible = True, após a finalização do download a mesma propriedade do TProgressBar será alterada para false.

Agora vamos executar a aplicação, como exemplo será usado um link para download do editor de textos Notepad++.

Notem que no caption do formulário está sendo exibida a porcentagem transcorrida do download, e na tela a quantidade em kilobytes baixados. O botão “baixar” fica desabilitado enquanto existe uma operação de download em andamento.

Aplicação efetuando download

Figura 2: Aplicação efetuando download

Após finalizado o download, é exibida uma mensagem no caption do Formulário e na tela, o botão “Baixar” é habilitado novamente. Se o TCheckBox for marcado a aplicação será finalizada após o final do download.

Download finalizado

Figura 3: Download finalizado

Bom pessoal nesse artigo foi demonstrado como podemos utilizar o componente TIdHttp para desenvolver uma aplicação no Delphi para efetuar downloads. Foi possível observar como é fácil controlar o tráfego de dados e exibi-los na tela, usando apenas algumas operações matemáticas para convertê-los em um resultado mais apresentável para o usuário.

Espero que tenham apreciado e até a próxima.

Caso surja alguma dúvida meu e-mail é wllfl@ig.com.br. Fiquem à vontade também para usar a seção de comentários.

Links

Abraço a todos!


 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?