OnTerminate wird nicht ausgeführt

[GreenHorn3600]

Hallo Wissende,

ich kämpfe grad mit Threads. Dabei versuche ich auf das Ende eines Threads zu reagieren, nur, das Ereignis wird nie ausgeführt. Weiss einer warum und was man hier machen muß damit es funktioniert? Danke schon mal.

Hier der Start des threads:

Delphi-Quellcode:

procedure TWUSUpdatesCheck.Run;
begin
  if fTempFileName = '' then CreateTempFilename;
  if not CanRun then exit; //Nur wenn alle Parameter gefüllt sind
  if fThreadRunning then exit; //Nur ein Download kann laufen
  if fWUSDownloadThread <> NIL then 
    Raise EWUSException.Create(rWUS_Exeption_Internal_Error);

  fWUSDownloadThread := TWUSDownloadThread.Create(true);
  fWUSDownloadThread.URL := fUpdateListURL;
  fWUSDownloadThread.Filename := fTempFileName;
  fWUSDownloadThread.OnTerminate := OnFinishedDownload;
  fWUSDownloadThread.FreeOnTerminate := false;
  fWUSDownloadThread.Resume;
end;

und hier kommt er nie an:

Delphi-Quellcode:

procedure TWUSUpdatesCheck.OnFinishedDownload(Sender: TObject);
begin
  {Hier die Daten übernehmen}
   writeln('finished');
  fThreadRunning := false;
  FreeAndNIL(fWUSDownloadThread);
end;

Danke schon mal.
Greeny

[xZise]

Hallo Greeny,
was macht er denn in TWUSDownloadThread.Execute?

MfG
xZise

[GreenHorn3600]

Hallo Fabian,

nichts besonderes, er ruft den Download auf und macht eine Fehlerbehandlung.

Delphi-Quellcode:

procedure TWUSDownloadThread.Execute;
begin
  try
    if (fURL <> '') and (FFilename <> '') then Download;
  except
    if not(ExceptObject is EAbort) then
      Synchronize(self, ShowException);
  end;
end;

Der Download sieht folgendermaßen aus:

Delphi-Quellcode:

procedure TWUSDownloadThread.Download;
var
  URLDown: TDownLoadURL;
begin
  URLDown := TDownLoadURL.Create(NIL);
  try
    URLDown.Filename := FFilename;
    URLDown.URL      := FURL;
    URLDown.OnDownloadProgress := DownloadProgress;
    URLDown.ExecuteTarget(NIL);
  finally
    URLDown.Free;
  end;
  if fHasDownloaded then
    terminate;
end;

Wobei das Flag HasDownloaded wunderbar auf True gesetzt ist, und Terminate aufgerufen wird.

Weiss wirklich nicht, an was es liegen könnt...

Greeny

[Apollonius]

Unabhängig davon, weshalb OnTerminate nicht aufgerufen wird, ist dein Event-Handler falsch. Du darfst den Thread dort nicht freigeben, weil er noch intern benötigt wird. Wenn du ihn tatsächlich direkt bei der Terminierung freigeben willst, kannst du auch FreeOnTerminate auf true setzen.

[GreenHorn3600]

Hallo Apollonius,

ich möchte aber die Instanz kontrollieren und es nicht dem Thread überlassen, wann er sich verabschieden möchte.

Ich habe mal den Abschnitt wie folgt geändert:

Delphi-Quellcode:

procedure TWUSUpdatesCheck.OnFinishedDownload(Sender: TObject);
begin
 {Hier die Daten übernehmen}
   writeln('finished');
  fThreadRunning := false;
  fWUSDownloadThread.WaitFor;
  FreeAndNIL(fWUSDownloadThread);
end;

Dies sollte doch jetzt genügen, oder?

Grüße
Greeny

[Apollonius]

Das gibt einen Deadlock: OnTerminate wird indirekt vom Thread selbst aufgerufen. Der Thread blebit zwangsläufig am Leben, bis OnTerminate zurückkehrt.

[GreenHorn3600]

Es wäre schön, wenn OnTerminate aufgerufen würde. Aber das macht es ja nicht, von daher kann es ja auch keinen Deadlock geben.

Aber kann es sein, dass OnTerminate nur bei Fensterapplikationen und nicht bei Konsolapplikationen funktioniert?

Grüße
Greeny

[Apollonius]

Gut, dass du das erwähnst. OnTerminate wird per Synchronize aufgerufen, was ohne spezielle Vorkehrungen bei Konsolenanwendungen nicht funktioniert.

[GreenHorn3600]

Tja, dann bringt mir das Event nicht wirklich was

Werde mich mal nach einer anderen Lösung umsehen.

Dank und Gruß
Greeny

[alzaimar]

Setze FreeOnTerminate auf True, setze Terminated *nicht* auf True (überflüssig, weil die Execute-Methode eh terminiert) und schreibe die 'Download Fertig' Logik ans Ende der Execute-Methode.