Здравствуйте! использую Indy 10 для приема и отправки файлов по FTP. Проблема в следующем: при орправке файла на сервер не отображается процесс закачки:
procedure TForm3.fputWorkBegin(ASender: TObject; AWorkMode: TWorkMode;
AWorkCountMax: Integer);
begin
form3.AdvProgressBar1.Max :=AWorkCountMax;
form3.ProgressBar1.Position := 0;
form3.ProgressBar1.Visible := true;
end;
procedure TForm3.fputWork(ASender: TObject; AWorkMode: TWorkMode;
AWorkCount: Integer);
begin
form3.ProgressBar1.Position:=aworkcount;
end;
procedure TForm3.fputWorkEnd(ASender: TObject; AWorkMode: TWorkMode);
begin
form3.ProgressBar1.Visible := false;
end;
Получается следуещее: показывается прогрессбар (WorkBegin) и тутже пропадает (WorkEnd). Куда девается (Work)? Хотя закачка файла на сервер продолжается, индекатора так и не видно.
Тоже самое делаю для приема файлов. Здесь все работает как положено.
Если кто знает в чем дело, подскажите пожалуйста.