Cita:
Empezado por nejamube
Si alguien quiere obtener la cadena original de la forma correcta, aqui les dejo esta funcion:
Código Delphi [-] uses XMLIntf, MSXML, XMLDoc, msxmldom; function CadenaOriginal( const xml, xsl : string ): string; var XMLDoc : IXMLDOMDocument; XSLDoc : IXMLDOMDocument; Template : IXSLTemplate; Processor : IXSLProcessor; begin Result := ''; try XMLDoc := CoFreeThreadedDOMDocument30.Create; XSLDoc := CoFreeThreadedDOMDocument30.Create; XMLDoc.load(xml); XSLDoc.load(xsl); Template := CoXSLTemplate30.Create; Template.stylesheet := XSLDoc; Processor := Template.createProcessor; Processor.input := XMLDoc; Processor.transform; result := Processor.output; finally XMLDoc := nil; XSLDoc := nil; end; end;
|
hola carnal. trate e hacer esa funcion con delphi 7
y no me funciono. al querer usar á í &
se muestra
|||
¿que sera?