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

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;