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

[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.

[TiGü]

Ich kann dir sowas noch anbieten:

Delphi-Quellcode:

unit Unit4;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  System.Threading, Vcl.StdCtrls;

type
  TForm4 = class(TForm)
    Memo1: TMemo;
    procedure Memo1Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure DoIt;
    procedure LogText(const AText: string);
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}


procedure TForm4.DoIt;
var
  MyTask: ITask;
  MyProc, DoMyProc, HandleException: TProc;
begin
  MyProc := procedure
    var
      I: Integer;
    begin
      I := 0;

      while I < 1000 do
      begin
        if I = 900 then
        begin
          raise Exception.Create('Error Message: ' + TThread.Current.ThreadID.ToHexString);
        end;
        Inc(I);
      end;
    end;

  DoMyProc := procedure
    begin
      try
        MyProc;
      except
        on E: Exception do
        begin
          TThread.Synchronize(nil,
              procedure
            begin
              LogText(E.ClassName + ': ' + E.Message)
            end);
        end;
      end;
    end;

  MyTask := TTask.Run(DoMyProc);
  MyTask.Start;
end;

procedure TForm4.LogText(const AText: string);
begin
  Memo1.Lines.Add(AText);
end;

procedure TForm4.Memo1Click(Sender: TObject);
begin
  DoIt;
end;

end.

[ScharfeMietze]

Du könntest eine property befeuern und diese reagieren lassen
Gruß

[DieDolly]

Das verstehe ich jetzt nicht.

[ScharfeMietze]

Du kannst doch eine Property im HauptProgramm ansprechen und diese reagieren lassen im Setter

Delphi-Quellcode:

  TTask.Run(
  procedure
  begin
    testExeption:= 'TEST EXCEPTION 1';
  end);

 property testExeption: string read FtestExeption write set_testExeption;

Delphi-Quellcode:

procedure TTGMBot.set_testExeption(const Value: string);
begin
  FtestExeption := Value;
  ShowMessage(value);
end;

Das ist nun ziemlich vereinfacht. aber hier kannst du neue aktionen anstoßen, je nachdem wie du den Fehler behandeln willst...