Связь ProgressBar и скачивания с FTP

[RUSlan48]

Да =) Спасибо.

Только почему-то пока файл качается OKBottomDlg3 всё равно виснет и ProgressBar не двигается, а просыпается только после того, как файл скачан...

[Пепел Феникса]

в OnWork суньте Application.ProcessMessages;

[RUSlan48]

Да, спасибо =)

Только ProgressBar1 всё равно почему-то спит...

[RUSlan48]

ОЙ, не не не, последнее сообщение не в счёт

[RUSlan48]

Сообщение от Пепел Феникса

в OnWork суньте Application.ProcessMessages;

в смысле? просто сунуть? что это такое?

[Пепел Феникса]

заставить приложение обработать сообщения оконные.

[kangreon]

Что такое application.processMessages?

[RUSlan48]

Запихнул, но ничего не изменилось. Сама программа не виснет, это вроде уладил, но с ProgressBar'ом всё по-прежнему

Причём не работает именно ProgressBar, т.к. OKBottomDlg3.Label1 изменяется в процессе скачивания

Ещё: если в процедуру tForm1.FTPWorkBegin вставить OKBottomDlg3.Edit1.Text:=inttostr(A WorkCountMax); то в OKBottomDlg3.Edit1.Text всё время висит 0

[RUSlan48]

Всё, я разобрался, всем спасибо))
вот так всё работает:

procedure tform1.FTPWork(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer);
begin
  OKBottomDlg3.ProgressBar1.Position := AWorkCount;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
      savedialog1.FileName:=listbox1.Items[listbox1.ItemIndex];
      if savedialog1.Execute then begin
         FName:=listbox1.Items[listbox1.ItemIndex];
         OKBottomDlg3.Label2.Caption:=listbox1.Items[listbox1.ItemIndex];
         OKBottomDlg3.Show;
         id.OnWork := FTPWork;
         id.OnWorkBegin:= FTPWorkBegin;

         OKBottomDlg3.ProgressBar1.Max:=id.Size(listbox1.Items[listbox1.ItemIndex]);

         id.Get(listbox1.Items[listbox1.ItemIndex], savedialog1.FileName, true, false);
      end;
end;

Всё оказалось проще))

[Dux]

Код следующий:

procedure TForm1.IdFTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Int64);
begin
 ProgressBar1.Position:= AWorkCount;
 Application.ProcessMessages;
end;

procedure TForm1.IdFTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Int64);
begin
ProgressBar1.Max := AWorkCountMax;
end;

procedure TForm1.IdFTP1WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
begin
ProgressBar1.Position:= 0;
end;

Не могу понять почему не работает. Progressbar никак не реагирует.