[Delphi]Trabalhando com IdHTTP

[AceStryker 23]

Voltei *-*, vou ensinar hoje alguns exemplos de funções que o IdHTTP(indy clients)...

 

-Baixando arquivos(Simples)

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

-Baixando arquivos com progressbar

Este é um pouquinho mais longo que o primeiro, mas nao deixa de ser simples :rs:

Primeiro voce coloca no evento OnWork do IdHTTP:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

AWorkCount é a int64 que o componente oferece que coloca o progresso(não necessariamente em porcentagem)

 

No Evento OnWorkBegin adicione

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

AWorkCountMax é a int64 que informa o total do arquivo(peso total em bytes)

 

No Evento OnWorkEnd coloque

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

e baixe no modo simples

 

-Pegando Velocidade de Download

Coloque isto numa label ou algo assim:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

-Download detalhado(dificil)

No evento OnWork coloque:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Em um timer coloque:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Adicione no private:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

pressione Ctrl + Shift + C e adicione os seguintes codigos nas respectivas funções:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

No OnWorkBegin ou ao pressionar algum botão adicione:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Bom, acho que por enquanto é so isto, da pra ajudar ne hehe...

 

Creditos:

100% eu ACESTRYKER

[TH3 CH4OS 4]

Excelente , estava procurando por isso , acredito que isso ira me ajudar e ajudar aos demais membros.

[Zaphey 1]

Muito bom mesmo Ace, quem misturar tudo isso faz um downloader bem bacana.

Estou gostando do seu desempenho, continue assim.

 

Abraços!