Anwendung beendet sich nicht (seit XE2)

[Poolspieler]

Hallo zusammen,
ich habe (nach Telefonant mit Support) Delphi XE heruntergeladen und installiert.
--> Ergebnis: Auch hier das selbe Verhalten.

Kann sich irgend jemand vorstellen, an was das liegen kann bzw. wie man die Ursache aufspüren kann?

Was ist an Delphi2009 anders? Warum tritt der Fehler da nicht auf????

Ich bin für jede Hilfe dankbar!

Gruß,

Poolpsieler

[sebastianz1983]

Hab das gleiche Problem momentan auch. Ich programmiere ebenfalls an einer (Delphi XE) Anwendung, die mit mehreren Threads gleichzeitig arbeitet.
Der Fehler tritt leider nur sehr sporadisch auf, weswegen ich bisher keine reproduzierbaren Schritte finden konnte.

Poolspieler, konntest du dein Problem damals beheben? Und wenn ja, wie?

Sebastian

[Poolspieler]

Hallo Sebastian,
es lag damals an einer nicht freigegebenen TThreadlist.
Ich habe dann ein Free- und Clear-Statement in den Destructor eingefügt.
Dann war das Problem behoben.
(klingt einfach, hat mich aber einige Wochen gekostet...)

Viele Grüße,

Poolspieler

[sebastianz1983]

Hallo Poolspieler,

ich hab in meinem Fall zwar keine TThreadlist, werd aber nochmal drauf aufpassen, dass auch wirklich alle Threads freigegeben werden. Sitze auch schon seit geraumer Zeit an diesem Problem...
Danke für die schnelle Antwort!

Sebastian

[Der schöne Günther]

Ja, so verhält sich fast jedes meiner XE2-Programme: Da ist noch ein Thread am Laufen, der VCL-Thread ist aber schon aus. Du kannst die Threads auch benennen (NameThreadForDebugging oder so) um die Übersicht zu behalten.

[Poolspieler]

Hallo,
wenn Du keine TThreadList hast, dann wirst Du ja wahrscheinlich im onClose-Ereignis des Hauptfensters Deine Threads (oder die Klasse drüber) freigeben.
Und dort wirst Du ja sowas wie:

Code:

meinThread.free;

aufrufen.
--> Und die destroy-Routine wartet so lange, bis der Thread beendet ist.
Und im Thread steht ja wahrscheinlich sowas in der Art:

Code:

procedure TmeinThread.Execute;
begin
  inherited;
  while not Terminated do begin
    if signal_mach_was then begin 
      // hier wird irgendwas gemacht --> und wenn das zu lange dauert --> dann hängt Deine Anwendung beim Schließen...
    end;
    sleep(1);
  end;
end;

.Free ruft .destroy auf.
In der Delphi-Hilfe steht zu .destroy:

Zitat:

Gibt das Thread-Objekt frei.
Rufen Sie Destroy in einer Anwendung nicht direkt auf. Verwenden Sie stattdessen Free zur Freigabe eines Threads, wenn die Eigenschaft FreeOnTerminate den Wert false hat.
Destroy veranlasst die Beendigung des Threads und wartet auf eine entsprechende Bestätigung. Danach wird die geerbte Methode Destroy aufgerufen.

Interessant dürfte vor allem der letzte Satz für Dich sein...



Viele Grüße,

Poolspieler

[Der schöne Günther]

Hier mal zum Thema, den Thread nach einer Wartezeit dann mit Gewalt zu beenden falls er es nicht von alleine tut: http://www.delphipraxis.net/173890-w...gewaltsam.html