| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- foxtable 照片传上服务器但在窗口上浏览时不显示 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=24791) |
| -- 作者：kmzb56 -- 发布时间：2012/10/23 14:43:00 -- foxtable 照片传上服务器但在窗口上浏览时不显示 我用了外部数据源，也用了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 -- 发布时间：2012/10/23 15:45:00 -- 楼主看看这个帖子吧。 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=24531&authorid=0&page=0&star=1 |
| -- 作者：狐狸爸爸 -- 发布时间：2012/10/23 15:50:00 -- 还有这个：
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=13634&skin=0
|
| -- 作者：kmzb56 -- 发布时间：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) 但我还是没弄懂，第一行这个"XXXXX"是什么意思？是网址？还是普通字符串？ [此贴子已经被作者于2012-10-23 16:17:14编辑过]
|
| -- 作者：狐狸爸爸 -- 发布时间：2012/10/23 16:24:00 -- 网址 |