如何在 Delphi 应用程序中使用 XSLT 文档显示 XML? [英] How do I display XML using an XSLT document, in a Delphi app?

问题描述

我得到了一个示例 XML 文件(最终我的客户每天都会收到几个这样的文件)和一个 XSLT 文件，该文件显然会将 XML 转换为具有有意义布局的内容，适合在浏览器中显示或打印.

I've been given a sample XML file (ultimately my client will receive several of these each day), and an XSLT file which will apparently transform the XML into something with a meaningful layout, suitable for displaying in a browser or printing.

我想在现有的旧版 Delphi 应用程序中添加一些内容，以便用户可以从驱动器中选择一个 XML 文件并显示"它(在 TWebBrowser 或类似工具中).

I'd like to put something into an existing legacy Delphi app, such that the user can pick one of the XML files from the drive and 'display' it (in a TWebBrowser or similar).

我不知道从哪里开始，谷歌搜索 delphi、xml 和 xslt 为我提供了似乎基于数据模块/数据库的示例；我只想将给定的 XML 文件转换为屏幕上的内容.看起来它可能涉及 PageProducer，但我无法完全理解我需要做什么.任何人都可以提供任何指示，或者快速教程的链接?

I have no idea where to start, and Googling delp xml and xslt gets me examples that seem to be datamodule/database based; I just want to transform a given XML file into something on-screen. It looks like it might involve a PageProducer but I can't quite get my head around what I need to do. Anyone offer any pointers, or maybe a link to a quick tutorial?

非常感谢！

推荐答案

Uses
  XMLDoc, XMLIntf;

function Transform(XMLContent : string; XSLContent : string) : WideString;
var
  XML : IXMLDocument;
  XSL : IXMLDocument;
begin

  XML := LoadXMLData(XMLContent);
  XSL := LoadXMLData(XSLContent);

  XML.DocumentElement.TransformNode(XSL.DocumentElement, Result)

end;

这篇关于如何在 Delphi 应用程序中使用 XSLT 文档显示 XML?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！