Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001 Страница 100

 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;

end;

implementation

uses ComServ, AxCtrls, Unit2;

procedure TMyFontServer.Initialize;

begin

 inherited Initialize;

 FFont := TFont.Create;

end;

destructor TMyFontServer.Destroy;

begin

 FFont.Free;

 inherited Destroy;

end;

function TMyFontServer.Get_MyFont: IFontDisp;

begin

 FFont.Assign(Form2.Label1.Font);

 GetOleFont(FFont, Result);

end;

procedure TMyFontServer.Set_MyFont(const Value: IFontDisp);

begin

 SetOleFont(FFont, Value);

 Form2.Label1.Font.Assign(FFont);

end;

initialization

 TAutoObjectFactory.Create(ComServer, TMyFontServer, Class_MyFontServer, ciMultiInstance);

end.

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

unit Unit2;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type TForm2 = class(TForm)

 Label1: TLabel;

end;

var Form2: TForm2;

implementation

{$R *.DFM}

end.

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

unit FontCli1;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, StdVCL, Project1_TLB;

type TForm1 = class(TForm)

 Button1: TButton;

 Label1: TLabel;

 FontDialog1: TFontDialog;

 procedure Button1Click(Sender: TObject);

 procedure FormCreate(Sender: TObject);

public

 MyFontServer: IMyFontServer;

end;

var Form1: TForm1;

implementation

uses ActiveX, AxCtrls;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

var Temp: IFontDisp;

begin

 if (FontDialog1.Execute) then begin

  Label1.Font.Assign(FontDialog1.Font);

  GetOleFont(Label1.Font, Temp);

  MyFontServer.Set_MyFont(Temp);

 end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

 MyFontServer := CoMyFontServer.Create;

end;

end.

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

Так для чего нам Unit1, создающий реализацию интерфейса? Интерфейс Ole, такой как, например, IFontDisp, может считаться соглашением о том, что свойства и функции будут определены в заданном формате, а функции будут реализованы как определено (для получения дополнительной информации смотри Руководство Разработчика, главу 36, «An Overview of COM» (Обзор COM). Тот факт, что интерфейс определен, не означает, что он реализован. Например, чтобы заставить определенный вами интерфейс IFontDisp быть полезным, необходимо обеспечить хранение шрифта и механизм добавления и извлечения информации об атрибутах шрифта, таких, как имя шрифта, наклонное начертание, размер и пр.

Примечание:

GetOleFont и SetOleFont определены в AxCtrls.pas. IFontDisp определен в ActiveX.pas 

Использование CHARTFX.VBX

Delphi 1 

Хотя это можно было бы пообсуждать и здесь, но для ChartFX существует контекстно-зависимая подсказка. Киньте компонент на форму, выберите его и нажмите F1. 

VBX в приложениях DELPHI: как распространять?

Delphi 1 

Чтобы использовать любые элементы управления VBX с компилированным Delphi EXE-файлом, вам необходимо распространить BIVBX11.DLL (расположен в каталоге \WINDOWS\SYSTEM – Borland при установке копирует его туда).

Расскажите, как использовать ChartFX?

Nomadic советует:

Лyчше на простеньком примере.

unit Chart;

 .......................

 with ChartFX do begin

  Visible := false;

  { Устанавливаем режим ввода значений }

  { 1 – количество серий (в нашем случае 1), 3 – количество значений }

  OpenData[COD_VALUES] := MakeLong(1,3);

  { Hомер текущей серии }

  ThisSerie := 0;

  { Value[i] – значение с индексом i }

  { Legend[i] – комментарий к этому значению }

  Value[0] := a;

  Legend[0] := 'Значение переменной A';

  Value[1] := b;

  Legend[1] := 'Значение переменной B';

  Value[2] := c;

  Legend[2] := 'Значение переменной C';

  { Закрываем режим }

  CloseData[COD_VALUES] := 0;

  { Ширина поля с комментариями на экране (в пикселах) }

  LegendWidth := 150;

  Visible := true;

 end;

end;

end. 

Как осуществить минимальный тест на корректность глобального идентификатора (GUID), и интерфейсов, унаследованных от IDispatch?

Как осуществить минимальный тест на корректность глобального идентификатора (GUID), и интерфейсов, унаследованных от IDispatch (и, следовательно, поддерживающих методы автоматизации)?

Nomadic советует:

Вызовите CreateRemoteComObject, передав GUID интерфейса и имя компьютера, к которому Вы пытаетесь подключиться. Если функция вернет ошибку, то наличествует проблема сервера, иначе возможная проблема относится к клиенту.

const MyGUID = '{444…111}'; //Whatever the guid is…

var

 Unk: IUnknown;

 Disp: IDispatch;

begin

 { Make sure this line works correctly }

 Unk := CreateRemoteComObject('server1', StringToGUID(MyGUID));

 { If it does, then cast it to a IDispatch }

 Disp := Unk as IDispatch;

end;

Если этот кусок кода работает, а проблема остается, то Вам требуется шаг за шагом пройти через код клиента и найти, где он дает трещину. Если не сможете этого обнаружить, Вам придется запустить сервер под отладчиком и установить связь с клиентом, чтобы Вы могли произвести отладку рядом со местом, дающем слабину. 

DCOM 

В чем разница между сокетами, DCOM и OLE Enterprise при использовании их в качестве транспорта?

Nomadic отвечает:

Sockets (TCP/IP):

• на клиентах и сервере требуется наличие стека TCP/IP;

• не требуется дополнительной настройки клиентов;

DCOM:

• на клиентах и серверах требуется наличие DCOM (входит в состав Windows NT 4.0, для Windows 95 доступен как опция)