FTP Uploadproblem bei großen Dateien

[Die Muhkuh]

Hi,

also ich uploade hier gerade mit TIdFTP seit ca. 18 Minuten hoch und haben schon knapp 130mb übertragen.

die Progressbar zeigt auch ordentlich an.

Habe eig. nur ein TIdFTP auf die Form gemacht, die Daten zu meinem FTP-Account eingetragen.

Der ganze Code ist nur das hier:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  FTP.Connect;
  FTP.ChangeDir('raubi.eu');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if (openDialog1.execute) then
  begin
    FTP.Put(openDialog1.FileName, ExtractFileName(openDialog1.FileName), false);
  end;
end;

procedure TForm1.FTPWork(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Int64);
begin
  progressbar1.Position := AWorkCount;
  progressbar1.Repaint;
end;

procedure TForm1.FTPWorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Int64);
begin
  progressbar1.Max := AWorkCountMax;
end;