We use MadExcept and Mantis for capturing expceptions.
We are wondering if it was possible to use MadExcept to log issues to Mantis where there is no exception.
We have been looking at madExcept.SendBugReport and it works after a fashion, this is what we have tried:
Code: Select all
procedure SendMadExceptBugReport(const aMessage, aBody:string);
var
lBugReportFilename: string;
lSettings : IMESettings;
begin
lSettings := MESettings;
lSettings.TitleBar := 'Sending to Mantis ';
lSettings.ExceptMsg := aMessage;
lBugReportFilename := General.RemoveFileExtension(ExtractFileName(Application.ExeName)) + 'ProblemReport' + FormatDateTime('yymmddhhnnss',now);
lSettings.BugReportSendAs := lBugReportFilename + '.txt';
madExcept.SendBugReport(aBody,nil,0,lSettings);
Is there another approach?
Thanks
Dave Craggs