Применение Windows API - А. Легалов

  hr = ::CoCreateInstance(classId, 0, CLSCTX_SERVER, IID_IUnknown, (void**)&_iUnk);

 }

 if (FAILED(hr)) throw HEx(hr, "Couldn't create instance");

}

Через мгновение я объясню странный тип исключения HEx.

В нашей реализации AcquireInterface просто вызывает метод QueryInterface из IUnknown (или, как я говорю, неудачный QueryInterface из неудачного IUnknown).

void* SObject::AcquireInterface(IID const& iid) {

 void * p = 0;

 HRESULT hr = _iUnk->QueryInterface(iid, &p);

 if (FAILED(hr)) {

  if (hr == E_NOINTERFACE) throw "No such interface";

  else throw HEx(hr, "Couldn't acquire interface");

 }

 return p;

}

Метод AcquireInterface — один из этих исключительных, Получающих методов Управления ресурсами, которые освобождают ресурсы. Мы не вызываем его иначе, как внутри конструктора интеллектуального указателя интерфейса. (Между прочим, параметр шаблона — это IID указатель, потому что компилятор не будет принимать ссылки как параметры шаблона. Я не уверен почему.)

Итак, имеется шаблон для интеллектуального указателя интерфейса.

template<class I, IID const * iid>

class SFace {

public:

 ~SFace() {

  if (_i) _i-> Release();

 }

 I* operator->() { return _i; }

protected:

 SFace() : _i(0) {}

 SFace(void * i) {

  _i = static_cast<I*>(i);

 }

protected:

 I * _i;

};

Как видите, этот специфический шаблон не может порождать экземпляры. Дело в том, что все его конструкторы защищены. Но не волнуйтесь, мы создадим другие классы, которые обеспечим их собственными специализированными конструкторами.

Вот один из них, который использует наш CoObject (или любой другой объект, полученный от него) как источник интерфейса.

template<class I, IID const * iid>

class SObjFace: public SFace<I, iid> {

public:

 SObjFace(CoObject& obj) : SFace<I, iid>(obj.AcquireInterface(*iid)) {}

};

В заключение позвольте мне представить класс HEx (HRESULT Exception). Это — класс исключения, который является способным к отображению значимых сообщений об ошибках. Для достижения моих ограниченных целей, я просто отображаю сообщения непосредственно на холсте основного экрана. Не бойтесь реализовать ваш собственный метод с использованием окна сообщений или еще чего-нибудь.

class HEx {

public:

 HEx(HRESULT hr, char const * str = 0) : _hr (hr), _str (str) {}

 void Display(int x, int y, Canvas& canvas) {

  if (_str != 0) {

   canvas.Text (x, y, _str);

   y += 20;

  }

  if (FAILED (_hr)) {

   char * msg;

   ::FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM, 0, _hr, MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), reinterpret_cast<char*>(&msg), 0, 0);

   canvas.Text(x, y, msg);

   ::LocalFree(msg);

  }

 }

private:

 HRESULT _hr;

 char const * _str;

};

Далее: Будет представлен типичный код. Я только должен объяснить, что такое Автоматизация.

Обертка для автоматизации

Перевод А. И. Легалова

Англоязычный оригинал находится на сервере компании Reliable Software

Мне бы хотелось получить море информации из запущенной копии Microsoft Developers Studio. Это должно быть простой задачей, т.к. DevStudio, подобно многим другим приложениям MS, предоставляет его интерфейсы через OLE Автоматизацию. Не столь просто! Как Вы увидите, Microsoft решил, что клиенты интерфейсов автоматизации VC ++ будет или использовать Visual Basic, или внутренних умных мастеров DevStudio. Я, с другой стороны, люблю программировать на C++ (Вам не кажется, что Microsoft Visual C++ должен быть переименован в Microsoft Visual MFC Wizard? Это принизило C++ до роли языка сценариев для MFC.)

В любом случае, когда я выяснил, как надо делать, остальное оказалось не быть слишком трудным. Вы только должны выяснить, где вся необходимая информация сохраняется в реестре. В частности IID всех интерфейсов. Совет: используйте OLE-COM Object Viewer, который поставляется с VC ++, чтобы просмотреть библиотеки типов. Было бы вообще великолепно, если бы Microsoft предоставлял исходные файлы или obj файлы с определениями идентификаторов интерфейсов. В существующей же ситуации я должен копировать их из Object Viewer'а и вставлять их в нужное место. Ниже приводится пример.

static const IID IID_IApplication = { 

 0xEC1D73A1, 0x8CC4, 0x11CF, { 0x9B, 0xE9, 0x00, 0xA0, 0xC9, 0x0A, 0x63, 0x2C }

};

Итак, как получить управление выполняющейся копией DevStudio? В начале вы должны создать OLE объект. Для этого необходим идентификатор класса этого объекта. Вы можете получить идентификатор класса от системы (эта информация хранится в реестре), если знаете программный идентификатор. Программный идентификатор, устроен так чтобы читаться человеком. Конечно, каждый человек знает, что Developer Studio идет под именем "MSDEV.APPLICATION". Это так просто.

Имея идентификатор класса, мы можем создать наш SObject. Мы передаем значение параметра запуска как true, потому что хотим соединиться с выполняющейся копией MSDEV.APPLICATION, если это возможно. Получение интерфейса из SObject столь же просто как создание экземпляра шаблона SObjFace с соответствующими параметрами. Итак, нашей отправной точкой будет, интерфейс к приложению.

CLSID idMsDev;

HRESULT hr = ::CLSIDFromProgID(L"MSDEV.APPLICATION", &idMsDev);

if (FAILED (hr)) throw HEx(hr, "Couldn't convert prog id to class id");

SObject obj(idMsDev, true);

SObjFace<IApplication, &IID_IApplication> app(obj);

Обратите внимание, что строка, которую Вы передаете к CLSIDFromProgID, должна использовать кодировку Unicode. Помещение L перед строковым литералом обеспечивает это.

Я надеюсь, что Вы можете оценить простоту этого кода. Он почти столь же прост, как и его VB эквивалент.

Dim app as Application

Set app = GetObject(, "MSDEV.APPLICATION")

if (app = NULL)

 Set app = CreateObject("MSDEV.APPLICATION")

Теперь давайте что-нибудь сделаем с этим интерфейсом. Так случилось, что IApplication имеет член Visible, который Вы можете установить или получить. Когда Вы устанавливаете Visible в истину, окно приложения становится видимым. Ниже приводится синтаксис для «установки» члена. Обратите внимание, что в OLE Вы должны использовать обозначения с именами VARIANT_BOOL и VARIANT_TRUE вместо bool и true. Это делается ради совместимости с Basic (что делает Билла счастливым).

VARIANT_BOOL b = VARIANT_TRUE;

app->put_Visible(b);

Как я узнал, что IApplication имеет член Visible? Хороший вопрос! Имеется подкаталог objmodel в VC ++, в каталоге include, где Вы можете отыскать такие файлы как Appauto.h, которые содержат строки, подобные одной из показанных ниже. Вы можете проводить выборочное изучение, чтобы интерпретировать эти файлы. Их критика связана с (глупым!) требованием, чтобы они включались как в C, так и в C++ код. А Microsoft не захотела поддерживать два набора заголовочных файлов, поэтому здесь мы поступаем так.

STDMETHOD(get_Visible)(THIS_ VARIANT_BOOL FAR* Visible) PURE;

STDMETHOD(put_Visible)(THIS_ VARIANT_BOOL Visible) PURE;

Так, что же мы делаем дальше, когда приложение в наших руках? Как насчет выяснения того, какой документ является в настоящее время активным? Используя интерфейс IApplication в качестве источника, мы можем создавать другой OLE объект, который представит активный документ. Этот специфический OLE объект, SActiveDocument, может использоваться как источник нескольких интерфейсов, одним из которых является IGenericDocument. Мы захватываем этот интерфейс стандартным способом — создавая объект с помощью шаблона SObjFace. SActiveDocument, подобно всем нашим объектам OLE/COM, наследует от CoObject, исходные интерфейсы.

IGenericDocument имеет член FullName, который может быть получен, вызовом метода get_FullName. К сожалению, совместимость с Basic снова наносит удар: результат передается в форме BSTR, или Basic строки. Я создал два вспомогательных класса BString и CString, чтобы заботиться о этой сверхъестественности. В частности BString удостоверяется, что строка освобождена, используя при этом функцию API SysFreeString.

SActiveDocument docObj(app);

if (docObj) {

 SObjFace<IGenericDocument, &IID_IGenericDocument> doc(docObj);

 BString bPath;

 doc->get_FullName(bPath.GetPointer());

 CString path(bPath);

 canvas.Text(20, y, "Active Document:");

 canvas.Text (200, y, path);

}

Это типичная ситуация для OLE Автоматизации. Используя интерфейсный метод одного приложения (app в данном случае) Вы овладеваете другим объектом (docObj) и его собственными интерфейсами. Для каждого такого метода, возвращающего объект, мы создадим новый класс интеллектуальных указателей, которые отличаются только возможностями их конструкторов. Например, имеется класс SActiveDocument.

class SActiveDocument: public DispObject {

public:

 SActiveDocument(SObjFace<IApplication, &IID_IApplicationication> &app) {

  HRESULT hr = app->get_ActiveDocument(&_idisp);

  if (FAILED (hr)) throw HEx(hr, "get_ActiveDocument failed");

 }

};