SaxDemo1_TLB.pas
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:5k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. unit SaxDemo1_TLB;
  2. // ************************************************************************ //
  3. // WARNING                                                                    
  4. // -------                                                                    
  5. // The types declared in this file were generated from data read from a       
  6. // Type Library. If this type library is explicitly or indirectly (via        
  7. // another type library referring to this type library) re-imported, or the   
  8. // 'Refresh' command of the Type Library Editor activated while editing the   
  9. // Type Library, the contents of this file will be regenerated and all        
  10. // manual modifications will be lost.                                         
  11. // ************************************************************************ //
  12. // PASTLWTR : $Revision:   1.130  $
  13. // File generated on 6/6/2001 3:07:42 AM from Type Library described below.
  14. // ************************************************************************  //
  15. // Type Lib: C:md6code23SaxDemo1SaxDemo1.tlb (1)
  16. // LIBID: {1245288D-E478-4B1A-906A-3B02348FDC12}
  17. // LCID: 0
  18. // Helpfile: 
  19. // DepndLst: 
  20. //   (1) v2.0 stdole, (C:WINDOWSSystem32stdole2.tlb)
  21. //   (2) v4.0 StdVCL, (C:WINDOWSsystem32stdvcl40.dll)
  22. // ************************************************************************ //
  23. {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
  24. {$WARN SYMBOL_PLATFORM OFF}
  25. {$WRITEABLECONST ON}
  26. interface
  27. uses ActiveX, Classes, Graphics, StdVCL, Variants, Windows;
  28.   
  29. // *********************************************************************//
  30. // GUIDS declared in the TypeLibrary. Following prefixes are used:        
  31. //   Type Libraries     : LIBID_xxxx                                      
  32. //   CoClasses          : CLASS_xxxx                                      
  33. //   DISPInterfaces     : DIID_xxxx                                       
  34. //   Non-DISP interfaces: IID_xxxx                                        
  35. // *********************************************************************//
  36. const
  37.   // TypeLibrary Major and minor versions
  38.   SaxDemo1MajorVersion = 1;
  39.   SaxDemo1MinorVersion = 0;
  40.   LIBID_SaxDemo1: TGUID = '{1245288D-E478-4B1A-906A-3B02348FDC12}';
  41.   IID_ISaxHandler: TGUID = '{A04AE13E-7260-444B-BA43-31CC16D822A7}';
  42.   CLASS_SaxHandler: TGUID = '{4629C36E-6478-41E5-A893-B86DA7BFB78C}';
  43. type
  44. // *********************************************************************//
  45. // Forward declaration of types defined in TypeLibrary                    
  46. // *********************************************************************//
  47.   ISaxHandler = interface;
  48.   ISaxHandlerDisp = dispinterface;
  49. // *********************************************************************//
  50. // Declaration of CoClasses defined in Type Library                       
  51. // (NOTE: Here we map each CoClass to its Default Interface)              
  52. // *********************************************************************//
  53.   SaxHandler = ISaxHandler;
  54. // *********************************************************************//
  55. // Interface: ISaxHandler
  56. // Flags:     (4416) Dual OleAutomation Dispatchable
  57. // GUID:      {A04AE13E-7260-444B-BA43-31CC16D822A7}
  58. // *********************************************************************//
  59.   ISaxHandler = interface(IDispatch)
  60.     ['{A04AE13E-7260-444B-BA43-31CC16D822A7}']
  61.   end;
  62. // *********************************************************************//
  63. // DispIntf:  ISaxHandlerDisp
  64. // Flags:     (4416) Dual OleAutomation Dispatchable
  65. // GUID:      {A04AE13E-7260-444B-BA43-31CC16D822A7}
  66. // *********************************************************************//
  67.   ISaxHandlerDisp = dispinterface
  68.     ['{A04AE13E-7260-444B-BA43-31CC16D822A7}']
  69.   end;
  70. // *********************************************************************//
  71. // The Class CoSaxHandler provides a Create and CreateRemote method to          
  72. // create instances of the default interface ISaxHandler exposed by              
  73. // the CoClass SaxHandler. The functions are intended to be used by             
  74. // clients wishing to automate the CoClass objects exposed by the         
  75. // server of this typelibrary.                                            
  76. // *********************************************************************//
  77.   CoSaxHandler = class
  78.     class function Create: ISaxHandler;
  79.     class function CreateRemote(const MachineName: string): ISaxHandler;
  80.   end;
  81. implementation
  82. uses ComObj;
  83. class function CoSaxHandler.Create: ISaxHandler;
  84. begin
  85.   Result := CreateComObject(CLASS_SaxHandler) as ISaxHandler;
  86. end;
  87. class function CoSaxHandler.CreateRemote(const MachineName: string): ISaxHandler;
  88. begin
  89.   Result := CreateRemoteComObject(MachineName, CLASS_SaxHandler) as ISaxHandler;
  90. end;
  91. end.