VFP下载公众号消息图片,小白入门DAY2

加菲猫的VFP

发布于 2023-08-21 17:13:32

3191

VFP接收到的消息如下

<xml><ToUserName><![CDATA[gh_63145a34e897]]></ToUserName>
<FromUserName><![CDATA[oljsK6OgHA9ftJxuCUWg7cFylj6Y]]></FromUserName>
<CreateTime>1685926602</CreateTime>
<MsgType><![CDATA[image]]></MsgType>
<PicUrl><![CDATA[http://mmbiz.qpic.cn/mmbiz_jpg/28C85ia6icK9ic516icU8icEjtxbo83JOlicG6r8Pic2mKrVg2OhonMqOfC1ibGcCkNMVB72vZV2rvicibAbhPUrTUTREGaw/0]]></PicUrl>
<MsgId>24136667109038949</MsgId>
<MediaId><![CDATA[zSTjefyWWZWg_NdXCnN51BguAa1A_UyvnPoMOwbXoiVuFGMe4Iz_VSSWaa48DMk6]]></MediaId>
</xml>

图片消息的关键在于PicUrl 与MediaId

方法一：我们把PicUrl 下载下来即可（压缩图）


cUrl=this.getkeyvalue(MsgText,"PicUrl")    
Qiyu_HttpClient =Newobject("Qiyu_HttpClient","Qiyu_HttpClient.prg")        
Qiyu_HttpClient.DataType="bin"    &&数据类型 string 字符串  bin 二进制流        
cReturn= Qiyu_HttpClient.Send(cUrl)
If Isnull(cReturn)
  ?Qiyu_HttpClient.msg
Else
  STRTOFILE(cReturn,SYS(2015)+".jpg")
Endif

方法二：我们通过MediaId去微信服务器下载上传的素材。（原图）

cMediaId=This.getkeyvalue(MsgText,"MediaId")
oMedia=This.getMedia(cMediaId)  &&返回对象
IF ISNULL(oMedia)
   ERROR this.msg
ENDIF 
?"文件名",oMedia.filename
Strtofile(oMedia.filedata,oMedia.filename)  &&多媒体数据

本文参与腾讯云自媒体同步曝光计划，分享自微信公众号。

原始发表：2023-06-05，如有侵权请联系 cloudcommunity@tencent.com 删除

服务器