想把微信公众平台接口转成DELPHI的，那位大侠给个思路

jason_xh 2012-12-15 01:54:26

以前一直在做数据库方面的开发，涉及网络的很少。
现在需要做一个微信公众平台连接数据库的开发，没思路了。大家看看这个PHP的例子给个思路。是否可以实现。
以下是PHP的代码：
<?php
/**
* wechat php test
*/

//define your token
define("TOKEN", "weixin");
$wechatObj = new wechatCallbackapiTest();
$wechatObj->valid();

class wechatCallbackapiTest
{
public function valid()
{
$echoStr = $_GET["echostr"];

//valid signature , option
if($this->checkSignature()){
echo $echoStr;
exit;
}
}

public function responseMsg()
{
//get post data, May be due to the different environments
$postStr = $GLOBALS["HTTP_RAW_POST_DATA"];

//extract post data
if (!empty($postStr)){

$postObj = simplexml_load_string($postStr, 'SimpleXMLElement', LIBXML_NOCDATA);
$fromUsername = $postObj->FromUserName;
$toUsername = $postObj->ToUserName;
$keyword = trim($postObj->Content);
$time = time();
$textTpl = "<xml>
<ToUserName><![CDATA[%s]]></ToUserName>
<FromUserName><![CDATA[%s]]></FromUserName>
<CreateTime>%s</CreateTime>
<MsgType><![CDATA[%s]]></MsgType>
<Content><![CDATA[%s]]></Content>
<FuncFlag>0</FuncFlag>
</xml>";
if(!empty( $keyword ))
{
$msgType = "text";
$contentStr = "Welcome to wechat world!";
$resultStr = sprintf($textTpl, $fromUsername, $toUsername, $time, $msgType, $contentStr);
echo $resultStr;
}else{
echo "Input something...";
}

}else {
echo "";
exit;
}
}

private function checkSignature()
{
$signature = $_GET["signature"];
$timestamp = $_GET["timestamp"];
$nonce = $_GET["nonce"];

$token = TOKEN;
$tmpArr = array($token, $timestamp, $nonce);
sort($tmpArr);
$tmpStr = implode( $tmpArr );
$tmpStr = sha1( $tmpStr );

if( $tmpStr == $signature ){
return true;
}else{
return false;
}
}
}

?>

我尝试使用IdHTTPServer控件，可以解析POST过来的数据，后面没有思路了。那位高手给个思路！

谢谢！

...全文

2654 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

xiaoxian251 2014-09-23

打赏
举报

用RTCClient组件吧

caonumber 2014-09-21

打赏
举报

关注。。。。成功了希望多多分享。让d一直活下去

phosphor3000 2014-09-19

打赏
举报

嗯，这个我也在关注希望能有实质性的东西出来。

lixianxiang 2014-03-22

打赏
举报

我也在做微客多的会员接口，用TIdHttpServer做http server，但是，发现用手机和IE提交过来的数据包（json格式，跟踪 RequestInfo.ContentType='application/json;charset=utf8'），在OnCommandGet中 RequestInfo.FromParams 接收到的中文是乱码（？），不管是用UTF8Decode(RequestInfo.FromParams) 还是直接将 RequestInfo.FromParams 显示出来，都是乱码（？），不知道如何解决？我怀疑 Delphi的TIdHttpServer 是不是只能用 TIdHttp作客户端提交？希望高手指点下

lyhoo163 2014-03-22

打赏
举报

关注。。。。。。

lobtao 2014-03-12

打赏
举报

盒子里已经有人做了例子程序了，还不错

NumberTop 2014-03-09

打赏
举报

我也在研究. 楼上都对,但没有一个人给出方法,但网上却有人已经做出过类似的接口封装我看了一下官方PHP代码示例,拿Delphi做微信平台最应该注意的应该有两点: 一是传入传出的编码一致问题二是用于身份验证的sha1函数,在Delphi中的实现不容易,通常不能与PHP所生成的一致其它方面做过HTTP通讯的应该不难掌握大量的接口封装工作以及排错处理,是比较耗时的,反正我是没时间去研究了,期待楼主成功吧