- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何直接获取FTP上的图片，无需下载到本地？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=31641)
-- 发布时间：2013/4/18 15:07:00
-- [求助]如何直接获取FTP上的图片，无需下载到本地？
如题？
-- 发布时间：2013/4/18 15:09:00
--
http://www.foxtable.com/help/topics/0812.htm
-- 发布时间：2013/4/18 15:31:00
--
picturbox必须绑定到某一列
Dim pbx As WinForm.PictureBox = Forms("窗口1").Controls("PictureBox1")
属性设置为远程文件
pbx.Image = GetImage(“\\服务器上的图片地址”)
并不能显示图片
-- 发布时间：2013/4/18 15:35:00
--
picturbox必须绑定到某一列
Dim pbx As WinForm.PictureBox = Forms("窗口1").Controls("PictureBox1")
属性设置为远程文件
pbx.Image = GetImage(“\\服务器上的图片地址”)
并不能显示图片
-- 发布时间：2013/4/18 16:04:00
--
用这个吧，属性不需要设置为远程也可用
Dim image_address As String = " ftp://zhanshang:138238@egridsoft.com/images/1.wmf"
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
-- 发布时间：2013/4/18 16:08:00
--
谢谢 试试 果然高手在民间
-- 发布时间：2013/4/18 16:12:00
--
hanxun 这个我在好几个月之前 就贴出来了.在线看图片.
-- 发布时间：2013/4/18 16:17:00
--
没注意啊，老大
-- 发布时间：2013/4/18 16:35:00
--
Dim s As String = CurrentTable.Current("sys_图片")
s = s.Replace("\\","/")
Dim image_address As String = " ftp://***:****@192.168.0.10" & s
Output.Show(image_address)
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)
Dim pbx As WinForm.PictureBox = Forms("窗口1").Controls("PictureBox1")
pbx.SizeMode = ImageSizeMode.Zoom
pbx.Image=bmp
好用 不过这里URL地址要稍作改动
-- 发布时间：2013/4/18 20:09:00
--
兄，如果是文件呢？可不可以也直接打开，不用下载到本地呢？