Inspired by our recent article about using EurekaLog together with SmartInspect, SmartInspect user Jeremy Brown ported our example to madExcept and kindly provided us with screenshots and sample code.

The example project demonstrates how to attach an event handler to madExcept and add a SmartInspect log file to madExept’s crash report whenever an unhandled exception occurs:

[sourcecode language='delphi']
uses
madExcept;

// [...]

procedure ExceptionHandler(const ExceptIntf: IMEException;
var Handled: Boolean);
const
ZIPFILE = ‘CrashReport.zip’;
var
LStream : TFileStream;
LTempPath : array[0..MAX_PATH+1] of Char;
LFileName : String;
begin
Handled := False;

{ Get a temporary filename }
if GetTempPath(MAX_PATH, LTempPath) = 0 then
Exit;

// Save madShi’s bug report information in the log.
SiMain.LogException(Exception(ExceptIntf.ExceptObject),
‘Madshi Exception Handler’);
SiMain.LogString(‘BugReport’, ExceptIntf.BugReport);

ExceptIntf.AdditionalAttachments.Clear;

{ Put everything in a zip file }
ExceptIntf.ScreenShotZip := ZIPFILE;
ExceptIntf.BugReportZip := ZIPFILE;

{ Just some extra optional information }
ExceptIntf.AdditionalFields.Add(‘Application’,
Application.Title);

LFileName := IncludeTrailingPathDelimiter(LTempPath) +
‘CrashLog.sil’;
{ Save the log file }
LStream := TFileStream.Create(LFileName, fmCreate);
try
Si.Dispatch(‘mem’, 0, LStream);
finally
LStream.Free;
end;

{ Attach the file to madShi’s crash report }
ExceptIntf.AdditionalAttachments.Add(LFileName, ”, ZIPFILE);
end;

initialization
RegisterExceptionHandler(ExceptionHandler,
stTrySyncCallOnSuccess);
end.
[/sourcecode]

The resulting madExcept email and crash report zip file includes a SmartInspect log file with the recent user actions and application data, along with madExcept’s error report and screenshot:

If you are already using madExcept and are planning to integrate it with SmartInspect (or the other way around), Jeremy’s example code is a great starting point and should get you up and running in a few minutes. You can download the example code here and learn more about the used techniques in the related EurekaLog article.