213

указатель на этот интерфейс. E_NOINTERFACE означает, что компонент не поддерживает данный интерфейс, и возвращаемым значением является NULL.

Из-за возможности межпроцессной поддержки, параметры функций OLE и параметры интерфейсов подразделяют на параметры ввода (in), вывода (out) или ввода/вывода (in/out). По отношению к вызываемой функции, параметр "ввода" предназначен для поступающих данных, параметр "вывода" предназначен для выводимых данных, а параметр "ввода/вывода" обеспечивает как ввод, так и вывод данных. Это простое подразделение помогает сократить объем данных, которые необходимо передавать через границы процесса или по сети. Односторонние параметры — "ввод" и "вывод" — нужно передавать только половину заданного времени, тогда как двусторонние параметры — ввода/вывода — должны копироваться и до, и после вызова функции.

В функции QueryInterface имеется один параметр "ввода" (riid) и один параметр "вывода" (ppvObject). Для поддержки целостности спецификация модели составного объекта гласит, что любой параметр вывода, который является указателем, всегда должен быть установлен в известное значение. По этой причине в первой строке функции QueryInterface параметр ppvObject устанавливается в NULL:

// Параметры "вывода" всегда инициализируются значением NULL

*ppvObject = NULL;

Если требуемый интерфейс не поддерживается, то NULL становится правильным значением указателя. Если, с другой стороны, интерфейс поддерживается, то значение NULL заменяется указателем на требуемый интерфейс.

Если интерфейс поддерживается, то функция возвращает указатель на этот интерфейс. Далее, чтобы гарантировать, что счетчик ссылок на этот интерфейс поддерживается правильно, делается вызов функции AddRef, которая является функцией-членом интерфейса:

((LPUNKNOWN) *ppvObject) -> AddRef( );

Это особенно важно реализовать для клиентов компонента OLE, поскольку безошибочный вызов функции QueryInterface всегда требует соответствующего вызова функции Release, что позволяет компоненту узнать, когда можно безопасно удалить самого себя.

Несмотря на то, что библиотека IMALLOC.DLL поддерживает только один интерфейс, фактически функция QueryInterface реагирует так, как будто поддерживаются два интерфейса: IUnknown и IMalloc. С точки зрения клиента, действительно поддерживаются два интерфейса: один, который управляет основным компонентом и другой, который реализует услуги по выделению памяти. Факт, что оба используют одну и ту же таблицу виртуальных функций определяется проектом, который соответствует архитектуре модели составного объекта.

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

IID_IMarshal:

// Мы поддерживаем IMarshal

if(riid == IID_IMarshal) *ppvObject =(LPMARSHAL) pMarshal;

Не вполне очевидной является связь интерфейса, на который ссылается указатель pMarshal, с заданной функцией DAlloc::QueryInterface. На это имеется несколько объяснений, которые к сожалению выходят за пределы нашей дискуссии. А вкратце, ответ таков: объект С++, который поддерживает интерфейс IMarshal — назовем его DMarshal — мог бы содержаться в объекте DAlloc. Или так: благодаря множественному наследованию, несколько поддерживаемых интерфейсов могли бы разделять общий набор функций интерфейса IUnknown. Какая бы конкретная реализация ни была выбрана, клиент компонента видит одно и то же: функция QueryInterface обеспечивает услуги как бы центрального пульта для создания соединений с поддерживаемыми интерфейсами компонента.

Чтобы узнать, как клиент мог бы использовать закрытый компонент интерфейса IMALLOC, рассмотрим далее программу CALLER. Она также показывает, как можно использовать программу на языке С для доступа к услугам OLE.

Клиент закрытого компонента

Программа CALLER.EXE демонстрирует, как клиент закрытого компонента создает соединение с интерфейсом, вызывает функции интерфейса и отсоединяется от него. Хотя в программе IMALLOC были показаны детали создания интерфейсов с точки зрения сервера, в программе CALLER рассматриваются детали использования интерфейсов с позиции клиента. Из этих двух вариантов проще понять позицию клиента. За исключением действий, связанных с правильным управлением временем жизни компонента, что обеспечивается функциями интерфейса IUnknown, позиция клиента близка любому программисту, который когда-либо пользовался библиотекой функций: определение требуемой функции, выбор нужных параметров и проверка возвращаемого значение на успех или неудачу.

215

# CALLER.MAK make file

#-----------------------

caller.exe : caller.obj caller.res imalloc.lib

$(LINKER) $(GUIFLAGS) -OUT:caller.exe caller.obj caller.res \ imalloc.lib $(GUILIBS) uuid.lib

caller.obj : caller.c caller.h imalloc.h $(CC) -DCINTERFACE $(CFLAGS) caller.c

caller.res : caller.rc caller.h $(RC) $(RCVARS) caller.rc

CALLER.C

#include <windows.h> #include "caller.h" #include "imalloc.h"

LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM);

char szWndClass[] = "CallerWindow";

char szAppName[] = "Malloc Caller";

//-------------------------------------------------------------------

int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,

RegisterClassEx(&wc);

hwnd = CreateWindowEx(0L, szWndClass, szAppName, WS_OVERLAPPEDWINDOW, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, NULL, NULL, hInstance, NULL);

ShowWindow(hwnd, cmdShow);

UpdateWindow(hwnd);

while(GetMessage(&msg, NULL, 0, 0))

{

TranslateMessage(&msg);

DispatchMessage(&msg);

}

return msg.wParam;

}

217

MessageBox(hwnd, "IUnknown supported", szAppName, MB_OK);

}

else

{

MessageBox(hwnd, "IUnknown not supported", szAppName, MB_OK);

}

return 0;

}

case IDM_IMALLOC :

{

LPUNKNOWN pUnk;

HRESULT hr =

pMalloc->lpVtbl->QueryInterface(pMalloc, IID_IMalloc, (void **) &pUnk);

if(SUCCEEDED(hr))

{

pUnk->lpVtbl->Release(pUnk); MessageBox(hwnd, "IMalloc supported",

szAppName, MB_OK);

}

else

{

MessageBox(hwnd, "IMalloc not supported", szAppName, MB_OK);

}

return 0;

}

case IDM_IMARSHAL :

{

LPUNKNOWN pUnk;

HRESULT hr =

pMalloc->lpVtbl->QueryInterface(pMalloc, IID_IMarshal, (void **) &pUnk);

if(SUCCEEDED(hr))

{

pUnk->lpVtbl->Release(pUnk); MessageBox(hwnd, "IMarshal supported",

szAppName, MB_OK);

}

else

{

MessageBox(hwnd, "IMarshal not supported", szAppName, MB_OK);

}

return 0;

}

case IDM_ALLOCATE_CUSTOM : if(szLine[iCurLine] != NULL)

{

MessageBox(hwnd, "Error: Free First",

szAppName, MB_OK);

return 0;

}

// Allocate from IAllocate interface szLine[iCurLine] =

(char *) pMalloc->lpVtbl->Alloc(pMalloc, 100); lstrcpy(szLine[iCurLine], "*IMalloc memory*");

219

for(i = 0; i < 10; i++)

{

if(PtInRect(&rHit[i], pt))

{

if(iCurLine != i) // Minimize screen blink

{

InvalidateRect(hwnd, &rHit[iCurLine], TRUE); InvalidateRect(hwnd, &rHit[i], TRUE); iCurLine = i;

}

break;

}

}

return 0;

hdc = BeginPaint(hwnd, &ps);

//Fetch line height GetTextMetrics(ps.hdc, &tm);

cyLineHeight = tm.tmHeight + tm.tmExternalLeading;

//Fetch current text colors

crText = GetTextColor(ps.hdc);