raise Exception.Create() feuert ApplicationEvents nicht aus TTask an

[DieDolly]

Ich habe eben festgestellt, dass ApplicationEvents nicht mehr feuert. Warum weiß ich nicht. Änderungen gab es keine.

Auf einer Form habe ich TApplicationEvents und das Event OnException ist zugewiesen. Da drin ist eine Showmessage(E.Message).
Wenn ich irgendwo im Programm raise Exception.Create('TEST EXCEPTION'); ausführe sehe ich die Showmessage in OnException leider nie.

Woran kann das liegen?

[Sherlock]

Zunächst, bau ein neues Projekt, in dem Du genau diese beiden Dinge nochmal tust. Prüfe ob es geht. Wenn ja, hast Du doch etwas geändert, und das läßt sich ja in der Versionsverwaltung verifizieren. Wenn nein, bin ich bereits mit meinem Latein am Ende...

Sherlock

[DieDolly]

Die Versionsverwaltung ist unauffällig.

In einem neuen Projekt passiert das nicht. Mir ist aber aufgefallen, dass Exceptions nur in einem TTask nicht funktionieren.
Das ist mehr als seltsam. Außerhalb is t alles OK.

Das hier auf das MainForm eines neuen Projekts in einen Button oder oder oder.
Exception 2 geht bis ans Ende durch (bis zum AplicationEventsOnException). Exception 1 verhungert.

Delphi-Quellcode:

 TTask.Run(
  procedure
  begin
   raise Exception.Create('TEST EXCEPTION 1');
  end);

  raise Exception.Create('TEST EXCEPTION 2');

[hoika]

Hallo,
hilft Dir das hier?

http://robstechcorner.blogspot.com/2...anagement.html

[TiGü]

Zitat von DieDolly:

In einem neuen Projekt passiert das nicht. Mir ist aber aufgefallen, dass Exceptions nur in einem TTask nicht funktionieren.

Beantworte folgende Frage:
Was passiert mit Exceptions in einem klassischen TThread, die innerhalb der TThread.Execute-Methode auftreten?

[DieDolly]

Du möchtest sicher darauf hinaus, dass man das in den Mainthread synchronisieren muss.

Aber ich glaube die Lösung mit TThread.Synchronize(TThread.CurrentThread ... funktioniert nur bei System-Exceptions. Also raise E; und nicht raise Exception.Create();.

[TiGü]

Mach mal aus Glauben ein Wissen.

[DieDolly]

Ich habe meinen Glauben gerade mit diesem Code geprüft. Die Exception geht trotzdem nicht durch.
Der obere mit SwapNames. Das steht bei mir im TTask und im except rufe ich raise E; auf.

http://www.delphibasics.co.uk/RTL.asp?Name=raise

[TiGü]

Delphi-Quellcode:

program Project5;

{$APPTYPE CONSOLE}

{$R *.res}


uses
  System.SysUtils,
  Winapi.Windows,
  System.Classes,
  System.Threading;

type
  TMyThread = class(TThread)

  protected
    procedure Execute; override;
  end;

  { TMyThread }

procedure TMyThread.Execute;
var
  I: Integer;
begin
  inherited;
  while I < 1000 do
  begin
    if I = 900 then
    begin
      raise Exception.Create('Error Message');
    end;
    Inc(I);
  end;
end;

var
  MyThread: TMyThread;
  MyTask: ITask;

begin
  try
    MyThread := TMyThread.Create;

    MyThread.WaitFor;

    if Assigned(MyThread.FatalException) then
    begin
      Writeln(Exception(MyThread.FatalException).ClassName, ': ', Exception(MyThread.FatalException).Message);
    end;

    MyThread.Free;



    MyTask := TTask.Run(
        procedure
      var
        I: Integer;
      begin
        I := 0;

        while I < 1000 do
        begin
          if I = 900 then
          begin
            raise Exception.Create('Error Message');
          end;
          Inc(I);
        end;
      end).Start;

    // ruft intern TTask.CheckFault auf
    MyTask.Wait();

    Readln;
  except
    on E: EAggregateException do
    begin
      Writeln(E.ClassName, ': ', E.Message);

      if (E is EAggregateException) and Assigned(EAggregateException(E).InnerExceptions[0]) then
      begin
        Writeln(EAggregateException(E).InnerExceptions[0].ClassName, ': ', EAggregateException(E).InnerExceptions[0].Message);
      end;

      Readln;
    end;
  end;

end.

[DieDolly]

Das ist nicht die beste Lösung. Da lasse ich TTask am besten weg und überdenke alles.
Wenn ich Wait aufrufe und eh auf den Task warten muss, dann brauche ich keinen Task.

Ich überdenke alles noch einmal und baue das in einen traditionellen TThread um.