以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]狐表如何显示网络图片(已解决)  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=13634)

--  作者:bohe
--  发布时间:2011/10/20 16:25:00
--  [求助]狐表如何显示网络图片(已解决)

学籍管理中想显示学生照片(不大),用浏览器控件不理想,网上找到一方法,不懂,请教各位高手

 

VB.net如何获得并显示网上图片


1. 先通过URI建立一个WebRequest(请参考WebRequest构造函数):
Dim wr As WebRequest = WebRequest.Create("http://www.jxdayz.com/tp/ep1.bmp")

2. 然后通过其GetResponse方法得到一个WebResponse:
Dim res As WebResponse= wr.GetResponse

3. 通过WebResponse.GetResponseStream方法得到的流来创建Bitmap:
Dim bmp As New Bitmap(res.GetResponseStream)

4. 这样,就能显示图片了:
PictureBox1.Image=bmp

 

 

看到有朋友需要,现附上我做的例子,其中的ftp和web是在我服务器上,测试用。

 

 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:管理项目9.rar

[此贴子已经被作者于2012-10-13 17:20:42编辑过]

--  作者:lihe60
--  发布时间:2011/10/20 16:27:00
--  

如何把照片存在SQL上?


--  作者:bohe
--  发布时间:2011/10/20 16:33:00
--  

不想把照片放入数据库,这样数据库会很大的,我是想用ftp上传,然后搭个网站,就可以访问图片了

 

http://www.jxdayz.com/tp/ep1.bmp

[此贴子已经被作者于2011-10-20 16:33:18编辑过]

--  作者: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
--  发布时间:2011/10/20 17:11:00
--  
现在主要是上传命令,狐表自带的上部有个显示框,能去掉不?
--  作者:baoxyang
--  发布时间:2011/10/20 17:15:00
--  
楼主,这样显示图片速度如何?图片放在网站上管理上是否会存在不便呀
--  作者:bohe
--  发布时间:2011/10/20 17:21:00
--  

只要不太大应该没问题,数据库放在服务器上,开个ftp和web(最小权限),用ftp上传图片,用web读图片

这样很方便,当然单机版就没必要这样了。


--  作者:狐狸爸爸
--  发布时间:2011/10/20 17:24:00
--  
收藏,学习。
--  作者:hanxuntx
--  发布时间:2011/10/20 22:45:00
--  

学习了。


--  作者:lihe60
--  发布时间:2011/10/21 9:29: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

 

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

这个帮助有介绍吗?