Применение Windows API
вернуться

Легалов А. И.
Шрифт:

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<IGenericDocument, &IID_IGenericDocument> doc(docObj);

BString bPath;

doc->get_FullName(bPath.GetPointer);

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

BString bType;

doc->get_Type(bType.GetPointer);

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

 SObjFace<ITextDocument, &IID_ITextDocument> text (docObj);

 SSelection selObj(text);

 SObjFace<ITextSelection, &IID_ITextSelection> 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<ITextDocument, &IID_ITextDocument>& doc) {

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

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

 }

};

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