FTP e Thread

Delphi

29/11/2007

Bom dia a todos.

Estou criando um aplicativo para efetuar os downloads de atualizações do meu aplicativo principal. Já consigo efetuar os downloads com o Indy sem problemas, porém preciso mostrar para o usuário que o aplicativo não está travado.
Coloquei um progressbar, mas não funciona. Eis o código:
procedure TForm1.FTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  Progresso.Max := AWorkCountmax;
  Progresso.position := 0;
end;

procedure TForm1.FTPWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  Progresso.position := AWorkCount;
  application.processmessages;
end;

procedure TForm1.FTPWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
  Progresso.position := 0;
end;


Fiz várias pesquisas aqui e no google, mas não obtive nada. Vi que o problema possa ser resolvido com Tthread, mas não sei como fazer isso.
Alguém poderia me ajudar ?

Grato pela atenção.


Turbo Drive

Turbo Drive

Curtidas 0

Respostas

Joffas

Joffas

29/11/2007

procedure TForm1.IdFTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
AWorkCountMax: Integer);
begin
if AWorkCountMax > 0 then ProgressBar1.Max := AWorkCountMax
else ProgressBar1.Max := IdFTP1.Size(´c:\indy60.bpl´);
end;


GOSTEI 0
Rjun

Rjun

29/11/2007

O que acontece com o progressbar?


GOSTEI 0
POSTAR