Execption innerhalb AnonymousThread behandeln

[Kostas]

Hallo himitsu,

die Methode HandleRestException benötigt als zweiten Parameter ein String als Fehlermeldung.
Ich habe die DoTerminate erweitert um den Parameter "ErrorMsg". Ob das so geht bin ich mir nicht sicher.
Wenn es so machbar ist, müsste ich beim Aufruf den Sender angeben. Ohne den zusätzlichen
Parameter "ErrorMsg" musste der Sender nicht übergeben werden da es ein TNotifyEvent ist.
Hast du mir bitte noch ein kleinen Hinweis?

Delphi-Quellcode:

class procedure TMyThreadHelper.DoTerminate(ErrorMsg:string; Sender: TObject); <<so geht's nicht
begin
   if Assigned(TThread(Sender).FatalException) then
     if TThread(Sender).FatalException is TDSRestProtocolException then
       HandleRestException(DataModule1.DSRestConnection1, ErrorMsg, TDSRestProtocolException(TThread(Sender).FatalException))
     else
       ShowException(TThread(Sender).FatalException, nil);

end;

OnTerminate := TMyThreadHelper.DoTerminate('Get Gruppen error', ???);

[himitsu]

Beim Überschreiben virtueller Methoden, müssen die Parameter natürlich gleich bleiben.

* Entweder eine böse globale Variable,
* das TThread abgleeitet, aber dann müsste man das CreateAnonymusThread selbst schreiben, um dort seine eigene TThread-Klasse zu erstellen (bei mir ist dort das "Start" auch gleich mit integriert)
* TMyThreadHelper als Instanz mit Feld/Variable und DoTerminate als Methode und nicht als Klassen-Methode
* oder bei eigenen Exceptions kann man ZusatzInfos auch im Exceptions-Objekt mitgeben.