很多狐友都不知道VFP,如何显示网络上的图片,今天加菲猫就写一点小代码,轻巧完成这个功能。
1 拖出一个图像控件Image1
2 拖出一个按钮Command1
3 click事件添加如下代码:
TEXT TO id noshow
http://www.mzvfp.com/images/wind/logo.png
ENDTEXT
http = CreateObject("Microsoft.XMLHTTP")
http.Open("GET", id, .f.)
http.send()
thisform.image1.PictureVal= http.responseBody
thisform.Refresh()
如果用猫框 用Qiyu_HttpClient类
cUrl="http://www.mzvfp.com/images/wind/logo.png"
Qiyu_HttpClient =Newobject("Qiyu_HttpClient","Qiyu_HttpClient.prg")
Qiyu_HttpClient.DataType="BIN" &&数据类型 string 字符串 bin 二进制流
Thisform.image1.PictureVal=Qiyu_HttpClient.Send(cUrl)
Qiyu_HttpClient VFP做前端应用的核心类了,有很多有趣的玩法。
猫框即加菲猫开发的祺佑三层开发框架,特点是C/S B/S APP 小程序 公众号都可以用它开发,拥有少写代码,极速开发的特点。