我用了外部数据源,也用了FTP,写了一段程序 发现对应的窗口浏览时,PictureBox控件不显示图片,请问是什么原因?我要上传了图片能马上显示在控件上或重新浏览时能显示图片,请帮我看一下,谢谢!
还有一个问题就是
PictureBox没有摄像功能,再拍照,这样可能更好些。否则可能操作两下。
If FileSys.DirectoryExists("D:\My Documents\众邦调度通\司机近照") Then '目录存在
Else
FileSys.CreateDirectory("D:\My Documents\众邦调度通\司机近照") '创建目录
End If
Dim c As new camera
c.capture () '开始照相
If c.image IsNot Nothing Then '照相成功
Dim r As Row = Tables("司机资料").Current
Dim s_name As String =r("身份证号")
c.Save( ProjectPath & "Attachments\" & s_name & ".jpg") '保存文件
Dim ftp1 As new ftpclient
ftp1.host="222.215.*.*" 'ftp 地址
ftp1.Account = "*" ‘用户名
ftp1.password = "*" ’密码
If ftp1.DirectoryExists("/data") = False Then '如果不存在Data目录
ftp1.MakeDir("/data") '则创建Data目录
End If
ftp1.upload( ProjectPath & "Attachments\" & s_name & ".jpg" , "/data/" & s_name & ".jpg" ,True)
r("近照")="/data/" & s_name & ".jpg "
End If
[此贴子已经被作者于2012-10-23 14:47:38编辑过]