Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- // BugID is used to define "unique" bug report.
- // See: http://www.eurekalog.com/help/eurekalog/bug_id.php
- // Two reports with the same BugID is considered to be the same report.
- // All reports with the same BugID will be merged into one, increasing "Count"/"Occurencies" field.
- // This behaviour affects local bug reports (unless you have "Do not save duplicate errors" option unchecked), EurekaLog Viewer, Bug Trackers (Mantis, JIRA, FogBugs, etc.).
- // This allows you to see most "hot" bugs in your code - just by sorting all bugs on "Count"/"Occurencies" field.
- // You should fix most "hot" (therefore: urgent) bugs first.
- // See: http://www.eurekalog.com/help/eurekalog/reporting.php
- // You may redefine what "unique" bug report means - by altering BugID.
- // You can do this via OnCustomBugID event handler.
- // 16-bit ABugID is default BugID (hi-word), which includes exception type, call stack, etc.
- // 16-bit ACustomBugID is custom BugID (low-word), it is 0 by default and is not used by EurekaLog.
- // ABugID and ACustomBugID together establish a full 32-bit BugID.
- uses
- EException,
- EHash,
- ESysInfo,
- EEvents;
- initialization
- procedure DefineCustomBugID(const ACustom: Pointer; AExceptionInfo: TEurekaExceptionInfo; var ABugID, ACustomBugID: Word; var ACallNextHandler: Boolean);
- var
- HashSource: String;
- begin
- // Select sources which will define "unique" bug report
- HashSource :=
- GetComputerName + #1 +
- GetUserName + #1 +
- GetWindowsPath + #1 +
- DateTimeToStr(Now) + #1 +
- DateTimeToStr(GetCurrentModuleCompilationDate) + #1 +
- GetEurekaLogVersion + #1;
- ACustomBugID := GetCRC16(HashSource);
- end;
- initialization
- RegisterEventCustomBugID(nil, DefineCustomBugID);
- end.
- // The example above establishes most unique ID possible: each report will be unique, there will be no merging at all.
- // You can also redefine a full BugID (i.e. overwrite pre-generated hi-word part: ABugID).
- // For example, you may take CRC32 value from hash source.
- // Then you can split 32-bit CRC32 into 16-bit ABugID and ACustomBugID.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement