Применение Windows API

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

   else throw HEx(hr, "Couldn't create DispObject");

  }

 }

 ~DispObject() {

  if (_iDisp) _iDisp->Release();

 }

 operator bool() const { return _iDisp != 0; }

 bool operator!() const { return _iDisp == 0; }

 DISPID GetDispId(WCHAR* funName) {

  DISPID dispid;

  HRESULT hr = _iDisp->GetIDsOfNames(IID_NULL, &funName, 1, GetUserDefaultLCID(), &dispid);

  return dispid;

 }

 void GetProperty(DISPID propId, VARIANT& result) {

  // In parameters

  DISPPARAMS args = { 0, 0, 0, 0 };

  EXCEPINFO except;

  UINT argErr;

  HRESULT hr = _iDisp->Invoke(propId, IID_NULL, GetUserDefaultLCID(), DISPATCH_PROPERTYGET, &args, &result, &except, &argErr);

  if (FAILED (hr)) throw HEx(hr, "Couldn't get property");

 }

 void* AcquireInterface(IID const & iid) {

  void* p = 0;

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

  if (FAILED(hr)) {

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

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

  }

  return p;

 }

protected:

 DispObject(IDispatch * iDisp) : _iDisp(iDisp) {}

 DispObject() : _iDisp(0) {}

protected:

 IDispatch* _iDisp;

};

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

// Use docObj as a dispatch interface

DISPID pid = docObj.GetDispId(L"Name");

VARIANT varResult;

::VariantInit(&varResult);

docObj.GetProperty(pid, varResult);

BString bName(varResult);

CString cName(bName);

canvas.Text(20, y, "Name:");

canvas.Text(200, y, cName);

Это показывает, как Вы получаете путь, используя таблицу виртуальных функций (vtable).

SObjFace doc(docObj);

BString bPath;

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

Теперь у Вас не должно быть каких-либо проблем при понимании кода, который определяет номер строки, на которой пользователь позиционировал курсор.

BString bType;

doc->get_Type(bType.GetPointer());

if (type.IsEqual("Text")) {

 SObjFace text (docObj);

 SSelection selObj(text);

 SObjFace sel(selObj);

 long line;

 sel->get_CurrentLine(&line);

 canvas.Text(20, y, "CurrentLine:");

 char buf[10];

 wsprintf(buf, "%ld", line);

 canvas.Text(200, y, buf);

}

SSelection — это DispObject, который может быть получен, вызовом метода get_Selection интерфейса текстового документа.

class SSelection: public DispObject {

public:

 SSelection(SObjFace& doc) {

  HRESULT hr = doc->get_Selection(& _iDisp);

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

 }

};

У Вас могут быть небольшие трудности, если это — ваш первый контакт с OLE (преуменьшение!). Поэтому, ниже подводятся некоторые итоги, которые суммируют различные действия, позволяющие упростить задачу Автоматизации. Обратите внимание, что это — клиентская сторона уравнения. Если Вы хотите, чтобы ваше приложение было сервером Автоматизации, то ожидайте некоторых усложнений. Хорошо то, что имеется большое количество литературы по этим вопросам.

Итак здесь изложено то, что Вы должны сделать.

• Исследование