Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- // See also: http://pastebin.com/MfLi4pbj - "how to send arbitrary e-mail with file attaches"
- // See also: http://pastebin.com/3Q1ykdSH - "how to send feedback instead of bug report"
- // See also: http://pastebin.com/ytYbgAfc - "how to setup send method from code"
- // This code will work in any project - even without EurekaLog active
- uses
- EConsts, ETypes, EClasses, EHash, ESysInfo, ESend,
- ESendAPIMantis; // <- be sure to include unit with bug tracker send code
- procedure TForm1.Button1Click(Sender: TObject);
- var
- Options: TEurekaModuleOptions;
- Files: TStringList;
- begin
- Options := TEurekaModuleOptions.Create('');
- Files := TStringList.Create;
- try
- Options.SendMantisURL := 'bugs.example.com';
- Options.SendMantisPort := 80;
- Options.SendMantisSSL := False;
- Options.SendMantisLogin := 'account';
- Options.SendMantisPassword := 'password';
- Options.SendMantisProject := 'ProjectName';
- Options.SendMantisCategory := 'CategoryName';
- Options.SendMantisOwner := 'AssignToAccount';
- // 1: store your text message
- Options.CustomField[sifBugText] := 'Message';
- Options.CustomField[sifBugType] := 'Subject';
- // 2: you have to redefine BugID, so it will unique identify this message
- Options.CustomField[sifBugID] := IntToHex(GetCRC32(Options.CustomField[sifBugType] + Options.CustomField[sifBugText]), 8);
- // 3: (optional) add additional text, if needed
- Options.CustomField[sifMessage] := 'bug report content';
- Options.CustomField[sifStepsToReproduce] := 'steps to reproduce';
- // 4: (optional) fill other informational fields
- Options.CustomField[sifBugAppVersion] := ESysInfo.GetVersionNumber;
- Options.CustomField[sifBuild] := ESysInfo.GetVersionNumber;
- Options.CustomField[sifMachineID] := ESysInfo.GetComputerName;
- Options.CustomField[sifOSBuild] := ESysInfo.GetOSBuild;
- Options.CustomField[sifOSType] := ESysInfo.GetOSTypeStr;
- Options.CustomField[sifPlatform] := ESysInfo.GetPlatform;
- Options.CustomField[sifUserEMail] := ESysInfo.GetUserEMail;
- // 5: (optional) attach some files, if needed
- Files.Add('C:\FileToSend1.txt');
- Files.Add('C:\FileToSend2.zip');
- EurekaLogSend(TELTrackerMantisSender, Options, Files);
- finally
- FreeAndNil(Files);
- FreeAndNil(Options);
- end;
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement