JCL Stack Exception unter Firemonkey in Win64/32

[Christoph Schneider]

Nach einiges Recherche und analysieren des JCLDebug Codes habe ich eine Lösung gefunden, die mal das tut, was ich erwartete.

Ich habe dabei den TJclStackInfoList.IgnoreLevels http://wiki.delphi-jedi.org/JCL_Help...t.IgnoreLevels
abhängig vom Compiler erhöht. Wieso jetzt für den IgnoreLevel eine 10 für Windows 64 und eine 32 für Windows 32 eingesetzt wird, konnte ich leider nur experimentell ermitteln und kenne die Details dazu nicht. Ich vermute, dass bei FMX der Exception-Handler etwas anders gelöst ist als bei der VCL und dieser IgnoreLevel hilft, jenen Stack-Teil des etwas grösseren FMX-Exception-Handlers zu verstecken.

Mit folgendem Code überschreibe ich die Standard-Lösung von JCLDebug. Vielleicht hilft es ja auch anderen weiter:

Delphi-Quellcode:

function GetExceptionStackInfoProc(P: System.PExceptionRecord): Pointer;
var
  LLines: TStringList;
  LText: String;
  LResult: PChar;
  jcl_sil: TJclStackInfoList;
begin
  LLines := TStringList.Create;
  try
  {$IFDEF WIN64}
    jcl_sil := TJclStackInfoList.Create(true, 10, p.ExceptionAddress, false, nil, nil);
  {$ENDIF}
  {$IFDEF WIN32}
    jcl_sil := TJclStackInfoList.Create(true, 32, p.ExceptionAddress, false, nil, nil);
  {$ENDIF}
    try
      jcl_sil.AddToStrings(LLines);
    finally
      FreeAndNil(jcl_sil);
    end;
    LText := LLines.Text;
    LResult := StrAlloc(Length(LText));
    StrCopy(LResult, PChar(LText));
    Result := LResult;
  finally
    LLines.Free;
  end;
end;

function GetStackInfoStringProc(Info: Pointer): string;
begin
  Result := string(PChar(Info));
end;

procedure CleanUpStackInfoProc(Info: Pointer);
begin
  StrDispose(PChar(Info));
end;

initialization
  if JclStartExceptionTracking then
  begin
    Exception.GetExceptionStackInfoProc := GetExceptionStackInfoProc;
    Exception.GetStackInfoStringProc := GetStackInfoStringProc;
    Exception.CleanUpStackInfoProc := CleanUpStackInfoProc;
  end;

finalization
  if JclExceptionTrackingActive then
  begin
    Exception.GetExceptionStackInfoProc := nil;
    Exception.GetStackInfoStringProc := nil;
    Exception.CleanUpStackInfoProc := nil;
    JclStopExceptionTracking;
  end;

end.

Danach muss man nur noch in der Application.OnException methode den E.StackTrace auswerten.