Anwendung sauber beenden, während Thread läuft

[DeddyH]

Ich bastle momentan für einen Bekannten an einer Dateisuch-Komponente. Diese benutzt intern einen Thread, der bei Funden synchronisiert Events abarbeiten lässt. Soweit alles feini, feini. Das Problem, das ich noch habe (ich zeige mal beispielhaften Vergleichscode):
Komponente

Delphi-Quellcode:

type
  TMyThread = class(TThread)
  private
    FOnDings: TDingsEvent;

...

procedure TMyThread.DoOnDings;
begin
  if Assigned(FOnDings) then
    FOnDings(Parameter);
end;

procedure TMyThread.Execute;
begin
  //arbeiten
  if Dings then
    Synchronize(DoOnDings);
end;

Formular

Delphi-Quellcode:

procedure TMyForm.DoOnDings(Parameter);
begin
  EditDings.Text := Parameter;
end;

Wird nun das Programm geschlossen, kann es natürlich passieren, dass das Edit vor meiner Komponente freigegeben wird, während die synchronisierte Methode noch arbeitet. Damit endet der Zugriff auf EditDings logischerweise in einer AV. Natürlich kann man im OnClose des Formulars den Thread terminieren, aber das muss der Anwender meiner Komponente tun, ich hätte das lieber selbst irgendwie geregelt. Leider habe ich keine zündende Idee, momentan habe ich einfach den Aufruf der zugewiesenen Methode innerhalb des Threads in einen try-except-Block gepackt, wobei der Thread im Exception-Fall dann terminiert. Hat jemand einen schöneren Vorschlag?

[Sir Rufo]

Wenn die Anwendung beendet wird, dann sollte eigentlich TApplication.Terminated auf True sein

[WladiD]

Also wenn dein Thread nicht mit FreeOnTerminate := TRUE läuft, dann reicht ein einfaches DeinThread.Free im OnDestroy des Forms aus und alles wird korrekt beendet.

[Sir Rufo]

Zitat:

Zitat von WladiD (Beitrag 1149029)

Also wenn dein Thread nicht mit FreeOnTerminate := TRUE läuft, dann reicht ein einfaches DeinThread.Free im OnDestroy des Forms aus und alles wird korrekt beendet.

Genau das möchte er doch vermeiden!

[WladiD]

Zitat:

Zitat von Sir Rufo (Beitrag 1149031)

Zitat:

Zitat von WladiD (Beitrag 1149029)

Also wenn dein Thread nicht mit FreeOnTerminate := TRUE läuft, dann reicht ein einfaches DeinThread.Free im OnDestroy des Forms aus und alles wird korrekt beendet.

Genau das möchte er doch vermeiden!

Aha, OK, hab's zu oberflächig gelesen. Aber der Anwender der Komponente muss doch etwas tun: Create und Free muss schon irgendwo im Code sein (ist ja kein TComponent-Nachkömmling). Und wenn FreeOnTerminate := FALSE ist, dann kann die oben genannte Zugriffsverletzung niemals entstehen.

Also man kann sich grundsätzlich niemals darauf verlassen, dass Sychronize erfolgreich ausgeführt wird, da man den Kontext aus dem Thread aus nicht kennen kann (und soll).

[DeddyH]

Vielleicht habe ich mich missverständlich ausgedrückt: Komponente auf Formular, Thread in Komponente. Komponente bekommt Event zugewiesen und schleust das einfach zum Thread durch. Somit führt der Thread eine Methode des Forms aus, auch wenn dieses bereits mit seiner Freigabe begonnen hat. Das im Formular abzufangen ist ja nicht das Thema, nur habe ich darauf keinen Einfluss.

[himitsu]

VCL-Komponenten sollten einen "ich werde grade gelöscht"-Status besitzen (ComponentState). Diesen könnte dein Thread ja abfragen.

Zitat:

Zitat von Sir Rufo (Beitrag 1149021)

Wenn die Anwendung beendet wird, dann sollte eigentlich TApplication.Terminated auf True sein

Wobei ich mir wünschen würde, in der Unis System gäbe es einen Terminated-Boolean und eventuell auch noch ein Event dazu, auf welches man reagieren könnte.

Ist schön, wenn man ständig die Unit Forms einbinden muß, nur wegen diesem Status. :cry:

[WladiD]

Na in dem Fall muss die zu synchronisierende Methode nach csDestroying abfragen. In deinem Fall:

Delphi-Quellcode:

procedure TMyForm.DoOnDings(Parameter);
begin
  if not (csDestroying in ComponentState) then
    EditDings.Text := Parameter;
end;

[DeddyH]

An Application.Terminated oder Ähnliches hatte ich auch schon gedacht. Aber es kann ja auch sein, dass die Komponente auf einem dynamisch erzeugten Formular liegt, damit bekäme ich dasselbe Problem, sobald das freigegeben wird, da ja dann die Anwendung trotzdem weiterläuft.

@Wladi: das ist aber wieder Code, der dann im Formular stehen muss.

[Sir Rufo]

Aber irgendwie habe ich folgendes noch nicht verstanden:

Willst du jetzt

1. eine Komponente (Ableitung von TComponent) entwickeln mit einem darin werkelnden Thread
2. einen Thread, der auf eine Komponente (TEdit) zugreift

Im Falle von a) wie soll denn der Benutzer den Thread überhaupt beenden können und vor allem sollen? Der Thread sollte dann doch so gekapselt sein, dass man eben nicht direkt an den Thread kommt.

@himitsu
ja, die Eigenschaft ComponentState ist mir gerade auch noch eingefallen, allerdings sollte dieses nicht der Thread abfragen, sondern die Komponente selber