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!



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.


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 von ickehausen:

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

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