实战COM(09)----COM+的特性之对象池

关注

原创最新推荐文章于 2026-09-14 16:40:15 发布 1.1k 阅读 AI 写同款· GEO 优化 ›

Silverlight Bing Maps遗留系统维护与迁移实战指南 Silverlight和Bing Maps作为早期Web地理信息开发的核心技术栈，虽已停止官方支持，但仍在大量政企关键业务系统中稳定运行。其技术原理基于插件化富客户端架构、WCF RIA Services数据绑定及V7 SDK离线地图渲染机制，具备强稳定性与低运维侵入性。在现代Windows环境（Win10/11 IE模式）下，通过.NET Framework版本控制、CDN资源离线化、DOM容器劫持等工程手段可实现可靠复现。技术价值在于支撑百万级点位热力图、自定义空间索引查询与混合架构平滑演进，广泛应用于阅读详情

本文欢迎转载，唯请注明出处及作者 blackcolor@263.net
---------------------------------------------------

实战COM(09)----COM+的特性之对象池

本节我们将上一节的组件改造成可池化的组件。修改如下：
一、修改组件
1)头文件Simple05.h
// Simple05.h : Declaration of the CSimple05

#ifndef __SIMPLE05_H_
#define __SIMPLE05_H_

#include "resource.h" // main symbols
#include <mtx.h>

/////////////////////////////////////////////////////////////////////////////
// CSimple05
class ATL_NO_VTABLE CSimple05 :
public CComObjectRootEx<CComMultiThreadModel>,
public CComCoClass<CSimple05, &CLSID_Simple05>,
public IObjectControl, // 支持对象池操作
public ISimple05
{
public:
CSimple05()
{
}

DECLARE_REGISTRY_RESOURCEID(IDR_SIMPLE05)

DECLARE_PROTECT_FINAL_CONSTRUCT()

BEGIN_COM_MAP(CSimple05)
COM_INTERFACE_ENTRY(ISimple05)
COM_INTERFACE_ENTRY(IObjectControl)
END_COM_MAP()

// IObjectControl
public:
STDMETHOD(Activate)();
STDMETHOD_(BOOL, CanBePooled)();
STDMETHOD_(void, Deactivate)();

CComPtr<IObjectContext> m_spObjectContext;

// ISimple05
public:
STDMETHOD(ModifyData)();
};

#endif //__SIMPLE05_H_

2)应用文件Simple05.cpp
// Simple05.cpp : Implementation of CSimple05
#include "stdafx.h"
#include "Step05.h"
#include "Simple05.h"

#include <mtx.h> // 事务支持
#include <atldbcli.h> // 数据库操作
// 加入comutil支持
#include <comutil.h>
#pragma comment( lib, "comsupp.lib" )

/////////////////////////////////////////////////////////////////////////////
// CSimple05

// 定义一个新类
class CAuthors
{
public:
// 数据--宽度来源于表Authors
char m_szAu_Id[12];
char m_szAu_lName[41];

// 参数绑定
BEGIN_PARAM_MAP(CAuthors)
  COLUMN_ENTRY(1, m_szAu_lName)
  COLUMN_ENTRY(2, m_szAu_Id)
END_PARAM_MAP()
};

STDMETHODIMP CSimple05::ModifyData()
{
CDataSource Connection;
CSession Session;
CCommand<CAccessor<CAuthors> > Authors;
HRESULT hr;

// 创建一个事务
//IObjectContext* pObjectContext = NULL;
//hr = GetObjectContext(&pObjectContext);
//if(FAILED(hr) || ! pObjectContext) return hr;

// 检查是否存在事务环境
//if(! pObjectContext->IsInTransaction()) return E_FAIL;

// 打开数据库
CDBPropSet dbinit(DBPROPSET_DBINIT);
dbinit.AddProperty(DBPROP_INIT_DATASOURCE, OLESTR("GP2000"));   // 服务器名
dbinit.AddProperty(DBPROP_AUTH_USERID, OLESTR("sa"));    // 用户名
dbinit.AddProperty(DBPROP_AUTH_PASSWORD, OLESTR("123"));   // 密码
dbinit.AddProperty(DBPROP_AUTH_PERSIST_SENSITIVE_AUTHINFO, false);
dbinit.AddProperty(DBPROP_INIT_CATALOG, OLESTR("pubs"));   // 数据库名
dbinit.AddProperty(DBPROP_INIT_LCID, (long)2052);
dbinit.AddProperty(DBPROP_INIT_PROMPT, (short)4);
hr = Connection.Open(_T("SQLOLEDB.1"), &dbinit);
if (FAILED(hr)) return hr;

hr = Session.Open(Connection);
if (FAILED(hr))
{
  Connection.Close();
  return hr;
}
// 设置更新条件
strcpy(Authors.m_szAu_Id,    "172-32-1176"); // 172-32-1176
strcpy(Authors.m_szAu_lName, "MY name");  // White
hr = Authors.Open(Session, "Update Authors Set Au_lName = ? Where Au_Id = ?");

//if(pObjectContext)
//{
  if(SUCCEEDED(hr))
  {
   m_spObjectContext->SetComplete(); // 提交事务
  }
  else
  {
   m_spObjectContext->SetAbort();
  }
//}