The code below used to work before upgrading.
Its purpose was to send a Support Request Email without showing the madExcept Dialog.
Essentially SendBugReport no longer attaches the zip file and simply dumps the Bugreport as text into the email body.
Code: Select all
procedure TMainForm.MadExceptionHandlerException(const exceptIntf: IMEException; var Handled: Boolean);
const AssistDatazip = 'AssistData.zip';
begin
inherited;
exceptIntf.BugReportSections.Add('Info.log', GetLogFileContent);
exceptIntf.ScreenShotZip := AssistDatazip;
exceptIntf.BugReportZip := AssistDatazip;
{** If I exit here and click send in the madExcept dialog all works as before **}
// Support Request
if exceptIntf.ExceptObject is EMADSupportError then begin
exceptIntf.CreateScreenShot := False;
exceptIntf.ScreenShot := nil;
exceptIntf.BugReportSendAs := 'Hardware_Stack.txt'; // Support call, use something friendly
exceptIntf.SendBugReport(Handle);
Handled := True;
end;
end;