Delphi6/7 中XML 文档的应用

删除节点Xn

xn.ParentNode.ChildNodes.Delete(xn.ParentNode.ChildNodes.IndexOf(xn));

利用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);