Для того чтобы воспользоваться услугами COM-сервера, клиентскому приложению необходима информация об интерфейсной части сервера, которую мы сохранили в каталоге COM-сервера в библиотеке типов - файле ComServer.tlb. В Delphi предусмотрены несколько способов импорта, простейший из которых - импорт с помощью диалога Import Type Library (рис. 24.9):

1. Выберите пункт главного меню Project - Import Type Library.

2. Снимите «галочку» с элемента управления Generate Component Wrapper. Тем самым вы информируете Delphi, что не собираетесь генерировать компонент VCL.

3. В диалоговом окне импорта нажмите кнопку Add.

4. В диалоге выбора файла найдите импортируемую библиотеку comsrv.tlb (или exe-файл нашего COM-сервера) и нажмите OK.

5. Вновь появится диалог Import Type Library, но на этот раз в списке доступных библиотек мы увидим и наш модуль comsrv. Выделите этот модуль инажмите кнопку Create Unit.

В результате к клиентскому приложению будет подключен уже знакомый нам по COM-серверу интерфейсный модуль ComServerTLB.

Обращение к COM-объекту

Обращение к методу Sum() из клиентского приложения выглядит следующим образом:

var Res : OleVariant; I : IMyComObject;

begin try

I:=CoMyComObject.Create; //создаем объект и получаем его интерфейс I.Sum(Value1,Value2,Res); //обращаемся к методу Sum интерфейса

/Л except

on EIntfCastError do Showmessage('Интерфейс не поддерживается'); end;

end;

Для работы со свойством MyProperty в интерфейсе предусмотрено два метода:

Set_MyProperty() и Get_MyProperty().

var i:IMyCOMObject; Value:integer;

begin

i:=CoMyCOMObject.Create;

i.Set_MyProperty(1); //присвоим свойству значение

i.Get_MyProperty(value); //читаем данные из свойства ShowMessage(IntToStr(value)); end;

На основе модели COM построен широкий спектр современных технологий корпорации Microsoft: OLE, программные компоненты ActiveX, DCOM, COM+, расширения DirectX, OLE-automation, OLE DB, ADO. Технология автоматизации и компонент OLE-контейнер будут изучены в последующих главах.