server_tlb.h

Direct Oracle Access 非常好的Oracle数据库直接访问组件包 支持个版本的Delphi及C++ Builder 有源码

// ************************************************************************ //
// WARNING                                                                  //
// -------                                                                  //
// The types declared in this file were generated from data read from a     //
// Type Library. If this type library is explicitly or indirectly (via      //
// another type library referring to this type library) re-imported, or the //
// 'Refresh' command of the Type Library Editor activated while editing the //
// Type Library, the contents of this file will be regenerated and all      //
// manual modifications will be lost.                                       //
// ************************************************************************ //

/* File generated on 28-6-98 15:21:54 from Type Library described below. */

// ************************************************************************ //
// Type Lib: C:\Program Files\Borland\CBuilder3\Projects\3Tier\Server.tlb
// IID\LCID: {822135E0-0E9B-11D2-BD34-0020AF0B5A0C}\0
// Helpfile: C:\Program Files\Borland\CBuilder3\Projects\3Tier\Server.tlb
// DepndLst: 
//   (1) v2.0 stdole, (C:\WINDOWS\SYSTEM\StdOle2.tlb)
//   (2) v4.0 StdVCL, (C:\WINDOWS\SYSTEM\STDVCL40.DLL)
// ************************************************************************ //
#ifndef   __Server_TLB_h__
#define   __Server_TLB_h__

#pragma option push -b


#include <sysdefs.h>
#include <utilcls.h>
#include <stdvcl.hpp>
#include <ocxproxy.h>

namespace Server_tlb
{

// *********************************************************************//
// HelpString: Server Library
// Version:    1.0
// *********************************************************************//


// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:      //
//   Type Libraries     : LIBID_xxxx                                    //
//   CoClasses          : CLSID_xxxx                                    //
//   DISPInterfaces     : DIID_xxxx                                     //
//   Non-DISP interfaces: IID_xxxx                                      //
// *********************************************************************//
DEFINE_GUID(LIBID_Server, 0x822135E0, 0x0E9B, 0x11D2, 0xBD, 0x34, 0x00, 0x20, 0xAF, 0x0B, 0x5A, 0x0C);
DEFINE_GUID(IID_IRemoteCPPDM, 0x822135E1, 0x0E9B, 0x11D2, 0xBD, 0x34, 0x00, 0x20, 0xAF, 0x0B, 0x5A, 0x0C);
DEFINE_GUID(CLSID_RemoteCPPDM, 0x822135E3, 0x0E9B, 0x11D2, 0xBD, 0x34, 0x00, 0x20, 0xAF, 0x0B, 0x5A, 0x0C);

// *********************************************************************//
// Forward declaration of interfaces defined in Type Library            //
// *********************************************************************//
interface IRemoteCPPDM;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library                     //
// (NOTE: Here we map each CoClass to it's Default Interface            //
// *********************************************************************//
typedef IRemoteCPPDM RemoteCPPDM;
// *********************************************************************//
// Interface: IRemoteCPPDM
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {822135E1-0E9B-11D2-BD34-0020AF0B5A0C}
// *********************************************************************//
interface IRemoteCPPDM : public IDataBroker
{
public:
  virtual HRESULT STDMETHODCALLTYPE get_DeptProvider(IProvider** Value/*[out,retval]*/) = 0; // [1]
  virtual HRESULT STDMETHODCALLTYPE get_EmpProvider(IProvider** Value/*[out,retval]*/) = 0; // [2]
};

// *********************************************************************//
// SmartIntf: TCOMIRemoteCPPDM
// Interface: IRemoteCPPDM
// *********************************************************************//
class TCOMIRemoteCPPDM : public TComInterface<IRemoteCPPDM>
{
public:
  TCOMIRemoteCPPDM() {}
  TCOMIRemoteCPPDM(IRemoteCPPDM *intf, bool addRef = false) : TComInterface<IRemoteCPPDM>(intf, addRef) {}
};

// *********************************************************************//
// DispIntf:  IRemoteCPPDM
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {822135E1-0E9B-11D2-BD34-0020AF0B5A0C}
// *********************************************************************//
class IRemoteCPPDMDisp : public TAutoDriver<IRemoteCPPDM>
{
  typedef TDispId<IRemoteCPPDM> _TDispID;
public:

  IRemoteCPPDMDisp()
  {}

  IRemoteCPPDMDisp& operator=(IRemoteCPPDM *pintf)
  {
    TAutoDriver<IRemoteCPPDM>::Bind(pintf);
  }

  HRESULT BindDefault(/*Binds to CoClass RemoteCPPDM*/)
  {
    return OLECHECK(Bind(CLSID_RemoteCPPDM));
  }

  HRESULT /*[VT_HRESULT:0]*/  get_DeptProvider(IProvider** Value/*[out,retval]*/)
  {
    static _TDispID _dispid(*this, OLETEXT("DeptProvider"), DISPID(1));
    TAutoArgs<0> _args;
    return OutRetValSetterPtr((LPDISPATCH*)Value /*[VT_USERDEFINED:2]*/, _args, OlePropertyGet(_dispid, _args));
  }

  IProvider* get_DeptProvider(void)
  {
    IProvider* Value;
    get_DeptProvider(&Value);
    return Value;
  }

  HRESULT /*[VT_HRESULT:0]*/  get_EmpProvider(IProvider** Value/*[out,retval]*/)
  {
    static _TDispID _dispid(*this, OLETEXT("EmpProvider"), DISPID(2));
    TAutoArgs<0> _args;
    return OutRetValSetterPtr((LPDISPATCH*)Value /*[VT_USERDEFINED:2]*/, _args, OlePropertyGet(_dispid, _args));
  }

  IProvider* get_EmpProvider(void)
  {
    IProvider* Value;
    get_EmpProvider(&Value);
    return Value;
  }

  __property IProvider* DeptProvider = {read = get_DeptProvider};
  __property IProvider* EmpProvider = {read = get_EmpProvider};
};


// *********************************************************************//
// COCLASS DEFAULT INTERFACE CREATOR
// CoClass  : RemoteCPPDM
// Interface: TCOMIRemoteCPPDM
// *********************************************************************//
class CoRemoteCPPDM : public CoClassCreator
{
public:
  static TCOMIRemoteCPPDM Create(void);
  static TCOMIRemoteCPPDM CreateRemote(LPWSTR machineName);

  static HRESULT Create(TCOMIRemoteCPPDM& defIntfObj);
  static HRESULT CreateRemote(LPWSTR machineName, TCOMIRemoteCPPDM& defIntfObj);
};

};     // namespace Server_tlb

#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using  namespace Server_tlb;
#endif

#pragma option pop

#endif // __Server_TLB_h__