serverp_tlb.h

一个cb三层数据库的例子

// *********************************************************************//
// DispIntf:  Iserver515Events
// Flags:     (0)
// GUID:      {AE44B665-4902-4B3E-8D8F-89002ABE7FD5}
// *********************************************************************//
template <class T>
class Iserver515EventsDispT : public TAutoDriver<Iserver515Events>
{
public:
  Iserver515EventsDispT(){}

  void Attach(LPUNKNOWN punk)
  { m_Dispatch = static_cast<T*>(punk); }


};
typedef Iserver515EventsDispT<Iserver515Events> Iserver515EventsDisp;

// *********************************************************************//
// SmartIntf: TCOMIserver515
// Interface: Iserver515
// *********************************************************************//
// *********************************************************************//
// DispIntf:  Iserver515
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {B6C0FB1D-4159-4560-B5D5-94111568D28A}
// *********************************************************************//
template <class T> HRESULT __fastcall
Iserver515DispT<T>::AS_ApplyUpdates(BSTR ProviderName/*[in]*/, TVariantInParam Delta/*[in]*/, 
                                    long MaxErrors/*[in]*/, long* ErrorCount/*[out]*/, 
                                    TVariant* OwnerData/*[in,out]*/, TVariant* Value/*[out,retval]*/)
{
  _TDispID _dispid(*this, OLETEXT("AS_ApplyUpdates"), DISPID(20000000));
  TAutoArgs<5> _args;
  _args[1] = ProviderName /*[VT_BSTR:0]*/;
  _args[2] = Delta /*[VT_VARIANT:0]*/;
  _args[3] = MaxErrors /*[VT_I4:0]*/;
  _args[4] = ErrorCount /*[VT_I4:1]*/;
  _args[5] = OwnerData /*[VT_VARIANT:1]*/;
  return OutRetValSetterPtr(Value /*[VT_VARIANT:1]*/, _args, OleFunction(_dispid, _args));
}

template <class T> TVariant __fastcall
Iserver515DispT<T>::AS_ApplyUpdates(BSTR ProviderName/*[in]*/, TVariantInParam Delta/*[in]*/, 
                                    long MaxErrors/*[in]*/, long* ErrorCount/*[out]*/, 
                                    TVariant* OwnerData/*[in,out]*/)
{
  TVariant Value;
  this->AS_ApplyUpdates(ProviderName, Delta, MaxErrors, ErrorCount, OwnerData, (TVariant*)&Value);
  return Value;
}

template <class T> HRESULT __fastcall
Iserver515DispT<T>::AS_GetRecords(BSTR ProviderName/*[in]*/, long Count/*[in]*/, 
                                  long* RecsOut/*[out]*/, long Options/*[in]*/, 
                                  BSTR CommandText/*[in]*/, TVariant* Params/*[in,out]*/, 
                                  TVariant* OwnerData/*[in,out]*/, TVariant* Value/*[out,retval]*/)
{
  _TDispID _dispid(*this, OLETEXT("AS_GetRecords"), DISPID(20000001));
  TAutoArgs<7> _args;
  _args[1] = ProviderName /*[VT_BSTR:0]*/;
  _args[2] = Count /*[VT_I4:0]*/;
  _args[3] = RecsOut /*[VT_I4:1]*/;
  _args[4] = Options /*[VT_I4:0]*/;
  _args[5] = CommandText /*[VT_BSTR:0]*/;
  _args[6] = Params /*[VT_VARIANT:1]*/;
  _args[7] = OwnerData /*[VT_VARIANT:1]*/;
  return OutRetValSetterPtr(Value /*[VT_VARIANT:1]*/, _args, OleFunction(_dispid, _args));
}

template <class T> TVariant __fastcall
Iserver515DispT<T>::AS_GetRecords(BSTR ProviderName/*[in]*/, long Count/*[in]*/, 
                                  long* RecsOut/*[out]*/, long Options/*[in]*/, 
                                  BSTR CommandText/*[in]*/, TVariant* Params/*[in,out]*/, 
                                  TVariant* OwnerData/*[in,out]*/)
{
  TVariant Value;
  this->AS_GetRecords(ProviderName, Count, RecsOut, Options, CommandText, Params, OwnerData, (TVariant*)&Value);
  return Value;
}

template <class T> HRESULT __fastcall
Iserver515DispT<T>::AS_DataRequest(BSTR ProviderName/*[in]*/, TVariantInParam Data/*[in]*/, 
                                   TVariant* Value/*[out,retval]*/)
{
  _TDispID _dispid(*this, OLETEXT("AS_DataRequest"), DISPID(20000002));
  TAutoArgs<2> _args;
  _args[1] = ProviderName /*[VT_BSTR:0]*/;
  _args[2] = Data /*[VT_VARIANT:0]*/;
  return OutRetValSetterPtr(Value /*[VT_VARIANT:1]*/, _args, OleFunction(_dispid, _args));
}

template <class T> TVariant __fastcall
Iserver515DispT<T>::AS_DataRequest(BSTR ProviderName/*[in]*/, TVariantInParam Data/*[in]*/)
{
  TVariant Value;
  this->AS_DataRequest(ProviderName, Data, (TVariant*)&Value);
  return Value;
}

template <class T> HRESULT __fastcall
Iserver515DispT<T>::AS_GetProviderNames(TVariant* Value/*[out,retval]*/)
{
  _TDispID _dispid(*this, OLETEXT("AS_GetProviderNames"), DISPID(20000003));
  TAutoArgs<0> _args;
  return OutRetValSetterPtr(Value /*[VT_VARIANT:1]*/, _args, OleFunction(_dispid, _args));
}

template <class T> TVariant __fastcall
Iserver515DispT<T>::AS_GetProviderNames(void)
{
  TVariant Value;
  this->AS_GetProviderNames((TVariant*)&Value);
  return Value;
}

template <class T> HRESULT __fastcall
Iserver515DispT<T>::AS_GetParams(BSTR ProviderName/*[in]*/, TVariant* OwnerData/*[in,out]*/, 
                                 TVariant* Value/*[out,retval]*/)
{
  _TDispID _dispid(*this, OLETEXT("AS_GetParams"), DISPID(20000004));
  TAutoArgs<2> _args;
  _args[1] = ProviderName /*[VT_BSTR:0]*/;
  _args[2] = OwnerData /*[VT_VARIANT:1]*/;
  return OutRetValSetterPtr(Value /*[VT_VARIANT:1]*/, _args, OleFunction(_dispid, _args));
}

template <class T> TVariant __fastcall
Iserver515DispT<T>::AS_GetParams(BSTR ProviderName/*[in]*/, TVariant* OwnerData/*[in,out]*/)
{
  TVariant Value;
  this->AS_GetParams(ProviderName, OwnerData, (TVariant*)&Value);
  return Value;
}

template <class T> HRESULT __fastcall
Iserver515DispT<T>::AS_RowRequest(BSTR ProviderName/*[in]*/, TVariantInParam Row/*[in]*/, 
                                  long RequestType/*[in]*/, TVariant* OwnerData/*[in,out]*/, 
                                  TVariant* Value/*[out,retval]*/)
{
  _TDispID _dispid(*this, OLETEXT("AS_RowRequest"), DISPID(20000005));
  TAutoArgs<4> _args;
  _args[1] = ProviderName /*[VT_BSTR:0]*/;
  _args[2] = Row /*[VT_VARIANT:0]*/;
  _args[3] = RequestType /*[VT_I4:0]*/;
  _args[4] = OwnerData /*[VT_VARIANT:1]*/;
  return OutRetValSetterPtr(Value /*[VT_VARIANT:1]*/, _args, OleFunction(_dispid, _args));
}

template <class T> TVariant __fastcall
Iserver515DispT<T>::AS_RowRequest(BSTR ProviderName/*[in]*/, TVariantInParam Row/*[in]*/, 
                                  long RequestType/*[in]*/, TVariant* OwnerData/*[in,out]*/)
{
  TVariant Value;
  this->AS_RowRequest(ProviderName, Row, RequestType, OwnerData, (TVariant*)&Value);
  return Value;
}

template <class T> HRESULT __fastcall
Iserver515DispT<T>::AS_Execute(BSTR ProviderName/*[in]*/, BSTR CommandText/*[in]*/, 
                               TVariant* Params/*[in,out]*/, TVariant* OwnerData/*[in,out]*/)
{
  _TDispID _dispid(*this, OLETEXT("AS_Execute"), DISPID(20000006));
  TAutoArgs<4> _args;
  _args[1] = ProviderName /*[VT_BSTR:0]*/;
  _args[2] = CommandText /*[VT_BSTR:0]*/;
  _args[3] = Params /*[VT_VARIANT:1]*/;
  _args[4] = OwnerData /*[VT_VARIANT:1]*/;
  return OleFunction(_dispid, _args);
}

// *********************************************************************//
// DispIntf:  Iserver515Events
// Flags:     (0)
// GUID:      {AE44B665-4902-4B3E-8D8F-89002ABE7FD5}
// *********************************************************************//
// *********************************************************************//
// The following typedefs expose classes (named CoCoClassName) that       
// provide static Create() and CreateRemote(LPWSTR machineName) methods   
// for creating an instance of an exposed object. These functions can     
// be used by client wishing to automate CoClasses exposed by this        
// typelibrary.                                                           
// *********************************************************************//

// *********************************************************************//
// COCLASS DEFAULT INTERFACE CREATOR
// CoClass  : server515
// Interface: TCOMIserver515
// *********************************************************************//
typedef TCoClassCreatorT<TCOMIserver515, Iserver515, &CLSID_server515, &IID_Iserver515> Coserver515;
#endif  //   __TLB_NO_INTERFACE_WRAPPERS


#if !defined(__TLB_NO_EVENT_WRAPPERS) && defined(USING_ATLVCL)
// *********************************************************************//
// CONNECTIONPOINT/EVENT PROXY
// CoClass         : server515
// Event Interface : Iserver515Events
// *********************************************************************//
template <class T>
class TEvents_server515 : public IConnectionPointImpl<T,
                                                 &DIID_Iserver515Events,
                                                 CComUnkArray<CONNECTIONPOINT_ARRAY_SIZE> >
{
public:
protected:
  Iserver515EventsDisp m_EventIntfObj;
};

#endif  //   __TLB_NO_EVENT_WRAPPERS

};     // namespace Serverp_tlb

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

#pragma option pop

#endif // __serverp_TLB_h__