[转载红鱼儿]delphi 实现微信开发（2）接入微信公众号平台

先要学习一下接入的资料，在这里，由于原理都在，因此必定要认真阅读，而后，利用Delphi实现一个对应函数，而后申请微信公众平台接口测试账号。
function CheckSignature(const signature, timestamp, nonce, token: string): boolean;
var
 

strs: TStringList;
  tmpStr: string;
begin

  strs := TStringList.Create;
  try
    strs.Add(token);
    strs.Add(timestamp);
    strs.Add(nonce);

    strs.Sort;
    tmpStr := strs[0] + strs[1] + strs[2];
    tmpStr := SHA1(tmpStr);

    if tmpStr = signature then
      Result := True
    else
      Result := False;
  finally
    FreeAndNil(strs);
  end;
end;
函数的返回结果为真时，表示接入成功！该函数，参考 csdn朋友上传的范例，表示感谢。在这个范例中，提供了SHA1函数的单元，因此，你要下载回来。

准备完这个函数，接下来，如何使用这个函数呢？
由于微信服务器是向接入的web服务器发送Get请求，因此，咱们要在本身实现的kbmMW web server的PerformGet方法中来调用这个CheckSignature。

function TDJ_FrmPhoneHTTPService.PerformGet(ClientIdent: TkbmMWClientIdentity; const AURL: string;
  const Args: array of Variant): Variant;
var
  FuncName: string;
  qv: TkbmMWHttpQueryValues;//处理Get请求传递来的参数.
begin

  if Length(Args) < 1 then
    kbmMWRaiseException(KBMMW_ERR_SERVICE_HTTP_URLMISSING, 'Missing URL.')
  else
  begin
    FuncName := UpperCase(copy(Args[0], 2, Length(Args[0]) - 1));
    if FuncName.Equals('WECHAT.HTML') then
    begin
      // 转微信接口
      qv := TkbmMWHttpQueryValues.Create;
      qv.AsString := Args[2];//取得get请求传递来的参数.
      try
        // 验证接入
        if qv.ValueByName['echostr'] <> '' then //若是echostr不为空，代表是验证请求
        begin
          Result := '';
          if dmwx. CheckSignature(qv.ValueByName['id'], qv.ValueByName['signature'],
            qv.ValueByName['timestamp'], qv.ValueByName['nonce']) then
            Result := qv.ValueByName['echostr']; //若是验证成功，返回echostr，告知微信服务器验证成功.         end;         SetResponseMimeType('text/HTML');         SetResponsecharset('utf-8');       finally         FreeAndnil(qv);       end;       exit;//结束本次对Get的响应.     end; ....略去下面的实现 在实际的项目，我是这样实现的，将微信的接口代码，实如今一个单元wechatImpl中，再实现一个DataModule，对wechatImpl的方法进一步封装，封装的时候，来实现对数据库的操做。 仍是以验证为例，来看一下DataModule中是如何实现的？ function tdmwx.CheckSignature(id, signature, timestamp, nonce: string): Boolean; begin   result:=False;   if not qWXFWH.Active then     qWXFWH.Open;   if qWXFWH.Locate('fid', VarArrayOf([id]), []) then//查询服务号表，是否存在对应的id记录   begin     if wechatImpl.CheckSignature(signature, timestamp, nonce, qWXFWH.FieldByName('FToken').AsString)//存在，则取在表中定义的token值，去调用验证函数.     then       Result := true;   end; end; 其中，qWXFWH是一个kbmMWuniDACQuery对象，用以保存微信服务号的一张表，表结构以下： CREATE TABLE WX_FWH (     FID INTEGER,//一个服务号的id，达到管理多个服务号的目的。     FTOKEN VarChar(32),//每一个服务号的token值     FAPPID VarChar(16),     FAPPSECRET varchar(16),     FACCESSTOKEN VARCHAR (512),     FEXPIRESIN INTEGER,     FGETDATE DATETIME); 在注册服务器时，要先在这个表中增长注册信息，好比：id=1,token=kbmmwtoken1 对应的注册内容为： url=www.test.cc/wechat.html?id=1 token=kbmmwtoken1 这样，当微信服务器发送验证请求时，会把id看成参数一并传递过来，datamodule的CheckSignature方法，会根据id的值，取得数据表中定义token值，而后再调用微信接口的验证方法。 总结一下上面的内容，为了实现微信接入，我将实现的代码分为三层： 1.在kbmmw web server的get方法中调用数据库层的验证函数 2.在数据库层实现验证函数，从取表中取得预先定义的微信号的相关信息，如id,token，再调用具体的微信接口 3.实现具体的微信接口，供数据库层调用。 计划等微信接口的实现所有完成后共享给朋友们，无奈近期时间紧，琐事多，还须要一段时间。就先把实现完成的思路先放上来分享。 对接入web server的url地址验证是作微信服务的第一步，因此，上面相关的内容必定要理解，才可继续进行下去。 其实是这样： 关注你服务号的微信用户，向你的服务号发送消息，微信平台，会往你验证的url进行转发，这就至关于你微信服务号的微信用户，向你的Web server发送消息。你开发的Web server的目的，就是响应这些消息，与你的微信服务号关注者进行互动！