IdFtp - ProgressBar zeigt nix beim Download Fehlersuche....

[Grolle]

Hallo,
ich weiß, das Thema gabs schon oft, aber ich finde den Fehler einfach nicht. Ich möchte den
Downloadfortschritt in einer Progressbar anzeigen lassen (Upload funktioniert). Hier mein Text:

Delphi-Quellcode:

procedure TForm1.ToolButton8Click(Sender: TObject);
var
name : string;
begin
  if Listbox3.ItemIndex > - 1 then
    begin
      SaveDialog1.FileName := Listbox3.Items.Strings[Listbox3.ItemIndex];
      if savedialog1.execute then
        begin
          name := IdFTP.DirectoryListing.Items[Listbox3.ItemIndex].FileName;
          BytesToTransfer:= IdFTP.Size(name);
          IdFTP.Get(name, SaveDialog1.FileName, true);
        end;
    end;
end;

und

Delphi-Quellcode:

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

procedure TForm1.IdFTPWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
  BytesToTransfer := 0;
  ProgressBar1.Position := 0;
end;

procedure TForm1.IdFTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  if AWorkCountMax > 0 then
    ProgressBar1.Max := AWorkCountMax
  else
    ProgressBar1.Max := BytesToTransfer;
end;

Viele Grüße...

[inherited]

Guckst du hier. Das isn Indy-Tutorial wo unter anderem auch eine Fortschrittsanzeige erklärt wird

[Die Muhkuh]

Hi,

ich hab ne kleine unschönheit entdeckt. Du hast eine Variable "name" benannt. Name könnte aber auch der Name von der Form sein. Nenn die Variable lieber mal um.

[Grolle]

Hallo,

dieses Tutorial kenne ich natürlich. Das hilft mir aber nicht
bei der Fehlerfindung in meinem Source. :gruebel:

//Edit: @ spider
"Name als Variable ist wirklich nicht schön :angel2:

[Die Muhkuh]

Hi,

hast du auch schonmal geschaut, was in BytesToTransfer bzw. in AWorkCountMax (evtl. auch in AWorkCount) drin steht?

[Grolle]

:wall: Ich bin so dämlich!
Im DoubleClick stand noch was anderes als im ToolButtonClick.
und nochmal... :wall:

[Die Muhkuh]

Für sowas benutze ich den TActionManager :stupid:

[DGL-luke]

Zitat:

Zitat von Spider

Für sowas benutze ich den TActionManager :stupid:

Wie benutzt man denn den?

[inherited]

Zitat:

Zitat von Spider

Hi,

ich hab ne kleine unschönheit entdeckt. Du hast eine Variable "name" benannt. Name könnte aber auch der Name von der Form sein. Nenn die Variable lieber mal um.

Wer? Was? Wann?

[SirThornberry]

Zitat:

Zitat von DGL-luke

Zitat:

Zitat von Spider

Für sowas benutze ich den TActionManager :stupid:

Wie benutzt man denn den?

Neue Frage -> neuer Thread.