Formular friert beim FTP-Download ein!

[ickehausen]

HI Leute,

ich möchte gern eine Datei (ca. 5MB groß, dadurch dauert der Download etwas länger) von einem FTP-Server downloaden. Das funktioniert auch, aber mein Formular friert dabei ein und erwacht erst wieder, wenn der Download komplett ist. Der ProgressBar bleibt leer. Ich habe neben dem IdFTP auch ein IdAntiFreeze auf meinem Formular, bewirkt aber nichts!

:wall:

Hier folgt der Code:

Delphi-Quellcode:

procedure TForm1.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  ProgressBar1.Max := AWorkCountMax;
  ProgressBar1.Position := 0;
end;

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdFTP1.Host := 'ftp.domain.com';
  IdFTP1.Username := 'anonymous';
  IdFTP1.Password := '';
  IdFTP1.Connect;
  IdFTP1.ChangeDir('/');
  IdFTP1.Get('xyz.exe','C:\ttt\xyz.exe',true);
  IdFTP1.Quit;
  IdFTP1.Disconnect;
end;

Kann mir jemand helfen?

[fkerber]

HI!

Herzlich Willkommen in der DP.

Mach vielleicht irgendwo ein Application.Processmessages rein.

Zur besseren Lesbarkeit: Es gibt hiuer sog. Delphi-Tags, einfach den gesamten Code markieren und oberhalb des Textfeldes auf den "Delphi-Code" Button klicken.
Zum Editieren des Beitrags ist oben rechts eine Schaltfläche ("Edit")

Ciao fkerber

[Die Muhkuh]

Hi ickehausen,

erstmal Herzlich Willkommen in der DP. :dp:


So wie ich sehe verwendest du die Indy's. Da gibts eine Komponente names "IdAntiFreeze". Zufinden unter "Indy-Misc". Einfach auf die Form machen. Dann funtzt es.

[Luckie]

Entweder packst du das ganze in einen separaten Thread oder du probierst mal diese Indy AntiFreeze Komponente aus.

[fkerber]

Hi!

Zitat:

Zitat von ickehausen

Ich habe neben dem IdFTP auch ein IdAntiFreeze auf meinem Formular, bewirkt aber nichts!

:mrgreen:

Ciao fkerber

[Luckie]

Ups. Ist es auch richtig eingestellt? Hast du mal an den Einstellungen etwas rumprobiert?

[ickehausen]

Hi,

danke für die Tips, auch mit dem Delphi-Code, bin im Forum halt neu und außerdem kasser Delphi-Neuling. Jetzt habe ich in einem anderen Beitrag gelesen, dass ich beim AntiFreeze den Wert onlywhenidle auf false stellen muß. Das Formular friert nicht mehr ein, aber mein ProgressBar zeigt immer noch nichts an. Was mache ich flasch?

Delphi-Quellcode:

procedure TForm1.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  ProgressBar1.Max := AWorkCountMax;
  ProgressBar1.Position := 0;
end;

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

[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. ;)

[Die Muhkuh]

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.

[ickehausen]

Hi Luckie,

ich brauche schon ein bis zwei Minuten um die 5 MB down zu loaden, trotz DSL. Der ProgressBar zeigt einfach nichts an!
Ich kann den Fehler jetzt aber eingrenzen; der Wert von AWorkCountMax ist immer 0!
:wall:

[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: