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

 首先我在窗口里插入了一图片控件：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事件就可以了