самопроизвольный выход программы

//Тестовый пример №2 рассылки "Что такое "технология COM" и
//как с ней бороться ?" ([url]http://clubpro.spb.ru/cominside/com0016.html[/url])
//
//Реализация модуля сервера
//
//Автор - Михаил Безверхов
//Авторские права © 2000, Михаил Безверхов
//*****************************************************************************
 
#include "stdafx.h"   //служебные объявления
#include "NeoIntr2.h" //объявления интерфейсов
#include <tchar.h>    //используется ради макроса _T("str")
 
#include <basetyps.h>
#include <wtypes.h>
 
 
//******************************************************************************
//Нам хочется - в сугубо демонстрационных целях - пошпионить за аллокатором
//динамической памяти. Действительно ли срабатывает delete this и когда? 
//Для этого господам программистам, к сожалению, придётся поизощрять мозги - нам 
//придется переопределить new/delete на собственную кучу, а после этого мы
//можем делать с ними что хотим. Мне вот хочется, чтобы delete выдавала на
//консоль сообщение - "блок памяти удаляется", которое бы наглядно показывало
//где и когда отрабатывает delete this.
//Нижеследующий код не имеет никакого отношения к нашей рассылке - это только
//реализация того, что изложено выше.
 
 
HANDLE  g_hHeap  = NULL;  //дескриптор собственной кучи памяти
 
//переопределение глобальных new/delete
inline void * operator new(unsigned int stAllocateBlock){
 
  return ::HeapAlloc(g_hHeap,HEAP_ZERO_MEMORY,stAllocateBlock);
}
 
inline void operator delete(void * obj){
 
  ::MessageBox(NULL,_T("удаляется блок памяти"),_T("NeoSrv2 - аллокатор"),MB_OK);
  ::HeapFree(g_hHeap,0,obj);
}
 
 
//******************************************************************************
//реализация объектов сервера. здесь мы допускаем некую стилевую небрежность,
//исключительно из-за примитивности примера и ясности кода- мы сводим объявление
//и реализацию объектов сервера в ОДИН файл, хотя они должны быть разнесены по
//разным файлам исходного текста - ведь не всякий COM-сервер имеет такие 
//примитивные объекты, которые состоят из одной строчки кода? Поскольку у нас
//только один файл .cpp где требуется полное описание класса объекта сервера
//то мы и слили оба файла в один. Это не есть ошибка...
 
 
//******************************************************************************
//объявление статического типа Banzai
class CBanzai: public NeoInterface{
private:
  ULONG     m_dwRefCnt;           //счетчик ссылок
 
public:
  CBanzai(){ m_dwRefCnt = 0;}     //инициализация...
 
public:
  //экспонируемые методы
  STDMETHOD(QueryInterface)(REFIID riid,void ** ppvObject);
  STDMETHOD_(ULONG,AddRef)();
  STDMETHOD_(ULONG,Release)();
 
  STDMETHOD(Show)(HWND hWhere);
  STDMETHOD(Sound)();
 
};
 
 
//******************************************************************************
//объявление статического типа Hello
class CHello: public NeoInterface{
private:
  ULONG     m_dwRefCnt;           //счетчик ссылок
 
public:
  CHello(){ m_dwRefCnt = 0;}      //инициализация...
 
public:
  //экспонируемые методы
  STDMETHOD(QueryInterface)(REFIID riid,void ** ppvObject);
  STDMETHOD_(ULONG,AddRef)();
  STDMETHOD_(ULONG,Release)();
 
  STDMETHOD(Show)(HWND hWhere);
  STDMETHOD(Sound)();
 
};
 
 
//******************************************************************************
//реализация методов статического типа CBanzai
//******************************************************************************
//метод QueryInterface. Назначение метода - выдать указатель на любой 
//интерфейс, реализуемый объектом или NULL в противном случае. Наш объект 
//реализует два интерфейса - IUnknown и NeoInterface
STDMETHODIMP CBanzai::QueryInterface(REFIID riid,void ** ppvObject){
 
  //реализация QueryInterface крайне проста - мы должны разбираться
  //какой IID поступил на вход и преобразовывать указатель this к этому
  //абстрактному типу...
 
  *ppvObject = NULL;
  
  if(::memcmp(&riid,&IID_IUnknown,sizeof(GUID)) == 0) 
    *ppvObject = static_cast<IUnknown *>(this);
 
  else if(::memcmp(&riid,&IID_NeoInterface,sizeof(GUID)) == 0)
    *ppvObject = static_cast<NeoInterface *>(this);
  
  //а больше мы никаких интерфейсов не реализуем. Код возврата E_NOINTERFACE
  //и есть тот код, который сообщает, что запрашиваемого интерфейса нет.
  else return E_NOINTERFACE;
 
  AddRef(); //счётчик нужно продвинуть - ссылка же размножилась
 
  return S_OK;  //нормальное успешное завершение
}
 
//******************************************************************************
//метод AddRef - просто продвигает вперед счётчик ссылок и возвращает его 
//продвинутое значение
STDMETHODIMP_(ULONG) CBanzai::AddRef(){
 
  m_dwRefCnt++;
 
  return m_dwRefCnt;
}
 
//******************************************************************************
//метод Release - просто продвигает назад счётчик ссылок и возвращает его 
//продвинутое значение. Метод НЕ УДАЛЯЕТ объект, поскольку CBanzai у нас -
//статический объект уровня модуля, а не динамически получаемый по операции new.
//поэтому и аппарат подсчета ссылок в данном объекте - фактически не нужен.
//но клиент не знает, как реализован объект внутри сервера и клиент всё равно
//будет соблюдать протокол взаимодействия...
STDMETHODIMP_(ULONG) CBanzai::Release(){
 
  m_dwRefCnt--;
 
  return m_dwRefCnt;
}
 
//******************************************************************************
//метод Show. Показывает сообщение на экране - "БАНЗАЙ". Параметр - дескриптор
//того окна, кому должно принадлежать показываемое методом сообщение
STDMETHODIMP CBanzai::Show(HWND hWhere){
 
::MessageBox(hWhere,_T("БАНЗАЙ!"),_T("Тестовый пример сервера NeoSrv2"),MB_OK); 
 
return S_OK;
}
 
//******************************************************************************
//метод Sound. Издаёт звук. Звук будет отличаться собою от других только в том\
//случае если соответствующая схема звуковых событий в системе настроена
STDMETHODIMP CBanzai::Sound(){
 
::MessageBeep(MB_ICONASTERISK); 
 
return S_OK;
}
 
 
//******************************************************************************
//реализация методов статического типа Hello
//******************************************************************************
//метод QueryInterface. Назначение метода - выдать указатель на любой 
//интерфейс, реализуемый объектом или NULL в противном случае. И этот объект 
//реализует те же два интерфейса - IUnknown и NeoInterface
STDMETHODIMP CHello::QueryInterface(REFIID riid,void ** ppvObject){
 
  //реализация QueryInterface крайне проста - мы должны разбираться
  //какой IID поступил на вход и преобразовывать указатель this к этому
  //абстрактному типу...
 
  *ppvObject = NULL;
  
  if(::memcmp(&riid,&IID_IUnknown,sizeof(GUID)) == 0) 
    *ppvObject = static_cast<IUnknown *>(this);
 
  else if(::memcmp(&riid,&IID_NeoInterface,sizeof(GUID)) == 0)
    *ppvObject = static_cast<NeoInterface *>(this);
  
  //а больше мы никаких интерфейсов не реализуем. Код возврата E_NOINTERFACE
  //и есть тот код, который сообщает, что запрашиваемого интерфейса нет.
  else return E_NOINTERFACE;
 
  AddRef(); //счётчик нужно продвинуть - ссылка же размножилась
 
  return S_OK;  //нормальное успешное завершение
}
 
//******************************************************************************
//метод AddRef - просто продвигает вперед счётчик ссылок и возвращает его 
//продвинутое значение
STDMETHODIMP_(ULONG) CHello::AddRef(){
 
  m_dwRefCnt++;
 
  return m_dwRefCnt;
}
 
 
//******************************************************************************
//метод Release - продвигает назад счётчик ссылок и возвращает его 
//продвинутое значение. По достижении счётчиком ссылок нуля метод удаляет 
//объект из динамической памяти по delete this, поскольку объекты типа CHello
//сервер реализует в динамической памяти.
STDMETHODIMP_(ULONG) CHello::Release(){
 
  ULONG i = --m_dwRefCnt;
 
  if(i == 0) delete this;
 
  return i;
 
  //немного странноватая конструкция, по сравнению с CBanzai::Release
  //дело в том, что i - автоматическая переменная и она размещается в стеке
  //а m_dwRefCnt - переменная, размещаемая в блоке динамической памяти
  //экземпляра объекта. До тех пор, пока счетчик m_dwRefCnt не достиг нуля
  //конструкция return m_dwRefCnt будет работать. Но как только он достигнет
  //нуля и выполнится delete this блок памяти перестанет существовать и 
  //метод выполняющий return m_dwRefCnt обрушится по нарушению защиты памяти
  //именно поэтому, чтобы и в последний раз метод мог вернуть значение
  //счётчика ссылок мы используем автоматическую переменную
  //возможный ещё вариант кода:
  //  
  //  m_dwRefCnt--;
  //  if(m_dwRefCnt == 0){ delete this; return 0;}
  //  else return m_dwRefCnt;
  //
}
 
//******************************************************************************
//метод Show. Показывает сообщение на экране - "ХЕЛЛО". Параметр - дескриптор
//того окна, кому должно принадлежать показываемое методом сообщение
STDMETHODIMP CHello::Show(HWND hWhere){
 
::MessageBox(hWhere,_T("ХЕЛЛО!"),_T("Тестовый пример сервера NeoSrv2"),MB_OK); 
 
return S_OK;
}
 
//******************************************************************************
//метод Sound. Издаёт звук. Звук будет отличаться собою от других только в том\
//случае если соответствующая схема звуковых событий в системе настроена
STDMETHODIMP CHello::Sound(){
 
::MessageBeep(MB_ICONQUESTION); 
 
return S_OK;
}
 
 
//******************************************************************************
//реализация собственно модуля сервера
//******************************************************************************
 
//реализация объекта Banzai в составе сервера
CBanzai oBanzai;
 
 
//стандартная main для DLL. В этом примере она используется - при старте
//DLL мы создаём свою кучу памяти, а при завершении - уничтожаем
BOOL APIENTRY DllMain( HANDLE hModule, 
                       DWORD  ul_reason_for_call, 
                       LPVOID lpReserved
                               ){
 
  switch (ul_reason_for_call){
        case DLL_PROCESS_ATTACH:
      g_hHeap = ::HeapCreate(0,0,0);
      if(g_hHeap == NULL) return FALSE; //завершимся аварийно...
        break;
 
        case DLL_THREAD_ATTACH:
        case DLL_THREAD_DETACH:
        break;
 
        case DLL_PROCESS_DETACH:
      ::HeapDestroy(g_hHeap); //а тут уже всё равно - и так завершаемся
              break;
    }
    return TRUE;
}
 
 
//******************************************************************************
//реализация единственной экспортируемой функции DLL - DllGetClassObject
//Это - та самая функция, которая создаёт объекты, идентифицируемые со стороны
//клиента парой CLSID-IID и возвращает клиенту адрес этого объекта. В общем 
//случае для всех статических типов, реализуемых сервером она должна уметь
//опознавать CLSID, проверять, реализует ли данный CLSID запрашиваемый IID
//и создавать ссылку на такой объект "внутри сервера".
STDAPI DllGetClassObject(const GUID& Guid,
                         const GUID& Iid,
                         void ** ppv
                        ){
  //правило хорошего тона - обнулить возвращаемый указатель на тот
  //случай, если вызов закончится неудачно. Тогда клиент не будет введён
  //в заблуждение относительно того, получил ли он что-то осмысленное
    *ppv = NULL;
 
  //реализация создания объекта статического типа Banzai. Поскольку GUID
  //есть просто длинное двоичное число, а нас в данном случае интересует
  //только ответ на вопрос "равно или нет", то для сравнения GUID мы 
  //пользуемся стандартной CRT-функцией сравнения ::memcmp 
  if(::memcmp(&Guid,&CLSID_Banzai,sizeof(GUID)) == 0){
    //это - CLSID_Banzai
 
    //в прошлом примере здесь мы проверяли - а есть ли такой интерфейс в 
    //составе интерфейсов объекта. Нам и здесь его нужно проверять...
    //Но у нас есть QueryInterface этого объекта, которая эту проверку
    //делает. Её и нагрузим, ведь эта ссылка - одна для всех пользователей
    //статического типа CBanzai, т.е. объект в составе сервера - один и 
    //всем запрашивающим клиентам будет возвращаться один и тот же адрес,
    //который УЖЕ существует, независимо от того запрашивает ли его кто
    return oBanzai.QueryInterface(Iid,ppv);
 
                                          }
 
 
  //реализация создания объекта статического типа Hello
  else if(::memcmp(&Guid,&CLSID_Hello,sizeof(GUID)) == 0){
    //это - CLSID_Hello
 
    //а вот в данном случае объект создаётся в динамической памяти по
    //запросу - до запроса он не существует. Его можно создать, а потом
    //так же нагрузить QueryInterface для проверки и приведения типа
    //указателя на интерфейс. НО! Дело выбора программиста - делать так, а
    //потом, если QueryInterface вернет E_NOINTERFACE разрушать объект.
    //Либо не создавать объект, а сначала проверить корректные ли значения
    //IID поступили на вход и уже после этой проверки либо создавать, либо
    //не создавать объект вовсе. С моей точки зрения этот выбор определяется
    //только сложностью самого "поднимаемого" объекта - стоит ли его
    //"беспокоить всуе". Учитывая, что E_NOINTERFACE - ошибка, исключительная
    //ситуация? то оптимизировать стоит "нормальную" ветвь исполнения. Поэтому
    //мы слелаем всё так, как и при выдаче ссылки на CBanzai, с поправкой
    //на то, что делаем объект в динамической памяти.
 
    //а вот место возникновения грозной ошибки, с которой ранее не боролись -
    //что будет, если вызов new провалится?
    CHello * p = new CHello();
 
    if(p == NULL) return E_OUTOFMEMORY; //ну а что еще можно сделать?
 
    HRESULT hr = p->QueryInterface(Iid,ppv);
 
    if(hr == E_NOINTERFACE) delete p;
 
    return hr;
                                                         }
  //а больше никаких CLSID мы не реализуем
  else return CLASS_E_CLASSNOTAVAILABLE;
 
  //вызов был успешен и в ppv - адрес запрашиваемого объекта
}