Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]狐表如何显示网络图片（已解决）


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

主题：[求助]狐表如何显示网络图片（已解决）
帅哥哟，离线，有人找我吗？
bohe
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1074 积分：9872 威望：0 精华：0 注册：2008/9/2 11:34:00 		  发帖心情 Post By：2011/10/21 14:00:00 [只看该作者]

没有，来自网上vb.net的资料

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


加好友 发短信
等级：幼狐 帖子：148 积分：1406 威望：0 精华：0 注册：2008/9/10 16:41:00 		  发帖心情 Post By：2011/10/26 18:28:00 [只看该作者]

以下是引用bohe在2011-10-20 17:07:00的发言：

测试通过

狐表显示网络图片

 

Dim wr As system.net.WebRequest = system.net.WebRequest.Create("http://www.jxdayz.com/tp/ep1.bmp")
Dim res As system.net.WebResponse= wr.GetResponse
Dim bmp As New Bitmap(res.GetResponseStream)
Forms("窗口1").Controls("PictureBox1").SizeMode = ImageSizeMode.Zoom
Forms("窗口1").Controls("PictureBox1").Image=bmp

 

使用时只要架个简单的网站，就行，目的仅是提供读取图片而已，最小权限很安全的。

 

 

请问这个公式要放在哪里？？？？？
 回到顶部
帅哥哟，离线，有人找我吗？
huashan_1
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：74 积分：682 威望：0 精华：0 注册：2011/8/27 9:12:00 		  发帖心情 Post By：2012/2/28 15:36:00 [只看该作者]

这就是我想要找的，先看一下能不能实现！如果可以，相当感谢！
 回到顶部
帅哥哟，离线，有人找我吗？
Fotable
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1015 积分：6979 威望：0 精华：0 注册：2012/8/1 18:41:00 		  发帖心情 Post By：2012/10/12 20:29:00 [只看该作者]

看来答案在这里，找的好辛苦呀，还不知效果如何。先试试看，如果picturebox能直接支持 http网络地址图片就好了。
 回到顶部
帅哥哟，离线，有人找我吗？
Fotable
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1015 积分：6979 威望：0 精华：0 注册：2012/8/1 18:41:00 		  发帖心情 Post By：2012/10/12 20:36:00 [只看该作者]

经过测试 gif格式的图片也是可以的

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


加好友 发短信
等级：狐神 帖子：6835 积分：43243 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2012/10/13 8:09:00 [只看该作者]

以下是引用bohe在2011-10-20 17:07:00的发言：

测试通过

狐表显示网络图片

 

Dim wr As system.net.WebRequest = system.net.WebRequest.Create("http://www.jxdayz.com/tp/ep1.bmp")
Dim res As system.net.WebResponse= wr.GetResponse
Dim bmp As New Bitmap(res.GetResponseStream)
Forms("窗口1").Controls("PictureBox1").SizeMode = ImageSizeMode.Zoom
Forms("窗口1").Controls("PictureBox1").Image=bmp

 

使用时只要架个简单的网站，就行，目的仅是提供读取图片而已，最小权限很安全的。

问个问题，这个效果与网页浏览器控件的功能有没有区别？

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


加好友 发短信
等级：五尾狐 帖子：1074 积分：9872 威望：0 精华：0 注册：2008/9/2 11:34:00 		  发帖心情 Post By：2012/10/13 17:01:00 [只看该作者]

网页浏览器控件不好控制照片显示大小，没有图片控件属性丰富

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


加好友 发短信
等级：五尾狐 帖子：1015 积分：6979 威望：0 精华：0 注册：2012/8/1 18:41:00 		  发帖心情 Post By：2012/10/13 23:23:00 [只看该作者]

还有一个细节需要完善一下

当执行

    Dim wr As system.net.WebRequest = system.net.WebRequest.Create(image_address)

这一句的时候，如果超时错误或者 404错误。就会弹错。

能不能获得 WebRequest 的结果，对这个request是不是成功进行判断。

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


加好友 发短信
等级：五尾狐 帖子：1015 积分：6979 威望：0 精华：0 注册：2012/8/1 18:41:00 		  发帖心情 Post By：2012/10/14 [只看该作者]

        Dim wr As system.net.WebRequest = system.net.WebRequest.Create(image_address)
        Dim res As system.net.WebResponse
        Try
            res = wr.GetResponse
            Dim bmp As New Bitmap(res.GetResponseStream)
            If  not Forms("商品").Opened Then
                Forms("商品").Open
            End If           
            Forms("商品").Controls("PictureBox商品").SizeMode = ImageSizeMode.StretchImage
            Forms("商品").Controls("PictureBox商品").Image=bmp
        Catch ex As Exception
            ' MsgBox(ex.ToString)
        End Try

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


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57584 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2012/10/17 14:34: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

[此贴子已经被作者于2012-10-17 14:34:13编辑过]
 回到顶部
总数 21 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询