Алексей Валиков - Технология XSLT

Приблизительный внешний вид формы показан на рис. 9.3.

Рис. 9.3. Внешний вид формы проекта

Объектная модель 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;

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

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 в языках С и С++ мы приведем очень простую программу, которая выполняет над документом 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, который мы и будем использовать для преобразования нашего документа.