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

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

[DieDolly]

Im Prinzip also statt raise Exception.Create(); im TTask eine eigene Procedur im TTask aufrufen, die dann intern raise Exception.Create(); aufruft?

[ScharfeMietze]

Wenn du "nur" eine Meldung ausgeben willst als Fehlerbehandlung würde ich eher eine Messagebox verwenden...

[DieDolly]

Möchte eigentlich nur in eine Datei schreiben.
Genau das passiert aus dem TTask ja leider nicht. Ich versuche es morgen mal mit deiner Lösung, eine Procedure aufzurufen die dann raise aufruft oder ich schreibe direkt von da aus in die Datei.