以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  【图片】当列属性为图片的时候，如何修改代码实现将图片直接写入图片列呢？而不是图片的路劲地址？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=109232)
--  作者：李孝春
--  发布时间：2017/11/7 12:46:00
--  【图片】当列属性为图片的时候，如何修改代码实现将图片直接写入图片列呢？而不是图片的路劲地址？

当列属性为图片的时候，如何修改代码实现将图片直接写入图片列呢？而不是图片的路劲地址？
bar.SaveImage(ProjectPath & "Reports\\卷宗二维码\\" & r("卷宗编号") & r("分册编号") & "二维码.jpg")
 r("二维码")=ProjectPath & "Reports\\卷宗二维码\\" & r("卷宗编号") & r("分册编号") & "二维码.jpg"

麻烦各位指导下  谢谢
--  作者：有点甜
--  发布时间：2017/11/7 12:59:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/2954.htm

 

http://www.foxtable.com/webhelp/scr/2958.htm

 
--  作者：李孝春
--  发布时间：2017/11/7 13:09:00
--  回复：（有点甜）参考 http://www.foxtable....
有点甜老师 在这里我不打算用二进制列了 
就图片  备注型  然后列属性  图片
--  作者：有点甜
--  发布时间：2017/11/7 13:11:00
--  
 图片列不能直接保存图片。
--  作者：有点甜
--  发布时间：2017/11/7 14:53:00
--  
以下是引用李孝春在2017/11/7 13:09:00的发言：
有点甜老师 在这里我不打算用二进制列了 
就图片  备注型  然后列属性  图片

 

或者，你试试这样处理。

 

保存图片

 

Dim fs As New IO.FileStream("d:\\test.jpg" , IO.FileMode.Open , IO.FileAccess.Read) 
Dim br As New IO.BinaryReader(fs)
Dim bs() As Byte = br.ReadBytes(fs.Length)  
Dim ImageString As String = Convert.ToBase64String(bs)
tables("表C").current("图片") = ImageString

 

读取图片

 

Dim ziByte() As Byte = Convert.FromBase64String(Tables("表c").current("图片"))
Dim ms As New IO.FileStream("d:\\12345.jpg", IO.FileMode.Create)
ms.Write(ziByte, 0,ziByte.length)
ms.close