[求助]PictureViewer中添加图片并上传到服务器 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

设立了一个独立的窗口中放入了PictureViewer控件，增加一个按钮，希望如内置的管理和增加的增加的功能合并

看了帮助的AddFile里面的三个例子并进行了测试，图片应该本地上传了但显示时都是Ｘ，

希望实现如下功能：

1＼设置一个按钮，可以像内置增加一样，弹出对话框，但是在本地电脑上查找图片

2＼图片查找对话框确定后，图片也同时上传到FTP指定目录（如内置管理器指定的目录)，同时自动复制到Attachments目录一份，图片能正常显示

3＼无需进入内置管理的那种界面，实际上就是想把内置的那些功能锁了(这个我知道怎么解决)，然后使用者只可以上传,无法看到后台图片目录

　　如果上传中有时间或进度提示更好！

求帮助！

PictureViewerPictureViewer

[此贴子已经被作者于2017/4/13 16:18:39编辑过]

谢谢版主，按您的提示研究了下，已经完成了！我的思路是先把文件上传到ＦＴＰ，然后更新绑定字段内容，图片浏览器就自动下载了．

所以里面有一句上传了再从ＦＴＰ下载的代码实际没有使用，不知道这个逻辑是否正确，是否还有更好的办法？

代码如下：

Dim nm As String

Dim nr As String = Tables("库存商品").Current("图片") '获取绑定字段当前内容,图片列的Text

Dim ftp1 As New FtpClient

ftp1.Host="xxx.xxx.xx.xxx" 'IP

ftp1.Account = "xxxx" 'FTP账号

ftp1.Password = "xxxxx" 'FTP密码

ftp1.Port = "xxxx" '端口号

Dim dlg As New OpenFileDialog

dlg.MultiSelect = True

dlg.Filter = "图形文件|*.bmp;*.jpg;*.gif;*.png"

If dlg.ShowDialog = DialogResult.OK Then

For Each fl As String In dlg.FileNames

nm = Tables("库存商品").Current("货品名称") & Format(Date.now,"MMddHmmss") '定义文件名,按时间秒数编号

If ftp1.Upload( fl ,"\仓库1\库存商品\" & nm & ".jpg") = True Then '上传图片

' ftp1.Download("\仓库1\库存商品\" & nm & ".jpg",ProjectPath & "Attachments\" & nm & ".jpg") 'FTP下载,发现可以取消

If nr <> "" Then '如果之前没有图片内容

nr = nr & vbcrlf & "\仓库1\库存商品\" & nm & ".jpg"

Else

nr = "\仓库1\库存商品\" & nm & ".jpg"

End If

Else

msgbox( fl & "上传失败!",64,"提示")

End If '

Tables("库存商品").Current("图片") = nr '替换绑定字段Txet

Tables("库存商品").Current.Save

End If

测试之后有什么问题吗？

为什么要上传后下载？如果需要拷贝功能的话，你可以直接拷贝到你的对应文件夹下

以下是引用有点蓝在2017/4/14 8:36:00的发言：
测试之后有什么问题吗？

测试后一切正常，谢谢！

主题：[求助]PictureViewer中添加图片并上传到服务器