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

[RUSlan48]

Подскажите пожалуйста, как связать ProgressBar и процесс скачивания файла с FTP сервера?

Может можно как-нибудь напрямую с сервера читать файл какой-либо процедурой похожей blockread?

[mss]

Можно.
Все зависит напрямую от выбранного клиентского инструментария доступа к FTP-серверу.

[RUSlan48]

я использовал Indy, но с progressbar'ом я зашёл в тупик, тут моих скудных знаний не хватило... Может кто подскажет?

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

события OnWork*** компонента используйте.

[RUSlan48]

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

события OnWork*** компонента используйте.

это интересно... а где можно про него почитать, или пример посмотреть?

И ещё, как я понимаю, чтобы использовать это событие для связи с progressbar'ом, нужно знать размер скачиваемого файла, а как его узнать, если он на сервере, я тоже не знаю...

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

блин, а что прочитать?

названия событий говорят сами за ся.
названия передаваемых параметров тоже.

[RUSlan48]

а что передать в качестве параметра типа TWorkMode?
Этот тип описывает "способ" работы, я так понимаю..?

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

вообще то это вам передают а не вы.

[RUSlan48]

вроде немного въехал, нашёл пример, чего-то по нему написал, видимо совсем не то...

Вот кусок программы:

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

procedure tForm1.FTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
  OKBottomDlg3.ProgressBar1.Max := id.Size(Fname);
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;
         id.Get(listbox1.Items[listbox1.ItemIndex], savedialog1.FileName, true, false);
      end;
end;

Код BitBtn3Click, похоже совсем не правильный, потому что OKBottomDlg3 зависает и
в конце концов ошибка: TProgressBar property out of range, а файл получается пустой.
Я не совсем понимаю, что делать с id.Get (куда его запихать), а точнее совсем не понимаю...

Подскажите пожалуйста чайнику :-)

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

procedure tForm1.FTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
  OKBottomDlg3.ProgressBar1.Max := AWorkCountMax;
end;