您的位置：程序门 -> vb -> 基础类

vb 中怎么把从数据库读出来的图片文件传输到远程计算机

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

vb 中怎么把从数据库读出来的图片文件传输到远程计算机[已结贴,结贴人:a337928]

发表于：2007-02-02 11:03:59 楼主

高手请帮下忙
vb中怎么把从数据库读出来的图片文件传输到远程计算机我是用winsock 传输的，传在硬盘上的文件可以，但是传从数据库读出来的 .fields 就不可以希望大家指导下谢谢

发表于：2007-02-02 11:31:211楼得分:0

将取出的图片信息进行base64编码然后传输到服务器服务器在解码

发表于：2007-02-02 11:55:222楼得分:0

base64编码。。不懂可以给下代码吗？

发表于：2007-02-02 13:35:173楼得分:10

http://www.infosecurity.org.cn/article/pki/cryptography/23293.html

发表于：2007-02-06 09:42:134楼得分:0

问下怎么找回密码我忘记了结不了帖子。。。

发表于：2007-02-06 11:17:445楼得分:3

用你注冊的郵箱
會發密碼到你的郵箱的

发表于：2007-02-06 14:11:316楼得分:7

private sub command1_click（)

dim interid as string
dim strdata as string
dim fileno as integer
dim lenf as long
dim bmpdata（) as byte
dim mfilename as string
'先保存图片
mfilename = "d:\800.jpg "
dg1.showopen
if dg1.filename <> " " then
ig.picture = loadpicture（dg1.filename)
' picture1.picture = loadpicture（dg1.filename)
savepicture ig, mfilename
fileno = freefile（)
'打开文件取出图形数据
open mfilename for binary as #fileno
lenf = lof（fileno)
redim bmpdata（lenf)
get #fileno, , bmpdata
close #fileno
'保存到数据库中
with rs
.activeconnection = cn
.locktype = adlockoptimistic
.open "delete from wcs "
.open "select img from wcs "
.addnew
'字段fid为一个 int 型的主键
'字段fdata为一个image 型的字段
' .fields（ "fid ") = interid
.fields（ "img ").appendchunk bmpdata
.update
end with
msgbox "保存完毕 "

rs.close
set rs = nothing
end if
end sub

把图片保存到数据库的img类型字段。用的时候读出保存到本地再 loadpicture（)

下一篇：如何对时期时间格式进行验证？各位朋友小助一下！
上一篇：关于使用vb进行数据采集后进行数值判断的问题

其他资讯