home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 February / Chip_2004-02_cd1.bin / zkuste / konfig / download / msic / Help / Int / MSI_Common.int < prev    next >
Text File  |  2003-10-10  |  2KB  |  63 lines
  1. {*******************************************************}
  2. {                                                       }
  3. {       MiTeC System Information Component              }
  4. {     Common Routines, Definitions & Types              }
  5. {           version 8.4 for Delphi 5,6,7                }
  6. {                                                       }
  7. {       Copyright ⌐ 1997,2003 Michal Mutl               }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. {$INCLUDE MITEC_DEF.INC}
  12.  
  13. unit MSI_Common;
  14.  
  15. interface
  16.  
  17. uses SysUtils, Windows, Classes, MiTeC_Journal, MSI_ExceptionStack;
  18.  
  19. type
  20.   TExceptionMode = (emDefault, emExceptionStack, emJournal);
  21.   TExceptionModes = set of TExceptionMode;
  22.  
  23.   EMSIC_Error = class(Exception);
  24.  
  25.   TMSIC_TraceRecord = record
  26.     ExceptionModes: TExceptionModes;
  27.     ObjectName,
  28.     FunctionName: ShortString;
  29.   end;
  30.   TMSIC_TraceStack = array of TMSIC_TraceRecord;
  31.  
  32. const
  33.   cMajorVersion = '8';
  34.   cMinorVersion = '4';
  35.   cVersion = cMajorVersion+'.'+cMinorVersion;
  36.   cCompName = 'MiTeC System Information Component';
  37.   cCopyright = 'Copyright '#169' 1997,2003 Michal Mutl';
  38.   cWWW = 'http://www.mitec.d2.cz/';
  39.   cEmail = 'mailto:mitec@atlas.cz';
  40.  
  41. procedure StringsToRep(sl: TStrings; CountKwd,ItemKwd: string; var Report: TStringlist);
  42.  
  43. procedure ReportHeader(var sl: TStringList);
  44. procedure ReportFooter(var sl: TStringList);
  45. function CheckXMLValue(AValue: string): string;
  46.  
  47. procedure InitializeJournal(JournalPath: string = '');
  48. procedure ShutdownJournal;
  49.  
  50. procedure PushTrace(AExceptionModes: TExceptionModes; AObjectName,AClassName,AFunctionName: ShortString); overload;
  51. procedure PushTrace(AExceptionModes: TExceptionModes; AObject: TObject; AFunctionName: ShortString); overload;
  52. procedure PopTrace;
  53. function GetTrace: TMSIC_TraceRecord;
  54.  
  55. procedure ShowExceptionStack;
  56.  
  57. var
  58.   Journal: TJournal;
  59.   TraceStack: TMSIC_TraceStack;
  60.  
  61. implementation
  62.  
  63.