Formular friert beim FTP-Download ein!

[Luckie]

Zitat:

Zitat von Spider

Zitat:

Zitat von Luckie

Lad mal eine größere Datei runter, mehrer MB die paar Kilobytchen sind ja schneller unter als du kucken kannst. Und ich nehme mal an du hast DSL. Mit Modem oder ISDN würde man aus Kostengründen so ein Projekt ja gar nicht erst anfangen. ;)

Was soll das heißen? Ich bin auch grad an einem FTP-Browser dran und hab auch nur ISDN.

Das soll heißen, dass ich es mir docj zweimal überlegen würde so was zu programmieren, was ich nur online richtig teste kann. Wird vom Provider nach Zeit abgerechnet, dann kostet jede Minuten online testen Geld. Mit einer Flat oder einem Volumentarif wohl eher kein Problem.

@ickehausen:
Hast du die Ereignisse auch mit der Komponente im OH verbunden? Oder probier mal folgendes:

Code:

procedure TForm1.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  ProgressBar1.Position := AWorkCount;
  [b]Progressbar1.Repaint;[/b]
end;

[Die Muhkuh]

Zitat:

Zitat von Luckie

Zitat:

Zitat von Spider

Zitat:

Zitat von Luckie

Lad mal eine größere Datei runter, mehrer MB die paar Kilobytchen sind ja schneller unter als du kucken kannst. Und ich nehme mal an du hast DSL. Mit Modem oder ISDN würde man aus Kostengründen so ein Projekt ja gar nicht erst anfangen. ;)

Was soll das heißen? Ich bin auch grad an einem FTP-Browser dran und hab auch nur ISDN.

Das soll heißen, dass ich es mir docj zweimal überlegen würde so was zu programmieren, was ich nur online richtig teste kann. Wird vom Provider nach Zeit abgerechnet, dann kostet jede Minuten online testen Geld. Mit einer Flat oder einem Volumentarif wohl eher kein Problem.

Was meinst du warum ich nur Sonntags das teste? Weil es mich da nix kostet (Internet)

[ickehausen]

Zitat:

@ickehausen:
Hast du die Ereignisse auch mit der Komponente im OH verbunden? Oder probier mal folgendes:

Code:

procedure TForm1.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  ProgressBar1.Position := AWorkCount;
  [b]Progressbar1.Repaint;[/b]
end;

Ich habe mein letzten Kommentar zu spät geändert. Den Fehler habe ich eingegrenzt: Der Wert für AWorkCountMax wird mit 0 zurückgegeben. Klar dass der ProgressBar dann nichts anzeigen kann, wenn ProgressBar.Max := 0!!!!
Aber, warum bekomme ich null zurück?

[Dark-L0rd]

Hi...

Der Source für die Statusbar war so schon richtig...:

Delphi-Quellcode:

procedure Tbg3.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
  ProgressBar1.Max := AWorkCountMax;
end;

procedure Tbg3.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  ProgressBar1.Position := AWorkCount;
end;

procedure Tbg3.IdFTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
  ProgressBar1.Position := 0;
end;

Hast du denn auch bei deinem idFTP1 die Ereignisse OnWorkBegin, OnWork und OnWorkEnd verlinkt?
Und ist das idAntiFreeze auch Aktiv?

[ickehausen]

Zitat:

Zitat von Dark-L0rd

Hi...

Der Source für die Statusbar war so schon richtig...:

Delphi-Quellcode:

procedure Tbg3.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
  ProgressBar1.Max := AWorkCountMax;
end;

procedure Tbg3.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  ProgressBar1.Position := AWorkCount;
end;

procedure Tbg3.IdFTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
  ProgressBar1.Position := 0;
end;

Hast du denn auch bei deinem idFTP1 die Ereignisse OnWorkBegin, OnWork und OnWorkEnd verlinkt?
Und ist das idAntiFreeze auch Aktiv?

HI, Dark-Lord,

vielen Dank für Dein Tip. Ich habe über das Wochenende die Lösung meines Problems gefunden. Ich bekamm immer den Wert 0 für die AWorkCountMax zurück. Jetzt habe ich in den Demos zu INDY die Lösung gefunden:

Delphi-Quellcode:

  private
    { Private-Deklarationen }
    BytesToTransfer: LongWord;
.
.
.
procedure TForm1.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  if AWorkCountMax > 0 then ProgressBar1.Max := AWorkCountMax
  else ProgressBar1.Max := BytesToTransfer;
  ProgressBar1.Position := 0;
  label1.Caption := IntToStr(ProgressBar1.Max);
end;

Allen vielen Dank für Ihre Ratschläge.

:love: