文件名称:用Delphi XE7 Indy写的微信公众平台示例
文件大小:59KB
文件格式:RAR
更新时间:2018-02-16 17:23:14
Delphi XE7 Indy 微信公众平台
Delphi XE7 Indy的IdHTTP写的微信公众平台,只做了部分功能,希望大家能用上 temp := JSONObject.Values['subscribe'].ToString; Memo1.Lines.Add('subscribe:' + temp); temp := JSONObject.Values['openid'].ToString; Memo1.Lines.Add('openid:' + temp); temp := JSONObject.Values['nickname'].ToString; Memo1.Lines.Add('nickname:' + temp); temp := JSONObject.Values['sex'].ToString; Memo1.Lines.Add('sex:' + temp); temp := JSONObject.Values['city'].ToString; Memo1.Lines.Add('city:' + temp); temp := JSONObject.Values['country'].ToString; Memo1.Lines.Add('country:' + temp); temp := JSONObject.Values['province'].ToString; Memo1.Lines.Add('province:' + temp); temp := JSONObject.Values['language'].ToString; Memo1.Lines.Add('language:' + temp); temp := JSONObject.Values['headimgurl'].ToString; Memo1.Lines.Add('headimgurl:' + temp); temp := JSONObject.Values['subscribe_time'].ToString; Memo1.Lines.Add('subscribe_time:' + temp); temp := JSONObject.Values['remark'].ToString; Memo1.Lines.Add('remark:' + temp);
【文件预览】:
wechattest
----http.identcache(62B)
----main.pas(8KB)
----http.res(61KB)
----main.dfm(4KB)
----http.dproj.local(671B)
----http.dpr(228B)
----http.dproj(24KB)