void __fastcall TFrmGenCode::XSLTxml1Click(TObject *Sender)
{
// XSLT转换xml文件格式 #include <Xml.XMLIntf.hpp> _di_IXMLDocument xml;
_di_IXMLDocument xsl; // Xml::Xmlintf::IXMLDocument
_di_IXMLDocument outdoc;
// Xml::Xmlintf::IXMLDocument *outdoc = NewXMLDocument(); String f1, f2, f3;
WideString rtext;
UnicodeString ustr;
f1 = "E:\\cjj\\CallFunLog\\TableClass.xml";
f2 = "E:\\cjj\\CallFunLog\\TableClass.xsl";
f3 = "c:\\kcode.html"; xml = interface_cast<Xmlintf::IXMLDocument>(new TXMLDocument(NULL));
xsl = interface_cast<Xmlintf::IXMLDocument>(new TXMLDocument(NULL));
outdoc = interface_cast<Xmlintf::IXMLDocument>(new TXMLDocument(NULL));
xml->LoadFromFile(f1); // LoadXMLData(f1);
xsl->LoadFromFile(f2); xml->Node->TransformNode(xsl->DocumentElement, rtext); // err DocumentElement->TransformNode
// xml->DocumentElement->TransformNode(xsl->DocumentElement, rtext);
ustr = rtext;
SynMemo1->Text = ustr;
outdoc->LoadFromXML(ustr);
outdoc->SaveToFile(f3);
WebBrowser1->Navigate(f3);
DeleteFileW(f3);
}
写好xml数据和xsl格式就OK啦!
_di_IXMLDocument xml=NewXMLDocument();
xml->Active=false;
不能delete xml;报错。