====如何将图片的数据存储到一个XML文件中，并如何读出来====

alj 2004-10-21 03:39:23

XML文件其实就是纯文本文件，现在我想将图片的数据也放到XML文件的某个节点中，怎么转换图片的数据？并且图像如何再取出来？

由于项目比较急，并且之前一直做数据库的管理信息系统开发，对图像开发甚少了解，恳请高手帮忙。

...全文

258 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

胖河马 2004-11-29

打赏
举报

把文件取出来
Dim dom As DOMDocument
Dim s As Stream

Set dom = New DOMDocument
dom.async = False
dom.Load "c:\x.xml"

Set s = New Stream
s.Type = adTypeBinary
s.Mode = adModeReadWrite
s.Open
s.Write dom.documentElement.selectSingleNode("file").nodeTypedValue
Set dom = Nothing

s.SaveToFile "c:\f.zip"
s.Close
Set s = Nothing

胖河马 2004-11-29

打赏
举报

通过base64编码将二进制数据嵌入xml
Dim s As Stream
Dim dom As DOMDocument
Dim eFile As IXMLDOMElement

Set s = New Stream
s.Type = adTypeBinary
s.Mode = adModeReadWrite
s.Open
s.LoadFromFile "c:\google.zip"

Set dom = New DOMDocument
Set dom.documentElement = dom.createElement("root")
dom.documentElement.setAttribute "xmlns:dt", "urn:schemas-microsoft-com:datatypes"

Set eFile = dom.createElement("file")
eFile.dataType = "bin.base64"
eFile.nodeTypedValue = s.Read
dom.documentElement.appendChild eFile
Set eFile = Nothing

s.Close
Set s = Nothing

dom.Save "c:\x.xml"
Set dom = Nothing

经过编码后体积大约增加30%左右

rainstormmaster 2004-11-28

打赏
举报

//非常感谢你提供的方法，不过这个是用于.Net的，我想知道在VB6里面怎么对图片进行Base64编码。希望能提供示例代码。

呵呵，自己搜吧，很多的

aliaoz 2004-11-28

打赏
举报

base64编码行不行？

alj 2004-10-30

打赏
举报

liuxiaoyi666(兔子，用好了GOOGLE才能了解CSDN):

这个方法不行的，我要组合成一个独立的文件格式，所有数据均可以独立于磁盘。

笨笨兔兔兔兔兔 2004-10-27

打赏
举报

我的方法是
<? xml encoding="gb2312" ?>
<student>
<liu>
<code>122</code>
<gre>1223</gre>
<tofel>233</tofel>
<address>c:\\xxx.jpg</address>
</liu>
</student>
把图片的位置记录了
再用XMLDOM读取记录位置,最后读取就好了

alj 2004-10-27