Просто и ясно о PageMaker и Delphi

Материал из DRKB


Дорогие коллеги, данной статьей я хочу показать вам основные принципы работы с Adobe Pagemaker из Delphi.

Adobe Pagemaker - довольно распространенный в нашей стране пакет издательской верстки, в основном он применяется в газетах и журналах для подготовки материала к отпечатке в типографию. Данный пакет имеет в свое роде некоторые преимущества перед например Microsoft Word - ом при подготовке журнальных полос или верстке книг. На примере компонента TKDPageMaker я хочу показать вам возможность управления данной программой из Delphi.

Возможная область применения данного пакета - по работе мне приходилось создавать отчеты в виде брошюр

В документации поставляемой фирмой Adobe к данному пакету написано что PageMaker поддерживает динамический обмен данными (DDE) с любыми приложениями.

В данном компоненте реализована 3 основных метода , это -

property PathPageMaker: String Read FPathPageMaker Write SetPathPageMaker;

метод служащий для указания пути к исполняемому файлу Pagemaker, используется для того что-бы TDDEClientConv запустил данное приложение в виде DDE сервера


property Enable: Boolean Read FEnable Write SetEnable;

метод используется для запуска Adobe PageMaker , т.е фактически для установки DDE соединения


property UnitMeasurement: TUnitMeasurement Read FunitMeasurement Write SetUnitMeasurement;

метод определяет единицы измерения которыми будет оперировать PageMaker при передаче команд. Например команда PageMaker Script Language PageSize позволяет установить размер страницы как в миллиметрах так и в дюймах - что бы не заботится об установки единиц измерения в командах и создан этот метод позволяющий гибко реализовать задание размеров в той форме в какой установил программист.


Реализация передач команд серверу[править | править код]

Для этого в компоненте в разделе реализована функция

procedure ExecuteMacroPM(Str: string); // Выполнить макрос

Которая в свою очередь вызывает метод TDDEClientConv.

К сожалению разработчики немного запутали передачу логических данных в процедуры и функции Script Language и в разные функциях булевые значения могут передаваться в виде '0' -логического "НЕТ" , так и в виде строкового ".F." , "OFF" или "False"

В общем для обработки преобразования реализовано несколько функций

// вернуть строковый On Off
function ReturnOnOffStr(Value: Boolean): string;

// вернуть строковый .T..F.
function ReturnTrueFalseStr(Value: Boolean): string;

// вернуть строковый 0 , 1
function Return0_1Str(Value: Boolean): string;

// более подробно смотрите в компоненте…


Реализация приема данных из DDE сервера[править | править код]

Запрос данных с сервера в компоненте к сожалению не реализован функцией т.к. компонент в свое время был написан за два часа в очень скоростном режиме, если вы обратите внимание на некоторые функции то запрос данных с DDE сервера в них реализован примерно так

var
  PCharReply: array[0..1023] of Char;
begin
  PCharReply := DDE.RequestData('GetPMState');


В основе вызывается стандартная функция RequestData TDDEClientConv. Для более подробной информации обратитесь в справку по TDDEClientConv.


Обработка поступивших данных[править | править код]

Данные, поступившие от DDE сервера представляют собой строку параметров заключенную в апострофы где передаваемые данные разделены запятыми. Число параметров может колебаться в произвольной степени в зависимости от функции Script Language.

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

// получить параметр вернутый PM по порядковому значению
function EncodeParams(Value: PChar; NN: Integer): string;

возвращающая параметр в виде строки, причем NN - является номером параметра в переданном списке (причем для чтения самого первого параметра нужно указать NN равным 0)


Команды и функции Script Language[править | править код]

Основные команды и функции в компоненте реализованы с префиксом "PM_"

Например:

// Установить текущую страницу публикации
procedure PM_Page(const nPages: Integer); virtual;

// Получить текущую страницу в публикации
function PM_GetPageNumber: TPageNumber; virtual;

// Получить количество страниц
function PM_GetPages: Integer; virtual;


В компоненте я постарался сохранить синтаксис команд Script Language т.е команде Page Script Language соответствует PM_Page компонента. Да и еще более детальную информацию по Script Language можно прочитать в Slguide.hlp. Это позволит вам написать функции и процедуры не реализованные в этом компоненте, а может и создать свой.

Вот в принципе то и все. Удачи вам.

P.S. Хочу напоследок заметить что данный компонент не претендует на завершенность и полную функциональность , многое в нем реализовано не очень хорошо , но учитывая что он был создан для обкатки в короткие сроки то для основ работы он подойдет. Так что критика приниматься не будет.

http://delphi.mtu-net.ru/zip/pagemaker.zip


Author: Дмитрий Кузан
Source: http://www.delphikingdom.com
ID: 04488