实现在pb中显示一个网页连接的图片

pb 专栏收录该内容
27 篇文章 0 订阅

 首先我在窗口里插入了一图片控件:p_1,简单在clicked事件里写入如下代码,也可在其它地方触发。下面的代码通用

Integer   fh,   ret
Blob   Emp_pic
String   txtname,   named
String   defext   =   "jpeg "
String   Filter   =   "All   Files   (*.*),*.* "  

//     http://image2.sina.com.cn/ent/pc/2007-03-23/55/U1326P28T55D13778F918DT20070323080612.jpg   (如:目标图片,直接在IE里能打开)

//打开选择文件对话框,加上这句后,在对话框内输入上面的地址回车能显示(图片保存在临时文件夹里,所以能显示),问题是不要这句行吗?
//或者实现getfileopenname自动打开指定连接,然后自动关闭,返回txtname的临时文件路径
//ret   =   GetFileOpenName( "Open   Bitmap ",   txtname,   &
// named,   defext,   Filter)
txtname   =   "http://image2.sina.com.cn/ent/pc/2007-03-23/55/U1326P28T55D13778F918DT20070323080612.jpg "
IF   ret   =   1   THEN
fh   =   FileOpen(txtname,   StreamMode!)//为何这里返回-1,能解决吗?
IF   fh   <>   -1   THEN
//读数据,假定文件长度不超过32765个字节
FileRead(fh,   Emp_pic)
FileClose(fh)
//设置图片
p_1.SetPicture(Emp_pic)
messagebox( ' ',txtname)
END   IF
END   IF

 

放一个图片按钮控件,
然后添加一个statictext的控件,使其连接到某个网址把它设为不可见的,
然后在图片按钮的click事件中触发statictext控件的click事件就可以了

 

  • 1
    点赞
  • 1
    评论
  • 0
    收藏
  • 扫一扫,分享海报

评论 1 您还未登录,请先 登录 后发表或查看评论
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值