ansaurus

Question

How do I display XML using an XSLT document, in a Delphi app?

Answer 1

+4 A:

I used an MSXML library to do the XSLT transformation in Delphi. It was a long time ago. Worked like a charm!

I'm not sure what output format your XSLT will generate, but knowing that will help you figure out how to display it. We generated HTML from XML via XSLT, and displayed it using an ActiveX Web Browser (IE) control on a pane in our application.

Here's a link on MSSXML and Delphi that might help.

BTW: If this is your first time working with XSLT, you can manually edit an XML file, and add in a directive to get it to display using a specific XSLT. When you open the XML in Firefox after the edit, the XSLT will be applied, and it will show you what will be the output of your MSXML calls. Here's the line you add manually to the xml:

<?xml-stylesheet type="text/xsl" href="myStyleSheet.xsl"?>

Kieveli 2009-06-11 18:18:40

Thanks for this! When I edit the XML document as you suggest, I do get a change in appearance but it's clearly not using the information in the XSLT document properly; I'm wondering if they don't really match and so the transformation isn't working because it's not finding the entities the XSLT refers to. I'll go back to the client and ask for a bit more help. Thanks for getting me started though, really appreciate it.

robsoft 2009-06-13 07:55:26

Answer 2

+2 A:

I you need only transformations, you can use TXMLDocument,save to disk and than display the result in a TWebBrowser ( via Navigate('file:/// ) .

Personally I had some problems with MSXML so I started to use DIXML.

ErvinS 2009-06-11 19:14:15

+1 for the DIXML link, that looks really useful. I haven't explored this problem properly yet but I'm hoping I can do something simple just with e couple of standard components - so thanks for the suggestion!

robsoft 2009-06-13 07:58:01

Answer 3

+5 A:

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;

Ken Byington 2009-06-16 12:56:14

Couldn't get the code sample formatting to work. I'm using IE 8. Maybe that's the reason?

Ken Byington 2009-06-16 12:57:12

In the example above, XMLContent is the XML you will be receiving and XSLContent is the XSLT. We use this to produce HTML pages from XML document templates. But the output is whatever the XSLT generates. No third party components needed. Uses the default Delphi XML parser. (MSXML)

Ken Byington 2009-06-16 13:08:26

Thanks Ken. That's exactly what I was looking for. I'll give it a spin tonight. Cheers!

robsoft 2009-06-16 20:02:46

Hi Ken, just got round to trying this today and can't get the last main line above to compile; "There is no overloaded version of 'TransformNode' that can be called with these arguments." Everything above in your example, on D2007.Am I missing something? :-) Cheers!

robsoft 2009-06-20 12:59:12

Make the XSL argument to TransformNode XSL.DocumentElement. Sorry about the confusion.

Ken Byington 2009-06-24 19:01:28

Thanks Ken, sussed that in the end. I would have come back and confirmed this sooner, for some reason the website didn't make me aware that there had been another comment posted. Maybe I'm using it wrong! :-)

robsoft 2009-06-28 08:29:20

Just to help anyone: I used this and it needed me to call CoInitialize(nil) before calling the transform function and call CoUnInitialize(); after to free the memory. To use those functions, you need to add ActiveX and Windows to the uses clause.

Jonathan 2010-08-08 16:51:01

Answer 4

A:

You can try install the AltovaXML, it can be call as a COM+. It is free and can be download from: http://www.altova.com/altovaxml.html

MsXml can only works with xslt 1.0 but AltovaXml can work with xslt 2.0

Feng 2009-11-13 17:02:39

ansaurus

tags:

views:

answers:

How do I display XML using an XSLT document, in a Delphi app?

related questions