欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  微信小程序

使用delphi+intraweb进行微信消息处理

程序员文章站 2022-04-04 10:32:48
...
在第二讲使用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,发现根本没有这个工程,上官网重新下载例子工程,呵呵,终于有了!打开代码一看,原来如此!跟第一讲一样就是一行代码难受我好几天。

亲们看吧:

使用delphi+intraweb进行微信消息处理

就是那个“RegisterContentType”方法,呵呵,你能想到吗?帮助里面有提到吗?我靠!

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

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

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

使用delphi+intraweb进行微信消息处理

TEventHandler类:

使用delphi+intraweb进行微信消息处理

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

使用delphi+intraweb进行微信消息处理

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

经我反复测试,那个“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;

/// <summary>
/// 把微信xml中获取的CreateTime字段值当做参数传入函数
/// 即可将微信的int类型的时间转换成TDatetime类型
/// </summary>
/// <returns>TDateTime</returns>

function ConvertWxDtToDateTime(wxDt: string): TDateTime;
var
i64: Int64;
begin
i64 := StrToInt64(wxDt);
Result := IncSecond(GetWxBaseDt, i64 + 3600*8);
end
;

更多使用delphi+intraweb进行微信消息处理相关文章请关注PHP中文网!

相关标签: 微信开发