电脑爱好者,提供IT资讯信息及各类编程知识文章介绍,欢迎大家来本站学习电脑知识。 最近更新 | 联系我们 RSS订阅本站最新文章
电脑爱好者
站内搜索: 
当前位置:首页>> delphi技术>>[讨论]关于delphi引用msxml.dll的讨论:

[讨论]关于delphi引用msxml.dll的讨论

来源:www.cncfan.com | 2006-1-20 | (有3772人读过)

问:我想创建msxml.dll的程序单元并把他加入到控件拦的Activex页上,总是出错,请大侠指教
教,环境为wiondows professional 2000+delphi5


答:不用加到delphi中来,直接用就行了。如下代码:

procedure TForm1.Button1Click(Sender: TObject);
var
xmlobj, xslobj: Variant;
sl: TStringList;
begin
sl := TStringList.Create;
xmlobj := CreateOLEObject('MSXML2.DOMDocument');
xmlobj.async := false;
xmlobj.load('page.xml');
xslobj := CreateOLEObject('MSXML2.DOMDocument');
xslobj.async := false;
xslobj.load('dispq_.xsl');
sl.Text := xmlobj.transformNode(xslobj);
sl.SaveToFile('test.txt');
xmlobj := unAssigned;
xslobj := unAssigned;
end;

那个文章有误人之嫌。你在装了msxml的sdk之后,就这样用就行了。

如果是用delphi自己的控件,这么做:
1、在页面上放两个TXmlDocument,分别名为xmldoc、xsldoc,
2、代码如下:
procedure TForm1.Button2Click(Sender: TObject);
var
ws:WideString;
savefile:TextFile;
begin
AssignFile(savefile,'mytest.txt');
Rewrite(savefile);

XmlDoc.LoadFromFile('page.xml');
XmlDoc.Active := true;

XslDoc.LoadFromFile('xslfile.xsl');
XslDoc.Active:= true;

XmlDoc.Node.transformNode(XslDoc.Node,ws);
write(savefile,ws);
CloseFile(savefile);
end;
delphi技术热门文章排行
网站赞助商
购买此位置

 

关于我们 | 网站地图 | 文档一览 | 友情链接| 联系我们

Copyright © 2003-2024 电脑爱好者 版权所有 备案号:鲁ICP备09059398号