home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Internet 2000 May / MICD_2000_05.iso / CBuilder5 / INSTALL / DATA1.CAB / Program_Built_Files / Include / Vcl / vclcom.hpp < prev    next >
C/C++ Source or Header  |  2000-02-01  |  2KB  |  64 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'VCLCom.pas' rev: 5.00
  6.  
  7. #ifndef VCLComHPP
  8. #define VCLComHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <Classes.hpp>    // Pascal unit
  14. #include <ComObj.hpp>    // Pascal unit
  15. #include <ActiveX.hpp>    // Pascal unit
  16. #include <SysInit.hpp>    // Pascal unit
  17. #include <System.hpp>    // Pascal unit
  18.  
  19. //-- user supplied -----------------------------------------------------------
  20.  
  21. namespace Vclcom
  22. {
  23. //-- type declarations -------------------------------------------------------
  24. class DELPHICLASS TComponentFactory;
  25. class PASCALIMPLEMENTATION TComponentFactory : public TAutoObjectFactory 
  26. {
  27.     typedef TAutoObjectFactory inherited;
  28.     
  29. protected:
  30.     HIDESBASE HRESULT __stdcall CreateInstance(const _di_IUnknown UnkOuter, const GUID &IID, /* out */ 
  31.         void *Obj);
  32.     
  33. public:
  34.     __fastcall TComponentFactory(Comobj::TComServerObject* ComServer, TMetaClass* ComponentClass, const 
  35.         GUID &ClassID, Comobj::TClassInstancing Instancing, Comobj::TThreadingModel ThreadingModel);
  36.     virtual TComObject* __fastcall CreateComObject(const _di_IUnknown Controller);
  37.     virtual void __fastcall UpdateRegistry(bool Register);
  38. public:
  39.     #pragma option push -w-inl
  40.     /* TComObjectFactory.Destroy */ inline __fastcall virtual ~TComponentFactory(void) { }
  41.     #pragma option pop
  42.     
  43. private:
  44.     void *__IClassFactory;    /* IClassFactory */
  45.     
  46. public:
  47.     operator IClassFactory*(void) { return (IClassFactory*)&__IClassFactory; }
  48.     
  49. };
  50.  
  51.  
  52. //-- var, const, procedure ---------------------------------------------------
  53.  
  54. }    /* namespace Vclcom */
  55. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  56. using namespace Vclcom;
  57. #endif
  58. #pragma option pop    // -w-
  59. #pragma option pop    // -Vx
  60.  
  61. #pragma delphiheader end.
  62. //-- end unit ----------------------------------------------------------------
  63. #endif    // VCLCom
  64.