Советы по Delphi. Версия 1.4.3 от 1.1.2001

Озеров Валентин

2. В предыдущем шаге при добавлении интерфейса с помошью редактора библиотеки типов вы должны были получить паскалевский модуль-обертку (в нашем примере модуль имеет имя Unit1). Unit1 будет содержать обертку реализаций методов получения и назначения свойства MyFont. На данном этапе вы обеспечите хранение значений свойства MyFont в форме FFont (TFont) и добавите код реализации, наполняющий функциональностью методы получения и установки (get/set).

Unit1 использует Unit2. Unit2 содержит форму, компонент Memo и StatusBar для отображения каждого реализованного метода, для диагностических целей.

3. Создайте Unit2,

содержащий форму с компонентами TMemo и TStatusBar. Форма используется для отображения жизнедеятельности в модуле Unit1.pas. Это шаг не является строго обязательным, он помогает понять что происходит в данный момент между клиентом автоматизации и сервером.

4. Создайте клиент автоматизации. В нашем случае модуль имеет имя FontCli, содержит метку, показывающую текущий шрифт и кнопку, устанавливающую MyFont на сервере. 

unit Project1_TLB;

{ Данный файл содержит паскалевские декларации, импортированные из библиотеки типов. Данный файл записывается во время каждого импорта или обновления (refresh) в редакторе библиотеки типов. Любые изменения в данном файле будут потеряны в процессе очередного обновления. }

{ Библиотека Project1 }

{ Версия 1.0 }

interface

uses Windows, ActiveX, Classes, Graphics, OleCtrls, StdVCL;

const LIBID_Project1: TGUID = '{29C7AC94-0807-11D1-B2BA-0020AFF2F575}';

const

 { GUID'ы класса компоненты }

 Class_MyFontServer: TGUID = '{29C7AC96-0807-11D1-B2BA-0020AFF2F575}';

type

 { Предварительные объявления: Интерфейсы }

 IMyFontServer = interface;

 IMyFontServerDisp = dispinterface;

 { Предварительные объявления: CoClasse'ы }

 MyFontServer = IMyFontServer;

 { Диспинтерфейс для объекта MyFontServer }

 IMyFontServer = interface(IDispatch)['{29C7AC95-0807-11D1-B2BA-0020AFF2F575}']

function Get_MyFont: IFontDisp; safecall;

procedure Set_MyFont(const Value: IFontDisp); safecall;

property MyFont: IFontDisp read Get_MyFont write Set_MyFont;

 end;

 {

Объявление диспинтерфейса для дуального интерфейса IMyFontServer }

 IMyFontServerDisp = dispinterface['{29C7AC95-0807-11D1-B2BA-0020AFF2F575}']

property MyFont: IFontDisp dispid 1;

 end;

 { MyFontServerObject }

 CoMyFontServer = class

class function Create: IMyFontServer;

class function CreateRemote(const MachineName: string): IMyFontServer;

 end;

implementation

uses ComObj;

class function CoMyFontServer.Create: IMyFontServer;

begin

 Result := CreateComObject(Class_MyFontServer) as IMyFontServer;

end;

class function CoMyFontServer.CreateRemote(const MachineName: string): IMyFontServer;

begin

 Result := CreateRemoteComObject(MachineName, Class_MyFontServer) as IMyFontServer;

end;

end.

{--------------------------------------------------------------------}

unit Unit1;

interface

uses ComObj, Project1_TLB, ActiveX, Graphics;

type TMyFontServer = class(TAutoObject, IMyFontServer)

private

 FFont: TFont;

public

 procedure Initialize; override;

 destructor Destroy; override;

 function Get_MyFont: IFontDisp; safecall;

 procedure Set_MyFont(const Value: IFontDisp); safecall;