Fortschrittsanzeige bei FTP-download

[Gambit]

Hi,

es gibt von Luckie so ein schönes Beispiel, wo beim FTP-upload der Status und der Uploadfortschritt angezeigt wird:
Die Fortschrittsanzeige der Progressbar wird durch Properties von IdFTP realisiert und zwar mit folgenden Methoden:

Delphi-Quellcode:

procedure TFormFTPTransfer.IdFTPWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  ProgressBar.Position := AWorkCount;
  Application.ProcessMessages;
end;

procedure TFormFTPTransfer.IdFTPWorkEnd(Sender: TObject;
  AWorkMode: TWorkMode);
begin
  ProgressBar.Position := 0;
end;

procedure TFormFTPTransfer.IdFTPWorkBegin(Sender: TObject;
  AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
  ProgressBar.Max :=AWorkCountMax;
end;

Meines Erachtens müsste das Ganze doch beim Download ebenso funzen, tut es aber nicht, die Fortschrittsanzeige bewegt sich nicht.
Die Frage ist jetzt, warum wohl nicht...

Gruß

Wolle

[Unrealer]

Ich sehe nirgends in dem Quellcode wie weit der Fortschrittsbalken gehen soll. Vielleicht liegts ja daran.

[Gambit]

Zitat von Unrealer:

Ich sehe nirgends in dem Quellcode wie weit der Fortschrittsbalken gehen soll. Vielleicht liegts ja daran.

Ne? Das steht in der letzten Methode:

Delphi-Quellcode:

procedure TFormFTPTransfer.IdFTPWorkBegin(Sender: TObject; 
  AWorkMode: TWorkMode; const AWorkCountMax: Integer); 
begin 
  ProgressBar.Max :=AWorkCountMax; 
end;

Und da scheint der Hund auch begraben zu sein, der Wert wird nämlich im OnWorkBegin-Ereigniss nicht ermittelt, steht somit auf Null. Beim Upload wird der Wert im Gegensatz dazu richtig ermittelt...

[Gambit]

So, es liegt, wie gesagt an AWorkCountMax, wo bei einem FTP-download immer der Wert Null drin steht. Die Progressbar kann somit nichts anzeigen.

ersetzt man in

Delphi-Quellcode:

procedure TFormFTPTransfer.IdFTPWorkBegin(Sender: TObject; 
  AWorkMode: TWorkMode; const AWorkCountMax: Integer); 
begin 
  ProgressBar.Max :=AWorkCountMax; 
end;

ProgressBar.Max :=AWorkCountMax; durch

Delphi-Quellcode:

if AWorkCountMax > 0 then ProgressBar.Max := AWorkCountMax
    else ProgressBar.Max := BytesToTransfer;

wobei BytesToTransfer vom Typ LongWord ist und nach dem Connect mit

BytesToTransfer:= IdFTP.Size(Datei); ermittelt wird, funzt die Progressbar auch beim FTP-Download...

[shmia]

Zitat von Gambit:

Und da scheint der Hund auch begraben zu sein, der Wert wird nämlich im OnWorkBegin-Ereigniss nicht ermittelt, steht somit auf Null. Beim Upload wird der Wert im Gegensatz dazu richtig ermittelt...

Ja und das Problem mit Indy taucht in diesem Forum immer wieder auf:
AWorkCountMax
die Lösung scheint zu sein, vor dem Download die Methode Size aufzurufen:

Delphi-Quellcode:

  progress1.Max := IdFTP1.Size(dateiname);
  IdFTP1.Get(dateiname, localfilename);

[Gambit]

Ooops, da war einer schneller...wobei das alleinige Aufrufen vorm Download wohl nicht reicht bzw. vielleicht doch besser in OnWorkBegin gesetzt wird...