专家坐堂-照片拍照后直接保存到远程ftpFoxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  照片拍照后直接保存到远程ftp  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=149566)

--  作者：nxdx112
--  发布时间：2020/5/6 14:22:00
--  照片拍照后直接保存到远程ftp

If Tables("成员信息").Current IsNot Nothing AndAlso Tables("成员信息").Current.IsNull("姓名") = False Then
If Tables("成员信息").Current.IsNull("照片") = False Then
If MessageBox.Show("该生已经拍照,是否重拍?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Warning) = DialogResult.No Then
Return
End If
End If
Forms("拍照3").Show()
If Forms("拍照3").Opened Then
Forms("拍照3").Controls("FileName").Text = "d:\\政教管理\\学生会\\照片\\" & Tables("成员信息").Current("班级") & "" & Tables("成员信息").Current("姓名") & ".jpg"

End If
End If

如何改才能使拍照后的照片直接保存到远端ftp中
例如ftp://208.200.155.198:2121/学生信息/照片
用户名 hhh123 密码******

--  作者：有点蓝
--  发布时间：2020/5/6 14:30:00
--
参考：http://www.foxtable.com/webhelp/topics/1410.htm

--  作者：李孝春
--  发布时间：2020/5/6 15:24:00
--  回复：（nxdx112）照片拍照后直接保存到远程ftp

If Tables("成员信息").Current IsNot Nothing AndAlso Tables("成员信息").Current.IsNull("姓名") = False Then
If Tables("成员信息").Current.IsNull("照片") = False Then
If MessageBox.Show("该生已经拍照,是否重拍?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Warning) = DialogResult.No Then
Return
End If
End If
Forms("拍照3").Show()
If Forms("拍照3").Opened Then
Forms("拍照3").Controls("FileName").Text = "d:\\政教管理\\学生会\\照片\\" & Tables("成员信息").Current("班级") & "" & Tables("成员信息").Current("姓名") & ".jpg"
Dim ftp1 As New FtpClient
ftp1.Host="208.200.155.198:2121"
ftp1.Account = "hhh123"
ftp1.Password = "******"
If ftp1.Upload("d:\\政教管理\\学生会\\照片\\" & Tables("成员信息").Current("班级") & "" & Tables("成员信息").Current("姓名") & ".jpg","/学生信息/照片") = True Then
Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
End If
End If

[此贴子已经被作者于2020/5/6 15:24:17编辑过]