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


  共有9750人关注过本帖树形打印复制链接

主题：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lin_hailun
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00 		  发帖心情 Post By：2012/10/23 15:45:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2012/10/23 15:50:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
kmzb56
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：528 积分：5034 威望：0 精华：0 注册：2012/4/6 19:31:00 		  发帖心情 Post By：2012/10/23 16:17:00 [只看该作者]

查了一下：觉得这个些代码有用，
   Dim image_address As String = "XXXXX"   这个参考帮助的这个

  ftp://zhanshang:138238@egridsoft.com/public/isam.zip"

 

Dim wr As system.net.WebRequest = system.net.WebRequest.Create(image_address)
    Dim res As system.net.WebResponse= wr.GetResponse
    Dim bmp As New Bitmap(res.GetResponseStream)
    e.Form.Controls("PictureBox1").SizeMode = ImageSizeMode.Zoom
    e.Form.Controls("PictureBox1").Image=bmp


但我还是没弄懂，第一行这个"XXXXX"是什么意思？是网址？还是普通字符串？

[此贴子已经被作者于2012-10-23 16:17:14编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2012/10/23 16:24:00 [只看该作者]

网址

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03125 秒, 4 次数据查询