mORMot Open Source

dexter

Member

Registered: 2015-04-24

Posts: 53

TSynMapFile on a .dll

Hi,

I'm trying to get the call stack of handled exceptions (using JclDebug).
It will fill Exception.StackInfo property.

When printing Exception.StackTrace - it works perfectly

(006C21D0){t24_odbc.dll} [036E31D0] uStmtImpl.TStmtImpl.AttachSQLiteDB$qqrv (Line 619, "uStmtImpl.pas" + 9) + $0
(006C0D25){t24_odbc.dll} [036E1D25] uStmtImpl.TStmtImpl.SQLiteExecute$qqrx17System.WideString (Line 241, "uStmtImpl.pas" + 1) + $3
(006C1B5D){t24_odbc.dll} [036E2B5D] uStmtImpl.TStmtImpl.OpenNextFile$qqrv (Line 514, "uStmtImpl.pas" + 48) + $8
(006C16B8){t24_odbc.dll} [036E26B8] uStmtImpl.TStmtImpl.Execute$qqrv (Line 434, "uStmtImpl.pas" + 19) + $3
(00629AD4){t24_odbc.dll} [0364AAD4] uOdbcApi.SQLExecDirectW$qqs42System.%DelphiInterface$15Ustmtintf.IStmt%pbi (Line 1170, "uOdbcApi.pas" + 12) + $5

When trying to use TSynMapFile - stack trace is empty

Map := TSynMapFile.Create;
try
  writeln(Map.FindLocation(PtrUInt(aException.StackInfo)));
finally
  Map.Free;
end;

Am I using TSynMapFile wrongly?