FTP Uploadproblem bei großen Dateien

[Mondengel]

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.