Foxtable(狐表)用户栏目专家坐堂 → foxtable 照片传上服务器但在窗口上浏览时不显示


  共有9846人关注过本帖平板打印复制链接

主题:foxtable 照片传上服务器但在窗口上浏览时不显示

帅哥哟,离线,有人找我吗?
kmzb56
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:528 积分:5034 威望:0 精华:0 注册:2012/4/6 19:31:00
foxtable 照片传上服务器但在窗口上浏览时不显示  发帖心情 Post By:2012/10/23 14:43:00 [只看该作者]

  我用了外部数据源,也用了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编辑过]

 回到顶部