How Do I Use "AdditionalFields"?
Posted: Sat Sep 23, 2017 12:58 am
This is a method I call when my application first starts:
The AdditionalFields I add don't appear in the received report. Is there something else I need to do?
Thanks.
= Steve
Code: Select all
procedure TfrmMain.SetupMadExcept;
var
Settings: IMEModuleSettings;
begin
Settings := MESettings();
if Global.SystemRules.ErrorReporting = EXCEPTIONS_AUTOMATICALLY_SEND then
begin
Settings.AutoSend := True;
Settings.SuspendThreads := False;
Settings.ShowPleaseWaitBox := False;
Settings.AutoContinue := True;
Settings.SendInBackground := True;
Settings.Filter1ShowSetting := ssNothing;
Settings.GeneralShowSetting := ssNothing;
Settings.Filter1NoScreenShot := True;
Settings.GeneralNoScreenShot := True;
Settings.AdditionalFields['email'] := Global.LicenceDetails.LicenceEmail;
Settings.AdditionalFields['serial_number'] := Global.LicenceDetails.SerialNumber;
Settings.AdditionalFields['company'] := Global.LicenceDetails.LicenceName;
end
else if Global.SystemRules.ErrorReporting = EXCEPTIONS_PROMPT_USER then
begin
Settings.AutoSend := False;
Settings.SuspendThreads := True;
Settings.ShowPleaseWaitBox := True;
Settings.AutoContinue := False;
Settings.SendInBackground := False;
Settings.Filter1ShowSetting := ssFullBox;
Settings.GeneralShowSetting := ssFullBox;
Settings.Filter1NoScreenShot := False;
Settings.GeneralNoScreenShot := False;
Settings.AdditionalFields['email'] := Global.LicenceDetails.LicenceEmail;
Settings.AdditionalFields['serial_number'] := Global.LicenceDetails.SerialNumber;
Settings.AdditionalFields['company'] := Global.LicenceDetails.LicenceName;
end;
end;
Thanks.
= Steve