Witam.
Próbuję wykorzystać idFTP i mam pewien problem. Mianowicie, gdy wysyłam plik, pokazuję postęp na TGauge albo TProgressBar. I wszystko łądnie, tylko że jak pobieram, to ten sam kod nie działa i pasek jest martwy. Żeby było śmieszniej, to odczytuję wewnątrz onWork wartość AWorkCount i zapisuję do memo jako kolejne linie. I w memo kolejne wartości się pokazują a pasek śpi. Może komuś się coś takiego przydażyło już i wie co jest grane. Teoretycznie skubany nie ma prawa nic nie pokazywać... a jednak :-[
dla rozjaśnienia sytuacji kodzik:
procedure TForm1.IdFTP1Work(ASender: TObject; AWorkMode: TWorkMode;
AWorkCount: Integer);
begin
gauge1.Progress := AWorkCount; //to nie działa
memo1.Lines.Add(inttostr(AWorkCount)); //a to działa :(
application.ProcessMessages;
end;
procedure TForm1.IdFTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
AWorkCountMax: Integer);
begin
gauge1.MaxValue := AWorkCountMax;
gauge1.Progress := 0;
memo1.Lines.Add('Zaczynam...');
application.ProcessMessages;
end;
procedure TForm1.IdFTP1WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
begin
gauge1.Progress := 0;
memo1.Lines.Add('Skończyłem...');
application.ProcessMessages;
end;