[Tutorial] Downloads Com Barra de progresso

['Lenneth 475]

Antes de Tudo instale este componente em seu delphi:

TheDownload file

eu nao tenho o link voces acham ae

 

Adicione:

1 DownloadFile1

1 Progressbar (win32) ou um Gauge (samples)

2 Edits

2 Buttons

1 SaveDialog1 (dialogs)

 

Button 1 coloque(para localiza onde vai ser salvo):

SaveDialog1.Execute;

Edit1.Text:= SaveDialog1.FileName;

DownloadFile1.FileName:= Edit1.Text

 

ProgressBar coloque:

ProgressBar1.Max:=CalculatedFileSize;

ProgressBar1.Position:=ReceivedBytes;

 

ou se for

 

Gauge coloque:

Gauge1.Maxvalue:=CalculatedFileSize;

Gauge1.Progress:=ReceivedBytes;

 

Botton2 coloque ( para por o link e começar a baixar):

DownloadFile1.UrlToDownload := Edit2.text;

DownloadFile1.StartDownload;

Depois renomeie os botões a sua escolha e compile o programa.

 

Creditos Dark Sourcer

[iMelo~' 11]

Olha cara isso fica muito massa mesmo ja usei e recomendo fica bem bonitinho rs , valeu por compartilhar.

[Set~ 0]

Se você disser que não copiou e colou esse tópico de algum outro lugar, você está mentindo.

Porque eu tenho a origem deste mesmo post, só que em outro fórum...

Se pedirem eu posto pra vocês verem.

[XDian 1]

Legal!

Eu só sabia fazer tipo um "Gerenciador de Downloads" no VB!

 

Mas tipo, posta uns prints pro povão ver o resultado e tals

['Lenneth 475]

Se você disser que não copiou e colou esse tópico de algum outro lugar, você está mentindo.

Porque eu tenho a origem deste mesmo post, só que em outro fórum...

Se pedirem eu posto pra vocês verem.

 

 

Ava e mermo

 

[Lf' 5]

24 Horas para colocar os devidos créditos, ou o tópico será fechado!

 

Encontrei um tópico idêntico postado no mês nove do ano passado.

http://www.webcheats.com.br/forum/delphi-vb/1094109-tutorial-downloads-com-barra-de-progresso-delphi.html

porém não irei fechar o tópico pelo fato do outro tópico estar morto, e dificilmente outros membros o acharam.