Работа с Visual Studio.Net
Использование макросов COM
Разработчики COM рекомендуют для повышения надежности и переносимости компонентов использовать при их разработке множество макроопределений, которые вы также вынуждены будете использовать при разработке проекта на базе ATL. Например, макрос STDMETHODIMP при раскрытии заменяет спецификаторы HRESULT _stdcall. Для того чтобы приобрести навыки использования макросов СОМ, мы применим их в файлах MyCom.h и MyCom.cpp. Сравнивая старую и новую версии этих файлов, вы без труда поймете смысл макроподстановок. В файл MyCom.h ведите коррекцию кодов так, как показано ниже: #if !defined(MY_COSAY_HEADER)#define MY_COSAY_HEADER
#pragma once
#include "MyComTLib_h.h" class CoSay : public ISay
//====== Класс, реализующий интерфейсы ISay, lUnknown
public: CoSay (') ; virtual -CoSay();
// lUnknown
STDMETHODIMP QuerylnterfacefREFIID riid, void** ppv);
STDMETHODIMP_(ULONG) AddRef();
STDMETHODIMP_(ULONG) Release();
// ISay
STDMETHODIMP Say();
STDMETHODIMP SetWord (BSTR word);
private:
//====== Счетчик числа пользователей классом
ULONG m_ref;
//====== Текст, выводимый в окно
BSTR m_word; };
//====== Фабрика классов СОМ DLL-сервера
class CoSayFactory : public IClassFactory
{
public:
CoSayFactory();
virtual ~CoSayFactory();
// lUnknown
STDMETHODIMP QueryInterface(REFIID riid, void** ppv) ;
STDMETHODIMP_(ULONG) AddRef();
STDMETHODIMP_(ULONG) Release();
// IClassFactory
STDMETHODIMP Createlnstance(LPUNKNOWN pUnk,
REFIID riid, void** ppv);
STDMETHODIMP LockServer(BOOL bLock); private:
ULONG m_ref; };
#endif
Теперь перейдите к файлу MyCom.cpp и произведите замены в соответствии с текстом, приведенным ниже:
#include "MyComTLib_i.c"
#include "MyCom.h"
//====== Произвольный ограничитель длины строк
#define MAX_LENGTH 128
//====== Счетчик числа блокировок DLL
ULONG gLockCount;
//====== Счетчик числа пользователей СОМ-объектами
ULONG gObjCount;
CoSay::CoSay()
{
//=== Обнуляем счетчик числа пользователей класса,
//=== так как интерфейс пока не используется
m_ref = 0;
//=== Динамически создаем строку текста по умолчанию m_word = SysAllocString(L"This is MyComTLib speaking"); gObjCount++; }
CoSay::-CoSay() {
//====== при завершении работы освобождаем память
if (m_word)
SysFreeString(m_word);
gObjCount—; }
//====== Реализация методов lUnknown
STDMETHODIMP CoSay::QueryInterface(REFIID riid, void** ppv) {
// Стандартная логика работы с клиентом
// Поддерживаем только два интерфейса
//====== Реализация lUnknown *ppv = 0;
if (riid==IID_IUnknown)
*ppv = static_cast<IUnknown*>(this); else if (riid==IID_ISay)
*ppv = static_cast<ISay*>(this); else
return E_NOINTERFACE;
//====== Добавляем единицу к счетчику
//====== пользователей нашим объектом
AddRef () ; return S_OK; }
STDMETHODIMP_(ULONG) CoSay::AddRef() {
return ++m_ref; }
STDMETHODIMP_(ULONG) CoSay: :Release () {
if (--m_ref==0) delete this;
return m_ref; }
//====== Реализация ISay
STDMETHODIMP CoSay::Say() {
//=== Преобразование типов (из BSTR в char*), //=== которое необходимо для использования MessageBox char buff[MAX_LENGTH];
WideCharToMultiByte(CP_ACP, 0, m_word, -1, buff, MAX_LENGTH, 0, 0); MessageBox (0, buff, "Interface ISay:", MB_OK); return S_OK; }
STDMETHODIMP CoSay::SetWord(BSTR word) {
//====== Повторное зыделение памяти
SysReAllocString(&m_word, word);
return S_OK; }
STDAPI DllGetClassObject (REFCLSID rclsid, REFIID riid, LPVOID* ppv) { if (rclsid != CLSID_CoSay)
return CLASS_E_CLASSNOTAVAILABLE;
CoSayFactory *pCF = new CoSayFactory;
HRESULT hr = pCF->Query!nterface(riid, ppv);
if (FAILED(hr)) delete pCF;
return hr;
}
STDAPI DllCanUnloadNow() {
//====== Если счетчики нулевые, то мы позволяем
//====== системе выгрузку DLL-сервера
return IgLockCount && IgObjCount ? S_OK : S_FALSE; }
//====== Фабрика классов
CoSayFactory::CoSayFactory() {
m_ref = 0;
gObjCount++; }
CoSayFactory::-CoSayFactory()
gObjCount--; }
//====== Методы lUnknown
STDMETHODIMP CoSayFactory ::QueryInterface(REFIID riid, void** ppv) {
*ppv = 0;
//=== Обходимся без шаблона static casto
if (riid == IID_IUnknown)
*ppv = (lUnknown*)this; else if (riid == IID_IClassFactory)
*ppv = (IClassFactory*)this; else
return E_NOINTERFACE;
AddRef () ;
return S_OK; }
STDMETHODIMP_(ULONG) CoSayFactory::AddRef() {
return ++m_ref; }
STDMETHODIMP_(ULONG) CoSayFactory::Release() {
if (--m_ref==0) delete this;
return m_ref; }
//====== Методы IClassFactory
STDMETHODIMP CoSayFactory::CreateInstance(LPUNKNOWN pUnk,
REFIID riid, void** ppv) {
// Этот параметр управляет аггрегированием объектов СОМ, // которое мы не поддерживаем if (pUnk)
return CLASS_E_NOAGGREGATION;
//=== Создание нового объекта и запрос его интерфейса CoSay *pSay = new CoSay;
HRESULT hr = pSay->Query!nterface (riid, ppv); if (FAILED(hr))
delete pSay; return hr; }
//=== Управление счетчиком фиксаций сервера в памяти STDMETHODIMP CoSayFactory::LockServer(BOOL bLock) {
if (bLock) // Если TRUE, то увеличиваем счетчик ++gLockCount;
else // Иначе — уменьшаем
--gLockCount; return S_OK; }
Регистрация
библиотеки типов
REGEDIT HKEY_CLASSES_ROOT\MyComTLib.CoSay\CLSID =
{9B865820-2FFA-lld5-98B4-OOE0293F01B2}
HKEY_CLASSES_ROOT\CLSID\
{9B865820-2FFA-lld5-98B4-OOE0293F01B2} = MyComTLib.CoSay
HKEY_CLASSES_ROOT\CLSID\
{9B865820-2FFA-lld5-98B4-OOE0293F01B2} \InprocServer32 = D:\My Projects\MyComTLib\Debug\MyComTLib.dll'
HKEY_CLASSES_ROOT\CLSID\
{9B865820-2FFA-lld5-98B4-OOE0293F01B2}\TypeLib = {0934DA90-608D-4107-9ECC-C7E828AD0928}
HKEY_CLASSES_ROOT\TypeLib\
{0934DA90-608D-4107-9ECC-C7E828AD0928} = MyComTLib
HKEY_CLASSES_ROOT\TypeLib\
{0934DA90-608D-4107-9ECC-C7E828AD0928} \1.0\0\Win32 = D:\My Projects\MyComTLib\Debug\MyComTLib.tlb
После этого дайте команду Build > Rebuild Solution. При осуществлении компоновки (Linking) в окне Output должна появиться строка:
Creating library Debug/MyComTLib.lib and object Debug/MyComTLib.exp
которая свидетельствует о том, что DEF-файл воспринят и участвует в построении проекта. Если вы не видите этой строки, то выполните шаги по настройке проекта, которые описаны выше в разделе «Файл описания DLL», и повторите процедуру построения. После этого сервер готов к использованию.
|