以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  【求教】专业报表是否可以引用URL图片  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=122841)
--  作者：macoo
--  发布时间：2018/8/2 20:52:00
--  【求教】专业报表是否可以引用URL图片
我有一个图章的图片是放在服务器上的，不希望保存在客户端的图片文件夹里面，所以做报表的时候，需要引用URL图片

假设我的图片地址是：http://www.baidu.com/img/bd_logo1.png

如何在专业报表中引用，谢谢。
--  作者：有点甜
--  发布时间：2018/8/2 21:14:00
--  

Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://www.baidu.com/img/bd_logo1.png")
Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse
Dim stm As System.IO.Stream = rsps.GetResponseStream()
Dim reader As New System.IO.StreamReader(stm)
Dim img As new bitmap(stm)

 

Dim doc As New PrintDoc \'定义一个报表对象
Dim rm As New prt.RenderImage \'定义一个图片对象
rm.Image = img
rm.Width = "Parent.Width" \'宽度等于页面宽度
rm.Height = "Auto" \'高度由图片大小自动决定
rm.Style.ImageAlign.StretchHorz = False \'禁止图片水平拉伸
rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center \'居中显示
doc.Body.Children.Add(rm) \'将图片对象加入报表
Doc.Preview() \'预览
--  作者：macoo
--  发布时间：2018/8/2 21:48:00
--  
感谢