Пример использования позднего связывания

Использование позднего связывания для доступа к объекту автоматизации

Методы взаимодействия с сервером автоматизации

Современным способом взаимодействия между различными приложениями является использование технологии OLE Automation. Работа с сервером автоматизации мало отличается от работы с обычным объектом Delphi. Различают два метода доступа к серверу автоматизации: позднее связывание и раннее связывание. Остановимся на назначении и функционировании каждого из них более подробно.

При использовании позднего связывания компилятору Delphi не требуется никакой информации об используемом объекте. Этот факт следует отнести к недостаткам позднего связывания, так как компилятор не может проверить синтаксис кода, используемого для доступа к серверу автоматизации.

Для получения доступа к серверу автоматизации используется функция Delphi CreateOleObject:

function CreateOleObject(const ClassName: string): IDispatch:

С помощью параметра ClassName передается строковый идентификатор программы, связанный с объектом автоматизации. Функция CreateOleObject возвращает указатель на интерфейс IDispatch, который используется для связи с объектом автоматизации.

Функция CreateOleObject находится в модуле ComObj, поэтому при ее использовании необходимо включить данный модуль в раздел uses.

Переменная, которая будет являться указателем на интерфейс (то есть которой присваивается значение, возвращаемое функцией CreateOleObject), должна иметь тип OleVariant, специально предназначенный для работы с объектами автоматизации.

После получения ссылки на объект автоматизации можно вызывать любые методы данного объекта.

Рассмотрим простой пример передачи текста в MS Word с использованием функции CreateOleObject. Создайте в Delphi новое приложение, разместите на форме кнопку и задайте для нее следующий метод-обработчик события OnClick:

procedure TForml.ButtonlClick(Sender: TObject);

var w: OleVariant:

begin

W:=Create01e0bject('Word.Basic');

W.AppShow;

W.FileNew;

W.Insert('Пример создания нового документа'+#13);

W.Insert('и передачи в него текста'+#13);

end;

Если теперь откомпилировать и запустить приложение, то после нажатия на кнопку, с которой связан приведенный выше обработчик события, откроется редактор MS Word, в нем будет создан новый документ, в который будут добавлены две строки, указанные в качестве параметра метода Insert.

В первой строке мы вызвали функцию CreateOleObject и получили указатель на интерфейс объекта автоматизации Basic сервера автоматизации Word. После этого мы имеем возможность обращаться к методам и свойствам сервера Word, поддерживаемых интерфейсом объекта Basic так же, как и к методам обычных объектов Delphi. При вызове функции CreatedeObject производится запуск приложения MS Word. Однако окно редактора не будет отображаться на экране компьютера. Чтобы пользователь мог увидеть его, вызывается метод AppShow. Следующие строки содержат команды создания нового документа (вызывается метод FiIeNew) и команды вставки строк текста в документ (метод Insert).

Компилятор Delphi ничего не «знает» о методах и свойствах объекта Word, и если попытаться вызвать несуществующий метод, программа все равно будет откомпилирована. Ошибка проявится только во время выполнения программы. Это является очень серьезным недостатком позднего связывания, так как не позволяет выявлять ошибки в вызовах методов объекта автоматизации на стадии компиляции.

В рассмотренном примере мы использовали интерфейс, управляющий приложением MS Word с использованием команд языка WordBasic, который использовался для написания макросов в старых версиях Word (до 6-й версии включительно). Сейчас макросы Word и других приложений MS Office пишутся на языке Visual Basic for Application (VBA) — разновидности языка Visual Basic. Однако сохранилась поддержка и языка WordBasic.

Дата добавления: 2014-01-11