用Delphi XE7 Indy写的微信公众平台示例

时间:2018-02-16 17:23:14
【文件属性】:

文件名称:用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)

网友评论

  • 测试不成功啊,还有做的太简单,分数太高
  • 有一定的参考价值
  • 还可以,看看用用就行。
  • 不错的资源.分太高了.
  • 可以用,可以借鉴
  • 非常不错,值得初学者试试
  • 学习了,好东西,挺简单的,关键在于JSON数据处理
  • 用了还不错
  • 这么高的分数。额。。。
  • 分太高了,刚刚接触,忍痛下载
  • 可以运行 报错的是缺少ssl 这里下载 http://download.csdn.net/download/kexing/2907825
  • 太简单了!10编译不能用!
  • 64位编译通过但获取token出错
  • 微信来了,DELPHI是否在这方面的技术不多,难得的资源,好好学习一下。
  • 非常感谢,确实好用 。
  • 非常感谢,确实好用,顶楼主
  • 太简单了,还能再进一步完善
  • 可正常编译,参考学习
  • 分高了,有点参考价值
  • 简单了点,分高了,有点参考价值
  • 可以用,不过有点贵。呵呵。
  • 微信API相关的东西,不错,谢谢楼主分享。
  • 谢谢楼主分享,好东西。
  • 不怎么会用,我用C#就很容易上手,这个DELPHI的例子,看不懂
  • 该资源还可以进一步完善一下,让初学者更容易入门。
  • 谢谢分享了,对我确实有帮助
  • 确实有用,谢谢楼主
  • 太简单了点,应用程序没有太大用处,有没有谁做过ISAPI部署到IIS上?XE8的intraweb不能生产可用的ISAPI,该用什么架构来做?
  • 最近在找相关的DEMO,下载看看 多参照学习下。多谢楼主分享。
  • 似乎比博文里要少一些东西。不过还是有参考价值的。 thx!