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:

zusammenfalten · markieren

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:

markieren

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

markieren

Delphi-Quellcode:

			procedure TFormFTPTransfer.IdFTPWorkBegin(Sender: TObject; 

  AWorkMode: TWorkMode; const AWorkCountMax: Integer); 

begin 

  ProgressBar.Max :=AWorkCountMax; 

end;

ProgressBar.Max :=AWorkCountMax; durch

markieren

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:
Hier im Forum suchen

AWorkCountMax
die Lösung scheint zu sein, vor dem Download die Methode Size aufzurufen:

markieren

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...

Fortschrittsanzeige bei FTP-download

Fortschrittsanzeige bei FTP-download

Re: Fortschrittsanzeige bei FTP-download

Re: Fortschrittsanzeige bei FTP-download

Re: Fortschrittsanzeige bei FTP-download

Re: Fortschrittsanzeige bei FTP-download

Re: Fortschrittsanzeige bei FTP-download

Forumregeln

Unrealer Registriert seit: 13. Feb 2005 Ort: Dettenhausen 32 Beiträge Delphi 7 Personal	#2 Re: Fortschrittsanzeige bei FTP-download 7. Mär 2005, 17:17 Ich sehe nirgends in dem Quellcode wie weit der Fortschrittsbalken gehen soll. Vielleicht liegts ja daran. Marcel
	Zitat

Gambit Registriert seit: 28. Mai 2003 680 Beiträge Delphi 7 Professional	#6 Re: Fortschrittsanzeige bei FTP-download 7. Mär 2005, 18:26 Ooops, da war einer schneller...wobei das alleinige Aufrufen vorm Download wohl nicht reicht bzw. vielleicht doch besser in OnWorkBegin gesetzt wird...
	Zitat