在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
XML文档是新一代的Web数据格式。它可以用树的形式储存一切数据。 利用Xn.Text存放文件, f:=TFileStream.Create('要存放的文件名',fmOpenRead); xn.Text:=EncoderMime.Encode(f); //转换格式,文件编码 f.Free; 解出Xn.Text中的文件, f:=TFileStream.Create(‘目标文件名’,fmCreate); DecoderMime.DecodeToStream(xn.Text,f); f.Free; 最好利用Xn.attribute来增加一个属性来表示文件的编码方式,比如 xn.Attributes['Type']='Base64' 这样改上面的两个片段为: xn.Attributes['Type']:='Base64'; f:=TFileStream.Create('要存放的文件名',fmOpenRead); xn.Text:=EncoderMime.Encode(f); f.Free; if xn.IsTextElement //Xn中存在Text then if xn.HasAttribute('Type') then //Xn中存在属性’Type’ if xn.Attributes['Type']='Base64' then begin f:=TFileStream.Create(‘目标文件名’,fmCreate); DecoderMime.DecodeToStream(xn.Text,f); f.Free; end; 最后给出一个利用TTreeView来显示XML文档的所有树结构 XMLTree是TTreeView类 procedure TForm1.ReadXMLTree(RootTreeNode:TTreeNode; XMLTreeNode:IXMLNode); var i:integer; c:TTreeNode; begin for i:=0 to XMLTreeNode.ChildNodes.Count-1 do begin c:=xmltree.Items.AddChild(RootTreeNode,XMLTreeNode.ChildNodes.Nodes[i].NodeName); ReadXMLTree(c,XMLTreeNode.ChildNodes.Nodes[i]); end; end; 使用方法 ReadXMLTree(nil,xmldoc.Node); 当然要先加载XML文档 J ^_^ 至于使用XML文档作为In-memory数据库就要用Delphi6/7的XML Mapping Tool了,先建立一个最简单的XML文档,再用MappingTool生成.XTR文件,用TXMLDataSetProvider作为数据提供者,TdataSet连接,搞个TTable就可以把XML作为数据库用了,详细的请看Delphi6/7的Demos目录下的Internet\XMLTransformProvider! |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论