Property TEurekaExceptionInfo.ExceptionObject

Warning

Since exception may come from another (external) executable module (rare cases, but could happen), then exception object may be not a Delphi object. Do not try to cast this value to Exception or TObject unless you're 100% sure about this.

Use Address, ExceptionClass and ExceptionMessage properties instead.

Code (Delphi)

// This will add custom info to bug report

procedure AddMyData(const ACustom: Pointer;

 AExceptionInfo: TEurekaExceptionInfo;

 ALogBuilder: TBaseLogBuilder;

 ADataFields: TStrings;

 var ACallNextHandler: Boolean);

// Extract native Delphi exception from exception info

function GetExceptionObject(AExceptionInfo: TEurekaExceptionInfo): Exception;

var

EObj: TObject;

begin

// Exception was thrown by a compatible Delphi version?

if (AExceptionInfo.ExceptionObject <> nil) and

 AExceptionInfo.ExceptionNative then

EObj := TObject(AExceptionInfo.ExceptionObject)

else

EObj := nil; // rare

// Exception is SysUtils.Exception?

if EObj is Exception then

Result := Exception(EObj)

else

Result := nil; // very rare

end;

var

E: Exception;

begin

E := GetExceptionObject(AExceptionInfo);

 // E is either nil (for non-Delphi exceptions or deleted inner exceptions)

 // or E is current Exception

// Add custom info for custom exceptions

if E is EMyException then

ADataFields.Values['Code'] := EMyException(E).Code;

end;

initialization

RegisterEventCustomDataRequest(nil, AddMyData);

end.