In einem Thread ShowMessage aufzurufen ist auch nicht so clever, da es ein VCL Dialog ist und damit nicht threadsafe. Nimm für so etwas mal die eine Messagebox von Windows. aber ich würde so wie so, die Exceptions im Thread nur auslösen und im Main Thread behandeln. Dann ist der Code auch besser wieder verwendbar.

Wie würde man das machen Luckie? Ich kann ja um einen Thread im VCL-Thread kein try..except machen, da sie ja nicht parallel laufen. Ich behelfe mir hier oft auch mit eigenen Messages, die ich meinem Mainform poste, wenn ich nicht (wie oben beschrieben) loggen will / kann. Denen klebe ich dann meist einen Pointer zu einem Record an, der ggf. weitere Infos zum Fehler enthält (z.B. den Fehlertext), was durch das Gecaste und New() im Thread aber Dispose() im Mainthread immer etwas "unsafe" und gefummelt wirkt.

Alternativ ließe sich ja auch ein Error-Eventhandler in der Threadklasse synchronized aufrufen, was etwas hübscher ins OO-Konzept passt. Aber hier ist man dann auch wieder darauf angewiesen, dass der Handler im Mainthread nicht ggf. zu eben solch einer Blockade führt wie oben beschrieben.

Guck dir mal das hier an: http://edn.embarcadero.com/article/10452
Wenn du anstatt von Application.ShowException die Methode Application.HandleException aufrufst, müsstest du die Exception im Application.OnException Event behandeln können.

Ja, das ist der Punkt. Wie man die Exception Behandlung aus dem Thread rausbekommt und in den Mainthread auswertet. Ich habe es bisher immer mit Nachrichten gelöst, die ich im Fehlerfall aus dem Thread verschickt habe.

Der Artikel von jfheins klingt zunächst prima, aber leider würde auch hier dank des Synchronized der Thread angehalten, so lange der Handler "unterwegs" ist. Oder kann ich Application.HandleException gefahrlos im Threadkontext aufrufen? (Hab gerade kein Delphi hier - wenn das letztlich auch nur ein PostMessage macht, wäre das zumindest eine nette Kapselung der von Luckie und mir genannten Methode )

Synchronize = synchrone Synchronisierung
Queue = asynchrone Synchronisierung

zusammenfalten · markieren

Delphi-Quellcode:

  try
    //...
  except
    on E: Exception do begin
      S := E.Message;
      //TThread.Queue(nil, procedure // in Threads ohne eine TThread-Instanz, bzw. ohne direkten Zugang dazu
      Queue(procedure // in einer TThread-Instanz
        begin
          ShoweMessage(S);
        end);
    end;
  end;

Man könnte statt dem ShowMessage auch ShowException verwenden, aber dann muß man bei asyncrhoner Anzeige entweder das ExceptObject klonen oder es von der Exceptionbehandlung abtrennen und anschließend natürlich manuell freigeben.