Anscheinend ist die Datei zu klein, ja.
Ich hab hier mal meinen alten Code rausgekramt:
Delphi-Quellcode:
procedure TFtpBrowser.Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
FProgress.Position := AWorkCount;
end;
procedure TFtpBrowser.WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
if AWorkCountMax > 0 then FProgress.Max := AWorkCountMax
else FProgress.Max := FBytesToTransfer;
end;
procedure TFtpBrowser.WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
FProgress.Position := 0;
end;
Bei kleinen Dateien geht die Fortschrittsleiste dann eben von 0 auf 100
