以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]请问二进制文件字段应该怎么转出到文件?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=188585)

--  作者:unverse
--  发布时间:2023/9/28 17:05:00
--  [求助]请问二进制文件字段应该怎么转出到文件?


图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20230928170846.png
图片点击可在新窗口打开查看

 

 

 代码粘不上见上图

 

 If filesys.FileExists(path & dwsl(i) & "\\" & ndsl(i1) & "\\" & ndyf(i2) & "\\" & pzsl(i3) & "\\" & dr("ZWPZFG_tpsm")) = False Then \'如果已存在则跳过
                        Dim imageByte() As Byte = dr("ZWPZFG_FGTP") \'查询数据,并存入字节数组                   
                        Dim ms As New IO.MemoryStream(imageByte) \'将字节数组转换为二进制流                   
                        Dim image As Image = Image.FromStream(ms) \'将二进制流转换为图片                   
                        Dim bmp As New bitmap(image)
                        bmp.save(path & dwsl(i) & "\\" & ndsl(i1) & "\\" & ndyf(i2) & "\\" & pzsl(i3) & "\\" & dr("ZWPZFG_tpsm"))
                    End If

 

 

以上代码如果是二进制保存的是图片可以正常执行,如果保存的是WORD或者其他的则会报错,请问老师应该怎么改进一下?

[此贴子已经被作者于2023/9/28 17:09:36编辑过]

--  作者:有点蓝
--  发布时间:2023/9/28 17:18:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=154713
--  作者:unverse
--  发布时间:2023/9/28 17:54:00
--  
以下是引用有点蓝在2023/9/28 17:18:00的发言:
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=154713

谢谢蓝版,搞定了。图片点击可在新窗口打开查看