Criando Seu Primeiro Downloader no Delphi

[bielzaaos 0]

Você irá precisar de:

1* TGroupBox - Standard

1* TIDHTTP - Indy

1* TButton - Standard

2* TEdit - Standard

2* TLabel - Standard

 

Coloque os componentes como você desejar!

----

Códigooooo!!!

 

Adicione esta função após a declaração de DFM

 

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

• Entre
• ou
• Cadastre-se

 

Esta função tem como objetivo, retornar o nome do arquivo de algum link da internet.

 

---

 

No Evento de OnClick do Button1, coloque o seguinte código:

 

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

• Entre
• ou
• Cadastre-se

 

Aqui, ele chama o download, e depois que ele terminar ele salva de acordo com o local escolhido.

 

---

Agora no Evento OnWorkBegin do TIDHTTP1 Coloque o seguinte código:

procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
ProgressBar1.Max:= AWorkCountMax;
end;

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

• Entre
• ou
• Cadastre-se

 

"a"

 

Aqui, Ele define a posição da barra de acordo com o que já foi baixado do arquivo para download.

 

Agora o programa baixando um arquivo de 1.1MB

 

Está pronto nosso baixador de arquivos.

[.hard~ 0]

Bem legal cara, hora que me der tempo vou fazer um rsrs, parabéns pelo tópico está bem organizado!

[CokeBoladao 0]

ótimo, parabéns, mas como sempre, há uma duvida minha :x

Tem como eu colocar algum negócio, pra a pessoa não ter que digitar o destino, e poder selecionar-o naquelas caixinhas? :x

Obrigado. Vou testar, se funcionar toma agradecer, se funcionar e resolver minha duvida, é dois. :#

---

Não funcionou, posta a source? Preciso desse programa e farei umas adaptações, se puder serei muito grato. (E mesmo que provavelmente o programa não vá a internet, se for, terá seus creditos) - Quero colocar isso em um programa que estou montando para uso pessoal com coisas uteis e etc