CoUninitialize WIRKLICH nötig?

[Rob09]

Hi!

Ich benutze einen Thread, der im Prinzip simpel aussieht und folgendes macht:

Delphi-Quellcode:

procedure TMyThread.Execute;
begin

  CoInitialize;

  while ... do

    if Terminated then
    begin
      CoUninitialize;
      Exit;
    end;

    Arbeite(...);
    // Hier wird gearbeitet, u.a. Websites abgerufen mit IXMLHTTPRequest bzw. CoXMLHTTP (muss zugeben, dass ich den Code zusammengesucht habe und nicht wirklich was davon verstehe)

  end;

  CoUninitialize;

end;

Nun möchte ich - falls der Benutzer das Hauptfenster schließt - gerne den Thread ohne Rücksicht auf Verluste abbrechen und das Programm ohne Verzögerung schließen.

Das war bisher so gelöst:

Delphi-Quellcode:

procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin

  ...

  MyThread.Terminate; //***
  MyThread.WaitFor;   //***
  FreeAndNil(MyThread);

end;

Mit der obigen Lösung kommt es aber vor, dass das Hauptfenster dann für einige Zeit (bis zu ~30s) einfriert, bevor es geschlossen wird.

Wenn ich die beiden mit //*** gekennzeichenten Zeilen weglasse, dann wird das Programm ohne Fehlermeldung wie gewünscht sofort geschlossen. Allerdings wird dabei dann nicht mehr CoUninitialize aufgerufen. Spielt das denn überhaupt noch eine Rolle? Schließlich wird mein Prozess ja ohnehin gekillt...

Schonmal Danke für eure Hilfe!
Robert

[Dezipaitor]

Nach http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx
zu deuten, kann es schonmal etwas länger dauern. Du kannst aber auch einfach dein eigenes WaitFor schreiben, wie ich es mit
http://jwscldoc.delphi-jedi.net/[e-mail]
gemacht habe.

[himitsu]

Delphi-Quellcode:

MyThread.WaitFor;
FreeAndNil(MyThread);

Weglassen und den Thread sich selber freigeben lassen? (FreeOnTerminate)

[Rob09]

Genial einfach - einfach genial!

Vielen Dank für den "Denkanschubser", so funktionierts wie gewünscht!

Beste Grüße und Danke euch beiden!
Robert

PS:
Nur mal aus Interesse... Würde es tatsächlich "schaden", wenn ein Programm beendet wird, ohne vorher das nötige CoUninitialize aufzurufen?

[himitsu]

Sagen wir es mal so: Etwas aufräumen kann nicht schaden.

Selbst wenn windows vieles frei git, wenn die App geschlossen wird, kann man ja dennoch selber seinen Mist wegräumen, so wie man ja auch wärend der Programmlaufzeit alles fein säuberlich aufräumt.


WinNT züchtet Schlampen heran.

[Rob09]

Das sehe ich prinzipiell genauso, himitsu. Aber wenn es einem ausnahmsweise mal das Leben wesentlich leichter macht, kann man ja mal im Einzelfall drauf verzichten. Deshalb noch ein letzter Versuch :

Wird die COM library beim Beenden des Anwendungsprozesses automatisch freigegeben, sodass es nicht nötig ist, CoUninitialize am Ende des Programms aufzurufen?

Beste Grüße!
Robert