TidFTP Uploadproblem bei größeren Dateien

[Mondengel]

Zitat:

Funktioniert es denn mit einem FTP-Client?

ich hab vorher mit FileZilla getestet und da wurde die Datei ohne Problem in 3 Minuten hochgeladen.

[Luckie]

Delphi-Quellcode:

procedure TMFTP.Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Integer);
var
  S: string;
begin
  //FTPClient.Noop;
  If (Global.IdFTPPut) Then
  begin
    //Errechnen der Transfergeschwindigkeit:
    S := Transfergeschwindigkeit(AWorkCount);
    FMain.lb_anzeige.Caption := '';
    case AWorkMode of
      wmWrite: FMain.lb_anzeige.Caption := Global.sendung + #13#10 +
      Global.downloadspeed + 'Uploade speed ' + S;
    end;

    //Aktualisieren der Fortschrittsanzeige:
  end;
  FMain.prba_datei.Position := AWorkCount;
  FMain.prba_datei.Update;
  FMain.Showapplication;
{$IFDEF Adminrechte}
  FAdmin.mem_anz.Lines.Add('OnWork: '+IntToStr(AWorkCount));
{$ENDIF}
end;

Mach hier doch mal ein

Delphi-Quellcode:

Application.ProcessMessages

rein, damit deine Oberfläche überhaupt eine Chance hat sich zu aktualisieren.

[DataCool]

Hi,

223 MB in 3 Minuten ?!
>= 1.2 MB/Sek, da musS der FTP-Server ja schon bei Dir im Netzwerk iegen, oder ?!
Wenn nicht hätte ich gerne Deine Internet-Leitung 8-)

Kann es vielleicht sein, das Du mit Indy Passive überträgst und Filezille active übertragt ?

Greetz Data

[Mondengel]

@ Luckie
Der Witz ist nur das nach der Übertragung sich das Programm aufhängt :pale: und die Datei ist auch nicht da;

@ DataCool
Ich hab DSL 6000, außerdem ist mein FTP-Client im Aktiv und FileZille im Passive:oops:

[Mondengel]

Es hat sich jetzt eh ein anderes Problem aufgetan
Bei größeren Dateien krieg ich ein "Socket Error 10055" und bei kleineren ist der Fehler nicht da.

[DataCool]

Hi,

10055 = "Ein Socketvorgang konnte nicht ausgeführt werden, da dem System Pufferspeicher fehlte oder eine Warteschlange voll war".

Vielleicht hilft es die Buffergröße zu erhöhen.

Greetz Data

[Mondengel]

Zitat:

Vielleicht hilft es die Buffergröße zu erhöhen

Das ist mir jetzt oberpeinlich, aber wie geht:oops::oops::oops::oops::oops:

[DataCool]

Hi,

versuch mal :

Delphi-Quellcode:

idFtp1.Socket.SendBufferSize := xyz;

Mußte jetzt aber auch nachsehen ;-)

Greetz Data

[Mondengel]

Hat leider nicht geholfen:(
hab es auf 20000000 erhöht und der Fehler kommt immer noch:wall:

[DataCool]

Hi,

welche Indy Version benutzt Du genau ?

Delphi-Quellcode:

ShowMessage(idFtp1.Version);

Greetz Data