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

Примечание:

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

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

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

Nomadicсоветует:

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

unitChart;

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

withChartFX 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 (и, следовательно, поддерживающих методы автоматизации)?

Nomadicсоветует:

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

constMyGUID = '{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 asIDispatch;

end;

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

Nomadicотвечает:

Sockets (TCP/IP):

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

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

DCOM:

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

• требуется настройка клиентов (DCOM Configuration Utility — DCOMCNFG.EXE);

• встроенная поддержка модели безопасности Windows NT;

• поддержка обратных вызовов (методов);

CORBA

• на клиентах и серверах требуется наличие Common Object Request Broker;

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

• поддержка обратных вызовов (методов);

OLE Enterprise:

• на клиентах и серверах требуется наличие OLE Enterprise;

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

• поддержка обратных вызовов (методов);

Вот я как работаю с Excel:

type

DDEClientConv1.SetLink('Excel','Sheet1');

try

DDEClientConv1.OpenLink;

DDEClientItem1.DDEItem:= 'R1C1';

DDEClientConv1.PokeData(DDEClientItem1.DDEItem, StrPCopy(P, SomeString)));

finally

DDEClientConv1.CloseLink;

end;

Как вы можете здесь видеть, свойство DDEItem определяется сервером. Если ваш сервер является приложением Delphi, то DDEItem – имя DDEServerItem. На вашем месте я бы не стал так долго заниматься отладкой DDE-программ. Воспользуйтесь синхронизацией, позволяющей понять при отладке правильность действий.

Для управления программными группами в Program Manager с помощью DDE мною был использован следующий модуль. За основу был взят код Steve Texeira (sp) из руководства Dephi Developers Guide.