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', ???);