Скачать: CL | DM;

И снова вопрос о FTP   Найти похожие ветки 

← →
graf ©   (2006-06-09 09:22) [0]

Работаю с компонентой Indy IdFTP. Получаю размер файла лежащего на ФТП сервере функцией Size. А как получить объем данных в момент скачивания файла?

---

← →
Palladin ©   (2006-06-09 10:57) [1]

TIdFTP.OnWork

---

← →
graf ©   (2006-06-09 11:28) [2]

Пишу вот так:

procedure TForm1.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
 const AWorkCountMax: Integer);
begin
pbProgress.Max := AWorkCountMax;
pbProgress.Position := 0;
end;

procedure TForm1.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
 const AWorkCount: Integer);
begin
pbProgress.Position := AWorkCount;
end;

Но работать отказывается, файл с сервака копируется а в прогрессе просто ничего не происходит. В чем может быть дело?

---

← →
Palladin ©   (2006-06-09 13:59) [3]

дело может быть в том что не вызываешь Application.ProcessMessages

---

← →
pargo ©   (2006-06-09 14:40) [4]

Скорее всего AWorkCountMax=0.

---

← →
Palladin ©   (2006-06-09 15:15) [5]

да, и в этом тоже...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c