[Tutorial] Downloads Com Barra de progresso [DELPHI]

[~ Heatlex. 11]

Antes de Tudo instale este componente em seu delphi:

 

 

Adicione:

1 DownloadFile1

1 Progressbar (win32) ou um Gauge (samples)

2 Edits

2 Buttons

1 SaveDialog1 (dialogs)

 

Codando

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.

 

Créditos :

Smekill

 

Organização:

MyOjOoO

[lTrent 10]

Download sem SCAN

 

Reportado.

 

Valeu mesmo assim, ajudou bastante.

['Leozin 38]

Tópico sem Scan.

 

Fechado.