开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 查看源码
CORE.CPP
资源名称：MSDN_VC98.zip　[点击查看]
上传用户：bangxh
上传日期：2007-01-31
资源大小：42235k
文件大小：3k
源码类别：

Windows编程

开发平台：

Visual C++

CORE.CPP：源码内容
  1. /*++
  3. Copyright (c) 1996 Microsoft Corporation
  5. Module Name:
  7.     Core.cpp
  9. Abstract:
  11.     CCoreADsObject - Implementation
  13. Author:
  15. Environment:
  17.     User mode
  19. Revision History :
  21. --*/
  22. #include "adssmp.h"
  23. #pragma hdrstop
  25. HRESULT
  26. CCoreADsObject::InitializeCoreObject(
  27.         BSTR Parent,
  28.         BSTR Name,
  29.         BSTR ClassName,
  30.         BSTR Schema,
  31.         REFCLSID rclsid,
  32.         DWORD dwObjectState
  33.         )
  34. {
  35.     HRESULT hr = S_OK;
  36.     ADsAssert(Parent);
  37.     ADsAssert(Name);
  38.     ADsAssert(ClassName);
  40.     hr = BuildADsPath(
  41.             Parent,
  42.             Name,
  43.             &_ADsPath
  44.             );
  45.     BAIL_ON_FAILURE(hr);
  47.     hr = BuildADsGuid(
  48.             rclsid,
  49.             &_ADsGuid
  50.             );
  51.     BAIL_ON_FAILURE(hr);
  53.     hr = xx_put_BSTR(&_Parent, Parent);
  54.     BAIL_ON_FAILURE(hr);
  57.     hr = xx_put_BSTR(&_Name, Name);
  58.     BAIL_ON_FAILURE(hr);
  60.     hr = xx_put_BSTR(&_ADsClass, ClassName);
  61.     BAIL_ON_FAILURE(hr);
  63.     hr = BuildSchemaPath(
  64.             _ADsPath,
  65.             ClassName,
  66.             &_Schema
  67.             );
  68.     BAIL_ON_FAILURE(hr);
  69.     
  70.     _dwObjectState = dwObjectState;
  72. error:
  73.     RRETURN(hr);
  75. }
  77. CCoreADsObject::CCoreADsObject():
  78.                         _Name(NULL),
  79.                         _ADsPath(NULL),
  80.                         _Parent(NULL),
  81.                         _ADsClass(NULL),
  82.                         _Schema(NULL),
  83.                         _ADsGuid(NULL),
  84.                         _dwObjectState(0)
  85. {
  86. }
  88. CCoreADsObject::~CCoreADsObject()
  89. {
  90.     if (_Name) {
  91.         ProvFreeString(_Name);
  92.     }
  94.     if (_ADsPath) {
  95.         ProvFreeString(_ADsPath);
  96.     }
  98.     if (_Parent) {
  99.         ProvFreeString(_Parent);
  100.     }
  102.     if (_ADsClass) {
  103.         ProvFreeString(_ADsClass);
  104.     }
  106.     if (_Schema) {
  107.         ProvFreeString(_Schema);
  108.     }
  110.     if (_ADsGuid) {
  111.         ProvFreeString(_ADsGuid);
  112.     }
  114. }
  116. HRESULT
  117. CCoreADsObject::get_CoreName(BSTR * retval)
  118. {
  119.     HRESULT hr;
  121.     if (FAILED(hr = ValidateOutParameter(retval))){
  122.         RRETURN(hr);
  123.     }
  125.     RRETURN(ProvAllocString(_Name, retval));
  126. }
  129. HRESULT
  130. CCoreADsObject::get_CoreADsPath(BSTR * retval)
  131. {
  132.     HRESULT hr;
  134.     if (FAILED(hr = ValidateOutParameter(retval))){
  135.         RRETURN(hr);
  136.     }
  138.     RRETURN(ProvAllocString(_ADsPath, retval));
  140. }
  142. HRESULT
  143. CCoreADsObject::get_CoreADsClass(BSTR * retval)
  144. {
  145.     HRESULT hr;
  147.     if (FAILED(hr = ValidateOutParameter(retval))){
  148.         RRETURN(hr);
  149.     }
  151.     RRETURN(ProvAllocString(_ADsClass, retval));
  152. }
  154. HRESULT
  155. CCoreADsObject::get_CoreParent(BSTR * retval)
  156. {
  158.     HRESULT hr;
  160.     if (FAILED(hr = ValidateOutParameter(retval))){
  161.         RRETURN(hr);
  162.     }
  164.     RRETURN(ProvAllocString(_Parent, retval));
  165. }
  167. HRESULT
  168. CCoreADsObject::get_CoreSchema(BSTR * retval)
  169. {
  171.     HRESULT hr;
  173.     if (FAILED(hr = ValidateOutParameter(retval))){
  174.         RRETURN(hr);
  175.     }
  177.     if ( _Schema == NULL || *_Schema == 0 )
  178.         RRETURN(E_ADS_PROPERTY_NOT_SUPPORTED);
  180.     RRETURN(ProvAllocString(_Schema, retval));
  181. }
  183. HRESULT
  184. CCoreADsObject::get_CoreGUID(BSTR * retval)
  185. {
  186.     HRESULT hr;
  188.     if (FAILED(hr = ValidateOutParameter(retval))){
  189.         RRETURN(hr);
  190.     }
  192.     RRETURN(ProvAllocString(_ADsGuid, retval));
  193. }
  195. STDMETHODIMP
  196. CCoreADsObject::GetInfo(
  197.     BOOL fExplicit
  198.     )
  199. {
  200.     RRETURN(E_NOTIMPL);
  201. }