2.10. Події в сом і зворотні виклики на основі інтерфейсів диспетчирування

Під зворотнім викликом розуміється методика викликання сервером методів, реалізованих у клієнтському застосунку. З погляду клієнта методи зворотнього виклику оформлюються як процедури обробки подій спеціальних об’єктів. З погляду сервера виклик цих методів розглядається як засіб генерування відповідних подій для клієнта.

Для реалізації механізму зворотного виклику від сервера до застосунка-клієнта можна використовувати як звичайні інтерфейси, так і інтерфейси диспетчирування. Обидва варіанти мають свої переваги і недоліки. У Delphi краще організована підтримка варіанта з інтерфейсами диспетчирування. Крім того, якщо бажано, щоб розроблена програма була сумісна з Visual Basic, також треба використовувати інтерфейси диспетчирування. Звичайні інтерфейси дозволяють домогтися більш високої швидкості, але цей варіант не сумісний з застосунками, розробленими в середовищі Visual Basic, та й ручної роботи при створенні програми буде потрібно набагато більше. У подальших розділах ми детально обговоримо кожний з варіантів.

Середовище Delphi забезпечує автоматичну підтримку обробки подій через інтерфейси диспетчирування, тому розглянемо спочатку саме цей варіант.

2.10.1. Створення сервера автоматизації

Для демонстрації методики розроблення СОМ-застосунків з обробкою подій створимо сервер автоматизації, що дозволяє множині клієнтів пересилати текст в обидва напрямки: від клієнта до сервера і від сервера до клієнта, тобто підтримує діалог.

Середовище Delphi здатне автоматично реалізувати створення сервера автоматизації, для підтримки обробки подій на базі інтерфейсів диспетчерування. Для створення потрібного нам сервера необхідно виконати вказані далі кроки.

1. Створення проекту з СОМ-об’єктом

Створіть новий проект (application) у Delphi, а потім запустіть конструктор формування об'єктів автоматизації Automation Object Wizard. Це можна зробити, вибравши на вкладці ActiveХ елемент Automation Object. У вікні конструктора Automation Object Wizard наводиться інформація, необхідна для підтримки обробки подій:

Class Name - ім'я класу (у цьому прикладі EventIntf),

Instansing – cпосіб створення об’єкту,

Threading Model – режим обробки потоків,

Generate Evet Support Code – прапор генерування коду для підтримки обробки подій – саме він має бути обов'язково включений.

Зверніть увагу, що цього разу Delphi створить два інтерфейси, а саме: один для СОМ-об’єкту (IEventIntf), а інший для подій (IEventIntfEvents), що будуть генеруватися цим об'єктом.

2. Формування інтерфейсів

Додайте в інтерфейс IEventIntf метод SendText, що повинен мати параметр Text типу WideString. Потім додайте в інтерфейс диспетчерування TEventIntfEvents метод-подію OnText. Додайте й до неї параметр Text типу WideString. На цій стадії програмний код сервера буде виглядати так, як подано в лістингу, який наведено нижче.

//Застосунок EventSrv, файл EventIntf.pas

unit EventIntf;

interface

uses ComObj, ActiveX, AxCtrls, EventSrv_TLB.pas;

type

TEventIntf=class(TAutoObject,IConnectionPointContainer, IEventIntf)

private

FConnectionPoints: TConnectionPoints;

FEvents: IEventIntfEvents;

procedure Initialize; override;

protected

property ConnectionPoints: TConnectionPoints read FConnectionPoints implements IConnectionPointContainer;

procedure EventSinkChanged( const EventSink: IUnknown); override;

procedure SendText (const Text: WideString); safecall;

end;

implementation

uses ComServ;

procedure TEventIntf.EventSinkChanged(const EventSink:IUnknown);

begin

FEvents:= EventSink as IEventIntfEvents;

end;

procedure TEventIntf.Initialize ;

begin

inherited Initialize;

FConnectionPoints : = TConnectionPoints.Create(Self);

if AutoFactory.EventTypeInfo <> nil then

FConnectionPoints.CreateConnectionPoint(AutoFactory.EventIID, ckSingle, EventConnect);

end;

procedure TEventIntf.SendText (const Text: WideString);

begin

end;

initialization

TAutoObjectFactory.Create(ComServer,TEventIntf, Class_EventIntf, ciMultiInstance, tmApartment);

end.