Execption innerhalb AnonymousThread behandeln

[Kostas]

Zitat von CCRDude:

Ich kenne jetzt das Framework nicht, aber ist DataModule1 nicht ein Objekt aus dem Mainthread?

(Nachtrag: ich habe gerade in einem anderen Thread gelesen, anonyme Funktionen könnten threadsicher auf lokales zugreifen? Dann würde obiges nicht mehr ganz stimmen)

Eigentlich hast du Recht. Das DataModule1 läuft auf dem Mainthread und beinhaltet die Kommunikation zu DataSnapServer.
Es greift jedoch auf keinerlei visuelle Komponenten zu. Was ich noch nicht verinnerlicht habe, kann ich auf ein TFDMemTable aus einem Thread- anonym oder nicht, sei mal dahingestellt, zugreifen oder muss auch dieser Teil in
einem Synchronize Block.

Delphi-Quellcode:

 TThread.Synchronize (TThread.CurrentThread,
 procedure ()
 begin
   //Zugriff auf die FDMemTable.
 end);

[Kostas]

Herzlichen Danke himitsu,

ich werde deine Methode verwenden mit dem DoTerminate.

[CCRDude]

[QUOTE=Kostas;1274294]

Zitat von CCRDude:

Das DataModule1 läuft auf dem Mainthread und beinhaltet die Kommunikation zu DataSnapServer.
Es greift jedoch auf keinerlei visuelle Komponenten zu.

Ist das relevant? Klar, bekannt ist "vcl = nicht threadsafe". Aber den Umkehrschluß "nicht vcl = threadsafe" kann man daraus nicht folgern! Im Gegenteil, alles, was nicht explizit threadsicher ist, sollte aus Vorsicht erstmal nicht als solches betrachtet werden. Fehler treten sonst manchmal wirklich sehr willkürlich scheinend auf, manchmal erst viel später.

[Der schöne Günther]

Man muss doch nur schauen was man verwendet- Ein "Datenmodul" ist ja an sich nur eine Gruppierung von mehreren "Komponenten"- Mit VCL, FMX oder sonst was hat das das doch überhaupt nichts mehr zu tun.

Wenn man z.B. ein "Datenmodul" hat das in irgendeiner Datenbank (z.B. mittels FireDAC) wühlen soll, FireDAC meint die Benutzung aus mehreren Threads sei in Ordnung, dann kann ich mein Datenmodul doch auch so benutzen.

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