Ich glaub ich seh den Fehler werd aber noch mal testen.
Bei deinen aufrufen von OnWork und OnWorkbeginn steht
Zitat:
Delphi-Quellcode:
procedure TForm1.FTPWork(ASender: TObject; AWorkMode: TWorkMode;
AWorkCount: Int64);
Zitat:
Delphi-Quellcode:
procedure TForm1.FTPWorkBegin(ASender: TObject; AWorkMode: TWorkMode;
AWorkCountMax: Int64);
begin
progressbar1.Max := AWorkCountMax;
end;
Bei mir wiederum
Delphi-Quellcode:
procedure TMFTP.Work(ASender: TObject; AWorkMode: TWorkMode;
AWorkCount: Integer);
Delphi-Quellcode:
procedure TMFTP.WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
AWorkCountMax: Integer);
Ich hab ein Integer und du ein Int64. Das könnt das Problem mit fer Processbar lösen.