mORMot Open Source

function DumpExceptionCallStack_mormot(E: Exception):string;
var
   I, FC:Integer;
   Frames:PCodePointer;
   log: TSynLog;
begin
   Frames:=ExceptFrames;
   FC:=ExceptFrameCount;
   log := GlobalCurrentHandleExceptionSynLog;
   log.Writer.AddCRAndIndent;
   Result:='Exception class: '+E.ClassName+LineEnding+
           'Message: '+E.Message+LineEnding+
           'FrameCount='+IntToStr(FC)+LineEnding+
           'Stacktrace:'+LineEnding;
   log.Writer.AddString(Result);
   log.Writer.AddCRAndIndent;
   TDebugFile.Log(log.Writer, PtrUInt(ExceptAddr), {notcode=}true, {symbol=}false);
   log.Writer.AddCRAndIndent;
   for I:=0 to FC-1 do begin
      TDebugFile.Log(log.Writer, PtrUInt(Frames[I]), {notcode=}true, {symbol=}false);
      log.Writer.AddCRAndIndent;
   end;
end;