Технология XSLT

Использование DOMDocument

Объектная модель XML-документа в импортированной библиотеке будет представлена интерфейсом DOMDocument. В главном модуле проекта мы объявим две переменные, которые будут соответствовать обрабатываемому документу (xmlSource) и документу преобразования (xmlStylesheet):

var
 xmlSource: DOMDocument;
 xmlStylesheet: DOMDocument;

Для того чтобы создать экземпляры объектов наших документов, мы воспользуемся классом СoDOMDocument, который был создан в модуле MSXML2_TLB при импортировании. Метод Create этого класса создаст объекты, к методам и свойствам которых мы будем обращаться посредством уже упомянутого интерфейса DOMDocument:

xmlSource := CoDOMDocument.Create;
xmlStylesheet := CoDOMDocument.Create;

Для того чтобы загрузить XML-файл, мы воспользуемся функцией load интерфейса DOMDocument:

xmlSource.load('source.xml');

При загрузке файла вполне вероятны ошибки. Например, XML-документ может не являться хорошо оформленным. Для того чтобы успешно справиться с такого рода исключительными ситуациями, мы будем использовать конструкцию try...except и отрабатывать исключение EoleException:

try
 xmlStylesheet.load('stylesheet.xsl');
 memoStylesheet.Text := xmlStylesheet.xml;
except
 on e: EOleException do
 memoStylesheet.Text := e.Message;
end;

Для выполнения самого преобразования нам будет нужно использовать функцию transformNode:

try
 memoResult.Text := xmlSource.transformNode(xmlStylesheet);
except
 on e: EOleException do
 memoResult.Text := e.Message;
end;

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

Листинг 9.1. Использование XSLT-преобразования в Delphi

unit source;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 StdCtrls, ComCtrls, MSXML2_TLB, comobj;

type
 TMain = class(TForm)
 { Компоненты формы и обработчики событий }
 private
 public
 end;

var
 xmlSource: DOMDocument;
 xmlStylesheet: DOMDocument;
 Main: TMain;

implementation

{$R *.DFM}

procedure TMain.FormCreate(Sender: Tobject);
begin
 xmlSource := CoDOMDocument.Create;
 xmlStylesheet := CoDOMDocument.Create;

 try
 xmlSource.load('source.xml');
 memoSource.Text := xmlSource.xml;
 except
 on e: EOleException do
 memoSource.Text := e.Message;
 end;
 try
 xmlStylesheet.load('stylesheet.xsl');
 memoStylesheet.Text := xmlStylesheet.xml;
 except
 on e: EOleException do
 memoStylesheet.Text := e.Message;
 end;
end;

procedure TMain.pcMainChange(Sender: TObject);
begin
 if pcMain.ActivePage = sheetResult then
 try
 memoResult.Text := xmlSource.transformNode(xmlStylesheet);
 except
 on e: EOleException do
 memoResult.Text := e.Message;
 end;
end;

{ Прочие процедуры и функции }

end.

Процесс использования нашего приложения приведен на следующих рисунках (рис. 9.4–9.6).

Рис. 9.4. Входящий документ

Рис. 9.5. Преобразование

Рис. 9.6. Выходящий документ

Выполнение XSLT-преобразований в C/C++

В качестве примера использования XSLT в языках С и С++ мы приведем очень простую программу, которая выполняет над документом source.xml преобразование stylesheet.xsl и выводит результат в файл document.out. На этот раз в качестве процессора мы будем использовать Xalan-C++, а в качестве среды разработки — Microsoft Visual С++.

Настройка путей

Для того чтобы использовать библиотеки Xalan в своем проекте, прежде всего, необходимо включить в исходный код файлы заголовков:

#include "util/PlatformUtils.hpp"
#include "XalanTransformer/XalanTransformer.hpp"

Файл PlatformUtils.hpp относится к библиотеке Xerces-C++, который используется в Xalan в качестве парсера XML-документов. Файл заголовка XalanTransformer.hpp относится к классу XalanTransformer, который мы и будем использовать для преобразования нашего документа.

Заголовочные файлы Xalan и Xerces могут быть найдены в поставке Xalan в каталогах xml-xalan\c\src и xml-xerces\c\src соответственно. Для того чтобы они могли быть обнаружены компилятором, эти пути следует явным образом прописать в настройках среды (меню Tools/Options), как показано на рис. 9.7.

Рис. 9.7. Настройка путей Xalan в MSVC

Для того чтобы скомпилированный объектный код мог быть скомпонован, в проекте также должны быть указаны пути к библиотечным файлам Xalan (рис. 9.8).