Главная » Delphi » Создание контроллеров автоматизации

0

В Delphi  процессы управления серверами автоматизации из  приложений макси мально  упрощены. Но,  тем не менее, при  этом  обеспечивается высокая степень гиб кости  управления —  благодаря возможности раннего (с помощью интерфейсов)  или позднего (с использованием типов dispinterface или OleVariant) связывания.

Управление внешним сервером

Проект Control представляет собой  контроллер автоматизации, с помощью кото рого  демонстрируются все три  типа  поддержки функций автоматизации (интерфейсы, диспинтерфейсы и варианты). Проект Control —  это  контроллер, предназначенный для работы с приложением сервера автоматизации Srv, создание которого описано в настоящей главе ранее. Главная форма проекта показана на рис. 15.8.

При  щелчке  на кнопке Connect приложение Control подключается к серверу, как показано ниже.

FIntf := CoAutoTest.Create;

FDispintf := CreateComObject(Class_AutoTest) as IAutoTestDisp;

FVar := CreateOleObject(‘Srv.AutoTest’);В этом  фрагменте кода представлены переменные типа interface,  dispinterface и  OleVariant,  с  помощью которых экземпляры серверов автоматизации создаются тремя различными способами. Интересно то,  что  эти  спо собы   практически  абсолютно  взаимозаменяемы.  Напри мер, следующий код также вполне  допустим:

FIntf := CreateComObject(Class_AutoTest) as

IAutoTest;

FDispintf := CreateOleObject(‘Srv.AutoTest’) as

IAutoTestDisp;

FVar := CoAutoTest.Create;

Рис. 15.9. Контроллер и сервер автоматизации

Источник: Тейксейра, Стив, Пачеко, Ксавье.   Borland Delphi 6. Руководство разработчика. : Пер.  с англ. — М. : Издательский дом “Вильямс”, 2002. —  1120 с. : ил. — Парал. тит. англ.

По теме:

  • Комментарии