LibXML2 und LibXSLT Einsetzen

[fs999]

Hallo,

Vielleicht kann das hier dir auch helfen. Ich benutze MsXml2 mit strings als input und output :

Delphi-Quellcode:

uses MSXML2_TLB;

function Transform(Xml, Xsl: String): String;
var
  XMLDoc : IXMLDOMDocument;
  XSLDoc : IXMLDOMDocument;
  Template : IXSLTemplate;
  Processor : IXSLProcessor;
begin
  Result := '';
  try
    XMLDoc := CoFreeThreadedDOMDocument60.Create;
    XSLDoc := CoFreeThreadedDOMDocument60.Create;
    XMLDoc.LoadXML(Xml);
    XSLDoc.LoadXML(Xsl);
    Template := CoXSLTemplate60.Create;
    Template.StyleSheet := XSLDoc;
    Processor := Template.CreateProcessor;
    Processor.Input := XMLDoc;
    Processor.Transform;
    Result := Processor.Output;
  finally
    XMLDoc := nil;
    XSLDoc := nil;
    Template := nil;
    Processor := nil;
  end;
end;