Buscar por:

Download com idhttp e progressbar

Código

Download com idHTTP e ProgressBar.

1- Inicie um novo projeto : File / New / VCL Form Aplication;

2- Coloque um Button, um Edit, um Progressbar e um Label, e um idHTTP (Paleta Indy Clients);

3- No evento OnClick do Button coloque o código abaixo:

var

 arquivo,caminho : string;

 MyFile: TFileStream;

begin

// definir o link

 caminho:= 'http://www.arquivojuridico.com/';  // aqui defini um caminho pardão pro download , pode ser trocado por um edit, etc

 arquivo:= edit1.text; // nome do arquivo para download

 MyFile := TFileStream.Create('C:'+arquivo, fmCreate); // local no hd e nome do arquivo com a extensão, onde vai salvar.

  try

    IdHTTP1.Get('http://www.arquivojuridico.com/'+arquivo, MyFile); // fazendo o download do arquivo

  finally

    MyFile.Free;

end;

4- No evento OnWork do idHTTP1:

ProgressBar1.Position := AWorkCount;

5- No evento OnWorkBegin do idHTTP1:

ProgressBar1.Position := 0;

ProgressBar1.Max := AWorkCountMax;

Label1.caption := "Download em andamente, espere!";

6- No evento OnWorkEnd do idHTTP1:

ProgressBar1.Position := ProgressBar1.Max;

Label1.caption := "Download Concluído!";

7- Agora dê F9, e teste a aplicação.

Abraço, Júlio César Schincariol Filho.