使用delphi+intraweb进行微信开发3—微信消息处理

内容简介：使用delphi+intraweb进行微信开发3—微信消息处理

在第二讲 使用delphi+intraweb进行微信开发2—intraweb以.net方式发布（以asp.net mvc4模式部署）在IIS（.net虚拟主机）上 我们成功把iw应用部署在了云虚拟主机上，在这一讲里，我们将延续第一讲的内容回归微信开发，这次讲解微信消息处理。

首先明确几个知识点：

1、微信服务器转发用户消息使用的http post方法，在第一讲中关于微信服务器的http数据提交方法我们并没有细说，实际上微信进行接入验证使用的是http get方法；而转发用户消息则使用的http post方法，并且转发消息时消息以xml格式进行编码，ContentType=text/xml。

2、微信服务器消息转发是可以选择三种数据传递方式的，一、明文；二、加密；三、混合。在这一讲了为了调试方便，我们采用明文方式传递数据。下一讲再讲解消息加密方式的处理。

本来感觉这一讲的内容没什么难度，要是.net、 php 甚至是delphi的webbroker都应该很容易实现。但是用上iw后发现问题很复杂！

iw处理http请求数据的类是THttpRequest，但是我看遍了THttpRequest的属性和方法就没有找到直接存取http content的地方，只有个似乎是读取http content的THttpRequest.ContentFields属性，但是实际执行代码并调试后发现，这个属性根本无法取到微信服务器传递过来的xml文件，内容始终是空的。

经过反复验证发现这个ContentFields属性只能对http request时ContentType为application/x-www-form-urlencoded时传递的键值对内容有效，也就是对于表单类型的提交是可以取到数据的，在第一讲的微信接入中就是这种情况，微信传递过来的signature、timestamp、nonce等字段值都是可以通过THttpRequest.ContentFields取出来的。

事情发展到现在彻底陷入困境了，那么ContentType=text/xml时如何用THttpRequest类的方法获取内容呢？经过研究发现THttpRequest类有个Files属性，当时感觉希望就在这个属性上，毕竟xml也可以当做文件来上传不是吗？呵呵，遗憾的是，我当时无论怎么实验（反汇编dcu都用上了），这个属性的文件数始终是0，这个希望也断了！

于是乎在iw官方的问题贴论坛上发帖留言开始了求教之路，1天、2天始终有人看没人回，在屡次搜索相关提问后发现了曾经有人和我遇到同样的问题，当时作者给了回应说提问者表示不清楚要求发电子邮件给作者代码，呵呵，算是抓到稻草了，立即冒充提问者给作者发送我的代码并附上了提问，呀呀，石沉大海啊，呵呵，iw真是想爱你这么的不容易。

没有办法继续搜索其他人的提问吧，功夫不负有心人啊，终于找到了一个帖子，里面提问者和我的问题不相同，但是回答者提到iw demos里面有个PostFormData示例工程，立即查看我下载的demo，发现根本没有这个工程，上官网重新下载例子工程，呵呵，终于有了！打开代码一看，原来如此！跟第一讲一样就是一行代码难受我好几天。

亲们看吧：

就是那个“ RegisterContentType ”方法，呵呵，你能想到吗？帮助里面有提到吗？我靠！

好吧，总算可以了，那么接着说，增加了content-type注册之后，就可以用THttpRequest.Files获取post过来的xml了，这倒是和我最初的预测差不多，小安慰一下。

亲们，我的血泪历程告诉大家，针对 iw这种帮助不完善又没源代码的web开发框架，提问区查找和iw demos就是我们最大的依靠了，要用iw就赶紧下载个最新的demo看看吧。

剩下就没什么好说了，贴个代码截图大伙看看，照着微信的文档做，比较容易：

TEventHandler类：

部署到服务器上后用微信客户端测试截屏：

如果你看到这里了，好吧，我再告诉你个小秘密吧：

经我反复测试，那个“RegisterContentType”方法只在SA、ISAPI模式下有效，当我按照第二讲说的编译成library并按照aspx模式部署好后，无论如何也取不到xml文件，仅仅是工程类型由于部署要求做了个变化，其它代码都没有任何变化，就是不知道是为什么，上图大伙看到的截图是我以ISAPI方式部署在我服务器上实现的。

最后再附上微信消息的xml格式中日期字段的编解码函数，微信的日期类型是整形值，所以需要将整形值转成TDateTime类型，微信的整形值的计算是以'1970-01-01 00:00:00'作为基准时间计算的秒差。另外需要注意的是，微信时间是UTC时间，也就是转换成北京时间要加上8个小时。

/// <summary>
/// 微信的日期时间都是int64类型，是和1970-01-01 00:00:00之间的秒差，这个函数用来返回1970-01-01 00:00:00时刻
/// </summary>
/// <returns>1970-01-01 00:00:00</returns>
function   GetWxBaseDt :   TDateTime ;
begin
  Result   :=   VarToDateTime ( '1970-01-01 00:00:00' );
end ;

/// <summary>
/// 获取适合微信使用的当前日期，以int64表示，是当前时间和1970-01-01 00:00:00之间的秒差
/// 然后再减去3600*8转成UTC时间秒差即为微信时间
/// </summary>
/// <returns>当前时间，int64格式</returns>

function   GetWxNow :   Int64 ;
begin
  Result   :=   SecondsBetween ( Now ,   GetWxBaseDt )   -   3600   *   8 ;
end ;
function   GetWxNowStr :   string ;
var
  i64 :   Int64 ;
begin
  i64   :=   GetWxNow ;
  Result   :=   IntToStr ( i64 );
end ;

以上所述就是小编给大家介绍的《使用delphi+intraweb进行微信开发3—微信消息处理》，希望对大家有所帮助，如果大家有任何疑问请给我留言，小编会及时回复大家的。在此也非常感谢大家对 码农网 的支持！

查看所有标签

猜你喜欢:

• [译] 使用服务网格进行事件驱动消息的潜力
• 消息中间件面试题：如果让你写一个消息队列，该如何进行架构设计？
• 【技术分享】通过短信进行XSS攻击：在Verizon Message应用中利用文本消息进行攻击
• .net core使用Pipelines进行消息IO合并
• 基于事件驱动机制，在Service Mesh中进行消息传递的探讨
• 使用delphi+intraweb进行微信开发4—微信消息加解密

本站部分资源来源于网络，本站转载出于传递更多信息之目的，版权归原作者或者来源机构所有，如转载稿涉及版权问题，请联系我们。