Logo Море(!) аналитической информации!
IT-консалтинг Software Engineering Программирование СУБД Безопасность Internet Сети Операционные системы Hardware
VPS/VDS серверы. 30 локаций на выбор

Серверы VPS/VDS с большим диском

Хорошие условия для реселлеров

4VPS.SU - VPS в 17-ти странах

2Gbit/s безлимит

Современное железо!

Бесплатный конструктор сайтов и Landing Page

Хостинг с DDoS защитой от 2.5$ + Бесплатный SSL и Домен

SSD VPS в Нидерландах под различные задачи от 2.6$

✅ Дешевый VPS-хостинг на AMD EPYC: 1vCore, 3GB DDR4, 15GB NVMe всего за €3,50!

🔥 Anti-DDoS защита 12 Тбит/с!

2004 г.

Поддержка MS-макросов в DELPHI

Михаил Продан,
Издательский Дом "КОМИЗДАТ"

Многие из вас наверняка пробовали свои силы в написании макросов в Word, Excel, Access и других продуктах Microsoft. И немало программистов завидовало Word'у и мечтало встроить поддержку макрокоманд и в свои приложения

С чего начать

Конечно, выбор, как всегда, есть.

Самый трудный путь - это написание собственного интерпретатора макрокоманд. Естественно, возиться с написанием собственных разборщиков синтаксиса, исполнителей команд и т.д., не каждый захочет - вот если бы найти такой компонент, который принимал бы исходный текст макроса и выводил результат. К счастью несчастных программистов и здесь на помощь пришла всеми любимая Microsoft, разработавшая Windows Script Control - компонент, который соответствует практически всем требованиям, выдвигаемым к поддержке макросов в ваших программах.

Итак, для начала нам понадобится сам компонент Windows Script Control, который можно загрузить с сайта разработчика (название архива - sct10en.exe). Распаковав его, мы увидим собственно компонент msscript.ocx и дополнительные файлы справки.

Теперь смело можно браться за разработку поддержки макросов в вашем приложении.

Пример 1

К этому времени вы уже запустили среду разработки (которая, естественно, должна поддерживать работу с ActiveX, к примеру, Delphi) и создали новое приложение (New > Application).

Теперь нужно импортировать данные из библиотеки msscript.ocx в наш проект. Для этого воспользуемся пунктом меню Project > Import Type Library - и для достоверности выберем нашу библиотеку, щелкнув на кнопке Add…(рис. 1). После чего выберем файл msscript.ocx.

Импортировав библиотеку, мы обнаружим в составе нашего проекта файл MSScriptControl_TLB.pas, в котором содержатся все необходимые определения интерфейсов и констант. Теперь в главной форме нашего приложения, в реакции кнопки (которую мы уже разместили на форме), напишем следующий код:

procedure TForm1.Button2Click 
(Sender: TObject);
var SC:TScriptControl;
Code:WideString;
begin
SC:=TScriptControl.Create (Self);
SC.Language:='VBScript';
try
Code:='Function DoSmth () '#13#10+
'DoSmth = "This is the Simple Test"'#13#10+
'End Function';
SC.AddCode (Code);
SC.ExecuteStatement 
('MsgBox "Testing:"+DoSmth ()');
finally
SC.Free;
end;
end;

После выполнения этого кода увидим на экране сообщение системы (Testing:This is the Simple Test).

Теперь рассмотрим приведенный выше код более подробно. Сначала создаем объект TScriptControl, который, собственно, и проделывает за нас всю грязную работу. Далее присваиваем свойству Language значение "VBScript", уведомляя тем самым компонент о том, что переданный ему код будет написан на Visual Basic. Помимо VBScript: тут возможны и другие значения: можно, например, воспользоваться Jscript - при этом будет использован синтаксис JavaScript или же синтаксис любого другого интерпретатора, поддерживающего технологию ActiveX-скриптов (Visual Basic, Java, ActivePython, ActivePerl и т.п).

В следующих строчках пишем исходный код функции DoSmth, которая возвращает нам вторую часть предложения. Далее записываем этот код в компонент - а в следующей строчке исполняем его, передавая возвращаемое им значение в функцию MsgBox. Все это пишется с использованием синтаксиса Visual Basic. Функции AddCode и ExecuteStatement имеют следующий вид:

procedure AddCode 
 (const Code: WideString); safecall; 

Где Code - код процедуры, функции (или любого их сочетания в любом количестве), который записывается в компонент и после этого может быть вызван с помощью ExecuteStatement или Run:

procedure ExecuteStatement 
  (const Statement: WideString); safecall; 

Где Statement - текст программы, который будет сразу же исполнен.

Пример 2

Осуществлять вывод сообщений при помощи макроязыка мы уже научились, однако это не единственная возможность компонента. Так, компонент TScriptControl представляет нам возможность использования собственной объектной модели в создаваемых макросах - то есть доступ к специфическим объектам нашего приложения. Для этого в нашем приложении потребуется сначала создать объект автоматизации Automation Object (пользователи Microsoft Visual Basic могут пропустить этот раздел, так как в Visual Basic поддержка объектов автоматизации встроена изначально). Чтобы создать этот объект, при открытом приложении щелкнем на пункте меню Новый и выберем закладку ActiveX. Здесь выберем пункт Automation Object.

Далее предстоит создать интерфейс, который мы собираемся включить в объектную модель ScriptControl. Для начала просто создадим объект с единственной функцией print, которая будет выводить в компонент TlistBox, размещенный на главной форме, некоторый текст. Все существенные настройки показаны на рис. 2.

Далее обновляем информацию об объекте, щелкнув для этого на соответствующей кнопке (рис. 2), и переходим к секции реализации объекта.

Здесь уже нас поджидает созданный средой разработки шаблон, в который остается внести только некоторые исправления:

unit SimpleTest;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
ComObj, ActiveX, ScriptTest_TLB, StdVcl;

type
TSimpleTest = class 
(TAutoObject, ISimpleTest)
protected
procedure Print 
(Data: OleVariant); safecall;
{Protected declarations}
end;

implementation

uses ComServ,Main;

procedure TSimpleTest.Print 
(Data: OleVariant);
begin
Main.Form1.ListBox1.Items.Add (Data);
end;

initialization
TAutoObjectFactory.Create 
(ComServer, TSimpleTest,
Class_SimpleTest, ciMultiInstance, tmApartment);
end.

Осталось один раз прогнать наше приложение вхолостую - для регистрации и проверки на наличие ошибок. Если все прошло удачно, можно приступать к дальнейшему написанию макросов.

Регистрация объекта

Как и в прошлый раз, создадим на нашей главной форме кнопку и объект ListBox1. Затем в реакцию кнопки на нажатие напишем следующий код:

procedure TForm1.Button1Click 
(Sender: TObject);
var SC:TScriptControl;
Test:ISimpleTest;
begin
SC:=TScriptControl.Create (Self);
Test:=CoSimpleTest.Create;
try
SC.Language:='VBScript';
SC.AddObject ('PrintTest',Test,True);
SC.ExecuteStatement 
('PrintTest.Print "This is the Test"');
finally
Test:=nil;
SC.Free;
end;
end;

Опять же, как и в прошлый раз, сначала создаем компонент ScriptControl, затем инициализируем интерфейс ISimpleText и добавляем его в нашу объектную модель посредством функции:

procedure AddObject (const Name: WideString;
  const Object_: IDispatch; AddMembers: WordBool);
    safecall;

Где:

  • Name - название нашего компонента во внутреннем пространстве имен.
  • Object - ссылка на наш объект.
  • AddMembers - опциональный параметр, который устанавливается в True, если все члены класса Object должны быть доступны глобально, и False - в противном случае.

Следующая строка кода демонстрирует использование объекта Test при написании макроса. Как видно, в тексте макроса мы пользуемся названием, определенным при помощи параметра Name функции AddObject. Результат - на рис. 3.

Послесловие

Встроенный макроязык - это то средство, которое может превратить вашу программу в мощный и универсальный продукт. Но имейте в виду, что показанная техника - только вершина айсберга, в составе библиотеки имеется еще много компонент (IScriptError, IScriptModule, IScriptModuleCollection, IScriptProcedure, IScriptProcedureCollection), которые позволяют всесторонне и тонко управлять интерпретатором.

Некоторые методы и свойства компонента ScriptControl
Член класа Описание
AddCode Запись в компонент исходных текстов процедур и функций для последующего их выполнения
AddObject Добавление объекта к внутренней объектной модели макросов
Eval Выполнение вычисления и возврат результата. То же что и if в нормальных языках программирования
ExecuteStatement Немедленное выполнение представленного кода
Reset Восстановление первоначального состояния интерпретатора. Очистка от всех предыдущих исходных кодов
Run Выполнение предопределенной при помощи AddCode процедуры или функции с заданными параметрами
OnError Событие, возникающее при ошибке времени выполнения
OnTimeOut Событие, возникающее при таймауте
VPS в 21 локации

От 104 рублей в месяц

Безлимитный трафик. Защита от ДДоС.

🔥 VPS до 5.7 ГГц под любые задачи с AntiDDoS в 7 локациях

💸 Гифткод CITFORUM (250р на баланс) и попробуйте уже сейчас!

🛒 Скидка 15% на первый платеж (в течение 24ч)

Скидка до 20% на услуги дата-центра. Аренда серверной стойки. Colocation от 1U!

Миграция в облако #SotelCloud. Виртуальный сервер в облаке. Выбрать конфигурацию на сайте!

Виртуальная АТС для вашего бизнеса. Приветственные бонусы для новых клиентов!

Виртуальные VPS серверы в РФ и ЕС

Dedicated серверы в РФ и ЕС

По промокоду CITFORUM скидка 30% на заказ VPS\VDS

Новости мира IT:

Архив новостей

IT-консалтинг Software Engineering Программирование СУБД Безопасность Internet Сети Операционные системы Hardware

Информация для рекламодателей PR-акции, размещение рекламы — adv@citforum.ru,
тел. +7 495 7861149
Пресс-релизы — pr@citforum.ru
Обратная связь
Информация для авторов
Rambler's Top100 TopList liveinternet.ru: показано число просмотров за 24 часа, посетителей за 24 часа и за сегодня This Web server launched on February 24, 1997
Copyright © 1997-2000 CIT, © 2001-2019 CIT Forum
Внимание! Любой из материалов, опубликованных на этом сервере, не может быть воспроизведен в какой бы то ни было форме и какими бы то ни было средствами без письменного разрешения владельцев авторских прав. Подробнее...