如何在这个里面<column Name="purviewid" DispName="功能代码" Index="0"/>再增加一个属性?
解决方案 »
- 最近研究搜索引擎,搞到些免费电影,大家分享,有顶有送!
- PL的网页如何实现自动提交?我用的填表方法是POST,控件是HttpCli
- 请问保存临时文件能不能用FileMapping保存到内存?
- 启动窗口的问题!
- 打开文件
- 有哪位可以介绍一下Delphi中众的扩展名各是什么样的文件?有什么作用?
- 寻求图象数据源程序(要能执行的啊^&^)
- 怎么获得其他程序按钮的信息,然后发送“点击”指令?
- 如何指定qreport的打印行数
- 已经一个窗口的hwnd,如何得到其窗口的控件列表
- 超简单问题: 打开串口失败得到一个不可用THandle,对此THandle不用调用closehandle()了吧?
- 打印前 动态调整Edit的坐标
var
Node,NODE1 : IxmlNode;
XML : TXMLDocument;
Node := XML.CreateNode('DataTransfer');
xml.DocumentElement := Node; Node.SetAttribute('新增属性','test');
比如说节点是IXMLDOMNode。。
这种方法怎么加
比如说节点是IXMLDOMNode。。
这种方法怎么加
var
node : ixmlnode;
nodelist : ixmlnodelist;
begin
nodelist := XMLDocument1.DocumentElement.ChildNodes
node1 := nodelist.FindNode('人员'); //查询节点,如果节点名相同,就要用循环来判断要找的是那个了
node1.Attributes['Att1'] := '112'; //加属性 end;
//==============================================================================
//本实例演示
//1,XML 创建,打开,关闭操作
//2,XML 填加,添加到指定位置,删除,修改(替换),查找等操作
//==============================================================================
interfaceuses
SysUtils,ActiveX,msxml;type
RecUser=Record
U_Id :widestring;
U_Name :widestring;
U_Sex :widestring;
U_Birth :widestring;
U_Tel :widestring;
U_Addr :widestring;
U_PostCode :widestring;
U_Email :widestring;
end;type
TXMLOption=class
private
FActive :boolean;
FFilename: string;
FXMLDoc :IXMLDOMDocument;
//填加一个子节点
procedure AddSimpleElement(Parent: IXMLDOMElement; Field,Value: string);
public
procedure CreateBlank(Filename: string);
procedure OpenXml(Filename: string);
procedure CloseXml;
procedure AppendUser(muser:RecUser);
procedure InsertUser(uid:string;muser:RecUser);
procedure RemoveUser(uid:string);
procedure ReplaceUser(uid:string;newuser:RecUser);
function FindUser(userid:widestring):boolean;
function GetNodeLength(node:widestring):integer;
end;implementationconst
XMLTag = 'xml';
XMLPrologAttrs = 'version="1.0" encoding="UTF-8"';
XMLComment = '主站规约库'; UserWatcherTag = 'user-watcher';
XMLComment2 = '创建文档时间:';
UsersTag = 'users';
U_Id = 'id';
U_Name = 'name';
U_Sex = 'sex';
U_Birth = 'birth';
U_Tel = 'tel';
U_Addr = 'addr';
U_PostCode = 'postcode';
U_Email = 'email';//创建一个空XML,如果这个Filename文件已经存在,则覆盖
procedure TXMLOption.CreateBlank(Filename: string);
begin
FActive:=false;
FFilename:='';
try
FXMLDoc := CoDOMDocument.Create;
FXMLDoc.AppendChild(FXMLDoc.CreateProcessingInstruction(XMLTag, XMLPrologAttrs)); //表头
//FXMLDoc.AppendChild(FXMLDoc.CreateComment(XMLComment)); //文档说明
FXMLDoc.AppendChild(FXMLDoc.CreateElement(UserWatcherTag)); //元素
//FXMLDoc.AppendChild(FXMLDoc.CreateComment(XMLComment2+datetimetostr(now))); //文档结尾
FXMLDoc.save(Filename);
FFilename:=Filename;
FActive:=true;
except
FXMLDoc:=nil;
end;
end;
//打开一个存在的Filename XML文档
procedure TXMLOption.OpenXml(Filename: string);
begin
if not Assigned(FXMLDoc) then
begin
FXMLDoc := CoDOMDocument.Create;
if FXMLDoc.Load(Filename) then FActive:=true
else FActive:=false;
if FActive then FFilename:=Filename
else FFilename:='';
end;
end;
//关闭一个打开的XML文档
procedure TXMLOption.CloseXml;
begin
if Assigned(FXMLDoc) then FXMLDoc:=nil;
FFilename:='';
FActive:=false;
end;
procedure TXMLOption.AddSimpleElement(Parent: IXMLDOMElement; Field,Value: string);
var
Internal: IXMLDOMElement;
begin
Internal:=IXMLDOMElement(Parent.AppendChild(FXMLDoc.CreateElement(Field)));
Internal.AppendChild(FXMLDoc.CreateTextNode(Value));
end;
//填加一个节点到后面
procedure TXMLOption.AppendUser(muser:RecUser);
var
xuser:IXMLDOMElement;
xroot:IXMLDOMElement;
begin
if FActive then
begin
xroot:=FXMLDoc.documentElement;
xuser :=IXMLDOMElement(xroot.AppendChild(FXMLDoc.CreateElement(UsersTag)));
xuser.setAttribute('codeNo', '323');
AddSimpleElement(xuser,U_Id,muser.U_Id);
AddSimpleElement(xuser,U_Name,muser.U_Name);
AddSimpleElement(xuser,U_Sex,muser.U_Sex);
AddSimpleElement(xuser,U_Birth,muser.U_Birth);
AddSimpleElement(xuser,U_Tel,muser.U_Tel);
AddSimpleElement(xuser,U_Addr,muser.U_Addr);
AddSimpleElement(xuser,U_PostCode,muser.U_PostCode);
AddSimpleElement(xuser,U_Email,muser.U_Email);
FXMLDoc.save(FFilename);
end;
end;
procedure TXMLOption.InsertUser(uid:string;muser:RecUser);
var
xfind:IXMLDOMNode;
xuser:IXMLDOMElement;
xroot:IXMLDOMElement;
xpath:string;
begin
if not FActive then exit;
xpath:=UsersTag+'['+U_Id+'="'+uid+'"]';
xfind:=FXMLDoc.documentElement.selectSingleNode(xpath);
//如果没有找到, xfind=nil 则在文件的末尾插入
//如果找到,xfind<>nil 则在找到的纪录前面插入
xroot:=FXMLDoc.documentElement;
xuser :=IXMLDOMElement(xroot.insertBefore(FXMLDoc.CreateElement(UsersTag),xfind));
AddSimpleElement(xuser,U_Id,muser.U_Id);
AddSimpleElement(xuser,U_Name,muser.U_Name);
AddSimpleElement(xuser,U_Sex,muser.U_Sex);
AddSimpleElement(xuser,U_Birth,muser.U_Birth);
AddSimpleElement(xuser,U_Tel,muser.U_Tel);
AddSimpleElement(xuser,U_Addr,muser.U_Addr);
AddSimpleElement(xuser,U_PostCode,muser.U_PostCode);
AddSimpleElement(xuser,U_Email,muser.U_Email);
FXMLDoc.save(FFilename);
end;
procedure TXMLOption.RemoveUser(uid:string);
var
xfind:IXMLDOMNode;
xroot:IXMLDOMElement;
xpath:string;
begin
if not FActive then exit;
xpath:=UsersTag+'['+U_Id+'="'+uid+'"]';
xfind:=FXMLDoc.documentElement.selectSingleNode(xpath);
if xfind<>nil then
begin
xroot:=FXMLDoc.documentElement;
xroot.removeChild(xfind);
FXMLDoc.save(FFilename);
end;
end;
procedure TXMLOption.ReplaceUser(uid:string;newuser:RecUser);
var
xfind,newnode:IXMLDOMNode;
xroot:IXMLDOMElement;
xpath:string;
begin
if not FActive then exit;
xpath:=UsersTag+'['+U_Id+'="'+uid+'"]';
xfind:=FXMLDoc.documentElement.selectSingleNode(xpath);
//如果没有找到,则不做替换
if xfind<>nil then
begin
newnode:=xfind.cloneNode(true);
newnode.selectSingleNode(U_Id).text:=newuser.U_Id;
newnode.selectSingleNode(U_Name).text:=newuser.U_Name;
newnode.selectSingleNode(U_Sex).text:=newuser.U_Sex;
newnode.selectSingleNode(U_Birth).text:=newuser.U_Birth;
newnode.selectSingleNode(U_Tel).text:=newuser.U_Tel;
newnode.selectSingleNode(U_Addr).text:=newuser.U_Addr;
newnode.selectSingleNode(U_PostCode).text:=newuser.U_PostCode;
newnode.selectSingleNode(U_Email).text:=newuser.U_Email;
xroot:=FXMLDoc.documentElement;
xroot.replaceChild(newnode,xfind);
FXMLDoc.save(FFilename);
end;
end;
function TXMLOption.FindUser(userid:widestring):boolean;
var
xuser:IXMLDOMNode;
xpath:string;
begin
result:=false;
if not FActive then exit;
//关于xpath语法说明,参见www.w3.org/TR/xpath
xpath:=UsersTag+'['+U_Id+'="'+userid+'"]';
xuser:=FXMLDoc.documentElement.selectSingleNode(xpath);
if xuser<>nil then result:=true;
end;
function TXMLOption.GetNodeLength(node:widestring):integer;
var
xNode:IXMLDOMNodeList;
xroot:IXMLDOMElement;
xpath:widestring;
begin
result:=0;
xpath:=node;
try
xroot:=FXMLDoc.documentElement;
xNode:=xroot.selectNodes(xpath);
result:=xNode.length;
except
end;
end;initialization
{ Initialise COM }
CoInitialize(nil);
finalization
{ Tidy up }
CoUninitialize();end.