使用TXMLDocument的时候,往往会产生“拒绝访问”或者“找不到映像文件中指定的资源类型”,请问是什么原因?
解决方案 »
- 2个按钮内容分开的时候可以用的...但是合并在一个按钮里就不能用了...为什么呢?
- 问个简单的windows系统的问题,哪个晓得,我佩服!
- 如何在一个存储过程中执行跨网段的存储过程
- 可以在delphi中使用的哪些报表制作工具可以在程序运行期间比较方便灵活地设定表格样式和内容?
- ★★★如何通过PC喇叭播放歌曲?比如将硬盘中的mp3什么的通过PC喇叭播放出来。
- 随机数问题,在线给分,急....
- 菜鸟求救:关于form.showmodle的出错处理?
- 有关报表打印的问题(如何自动换行显示)bow,thanks all
- 还有一个简单的问题 !
- 紧急求助:关于midas
- 吐血大放送,将本人五年的DELPHI精华奉献给大家!
- Ehlib 3.6的编译问题
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, xmldom, XMLIntf, StdCtrls, msxmldom, XMLDoc;type
TForm1 = class(TForm)
XMLDocument1: TXMLDocument;
Button1: TButton;
Memo1: TMemo;
Edit1: TEdit;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
//k: integer;
nn : IXMLNode;
vv : IXMLNode;
kk : String;
k :IXMLNode;//IXMLNodeList;
c : Integer;
begin
{k := 8;
k := self.XMLDocument1.DocumentElement.ChildValues['checkdate'];
edit1.Text := Inttostr(k);
}//--添加节点
nn := XMLDocument1.DocumentElement.AddChild('header');
//nn.Attributes[''] := '';
vv := nn.AddChild('receiveflag');
vv.Text := 'jjjj';
vv := nn.AddChild('checkdate');
vv.Text := 'dfd';
XMLDocument1.SaveToFile('aa.xml');//-- 读取节点的值
k := XMLDocument1.DocumentElement.ChildNodes[0];
c := XMLDocument1.DocumentElement.ChildNodes.Count;//edit1.Text := inttostr(c)+XMLDocument1.FileName;
//showmessage(k);
edit1.Text := k.ChildNodes['receiveflag'].Text;
end;procedure TForm1.Button2Click(Sender: TObject);
var
a : TXMLDocument;
begin
a:=TXMLDocument.Create(self);
a.FileName:='http://localhost/xml/web.xml';
a.SaveToFile('xml.xml');
end;end.注意,记得把XMLDocument1组件的路径设置好。