1,593
社区成员
发帖
与我相关
我的任务
分享XML的解析问题
我有一个XML文件和一个相应的XSL文件，都做成了资源，我不想反它们释放到硬盘上，我想在程序中进行解析然后只把解析后的Html结果显示给用户，请问我应该怎么做？
...全文
请发表友善的回复…
发表回复
ltf_ty 2004-07-28
- 打赏
- 举报
Mark
cronuz 2004-07-21
- 打赏
- 举报
//---- alexzhang00(三角猫(sjcatsoft)) 2004-3-19 16:42:34
function TForm1.XML2HTML(xmlfilePath, xslfilePath, htmlfilepath: string): boolean;
var
xmlDom, xslDom: IXMLDOMDocument;
htmlContent: widestring;
tmpList: TStringList;
begin
xmlDom := CoDOMDocument.Create;
xslDom := CoDOMDocument.Create;
xmlDom.async := false; //asynchronous非同期
xslDom.async := false;
tmpList := TStringList.Create;
try
xmlDom.load(xmlfilepath);
xslDom.load(xslfilepath);
htmlcontent := xmlDom.transformNode(xslDom);
tmpList.Add(htmlcontent);
tmpList.SaveToFile(htmlfilepath);
tmpList.Clear;
result := true;
finally
xmlDom := nil;
xslDom := nil;
tmpList.Free;
end;
end;
(注：給一個別人作的、供参考)
function TForm1.XML2HTML(xmlfilePath, xslfilePath, htmlfilepath: string): boolean;
var
xmlDom, xslDom: IXMLDOMDocument;
htmlContent: widestring;
tmpList: TStringList;
begin
xmlDom := CoDOMDocument.Create;
xslDom := CoDOMDocument.Create;
xmlDom.async := false; //asynchronous非同期
xslDom.async := false;
tmpList := TStringList.Create;
try
xmlDom.load(xmlfilepath);
xslDom.load(xslfilepath);
htmlcontent := xmlDom.transformNode(xslDom);
tmpList.Add(htmlcontent);
tmpList.SaveToFile(htmlfilepath);
tmpList.Clear;
result := true;
finally
xmlDom := nil;
xslDom := nil;
tmpList.Free;
end;
end;
(注：給一個別人作的、供参考)
