如何用ADODB.Stream的Write方法二进制写入文件中

yatuor 2002-12-19 11:00:25

ASP 如下：
Set mstream = Server.CreateObject("ADODB.Stream")
mstream.Type = 1
mstream.Open(filecontent)
mstream.Write(filecontent)
mstream.SaveToFile ("e:/gg.ppt")
其中filecontent是文件的内容
为什么老是出错，但用WriteText 就可以，可文件内容却不一样

...全文

455 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

yatuor 2002-12-20

打赏
举报

谢谢，结贴

zhigangxie 2002-12-20

打赏
举报

荣幸见到了 MVP。

ssm1226 2002-12-20

打赏
举报

指定stream对象的type属性:
adTypeBinary 1 指示二进制数据。
adTypeText 2 默认值。指示文本数据，该文本数据在 Charset 指定的字符集中。

madpolice 2002-12-20

打赏
举报

完全同意saucer的写法

SaveToFile后面要加参数,
参数的值是常量
Const adSaveCreateOverWrite = 2 '如果文件存在就覆盖
==================================
顺便说一下.MSDN把这个常量的值错写成4了!!!

害人不浅

逍遥小贼 2002-12-19

打赏
举报

http://expert.csdn.net/Expert/topic/1215/1215798.xml?temp=.6479303

这个帖子可能有所帮助，看看吧

saucer 2002-12-19

打赏
举报

make sure filecontent is in binary format, try

Set mstream = Server.CreateObject("ADODB.Stream")
mstream.Type = 1
mstream.Open
mstream.Write filecontent
mstream.SaveToFile "e:\gg.ppt", 2

also see
http://support.microsoft.com/default.aspx?scid=KB;en-us;q258038