老师,拍摄照片后,通过一个保存按钮上传本地服务器,总是上传失败。照片控件绑定到表A的照片列,照片控件设置为远程文件地址如下,照片所在窗口有一保存按钮,chick事件如下。
“中心文件管理”是ftp网站的物理路径,
“
文件收发”是它下面的一个子目录请指点。谢谢!
Dim zp As Image = e.Form.Controls("照片").Image
Dim wjm As WinForm.Label = e.Form.Controls("文件名")
If zp IsNot Nothing Then
If Forms("图片管理器").Opened Then
Dim path As String = ProjectPath & "Attachments\" & wjm.text & ".jpg"
zp.Save(path)
Dim ftp1 As New FtpClient
ftp1.Host="192.168.8.200"
ftp1.Account = "dcqcdc"
ftp1.Password = "123456789"
If ftp1.Upload("F:\数据库\中心文件\Attachments\" & wjm.text & ".jpg","\update\文件收发\"& wjm.text & ".jpg") = True Then
Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
Forms("图片管理器").Controls("PictureViewer1").AddFile(FileSys.GetName(path))
e.Form.Close
End If
Else
MessageBox.Show("请拍摄照片后再保存!","错误",MessageBoxButtons.OK,MessageBoxIcon.Error)
End If