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

Дорогие коллеги, данной статьей я хочу показать вам основные принципы работы с 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
Category:COM