开发微信服务器接口的实例教程

Delphi/Pascal code?

unit Unit1;

interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, IdBaseComponent,
  IdComponent, IdCustomTCPServer, IdCustomHTTPServer, IdHTTPServer, IdContext,
  IdHashSHA, IdGlobal;
 
type
  TForm1 = class(TForm)
    IdHTTPServer1: TIdHTTPServer;
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure IdHTTPServer1CommandGet(AContext: TIdContext;
      ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
  private
    { Private declarations }
  public
    { Public declarations }
    function SHA1(Input: String): String;
    function CheckSignature(ARequestInfo: TIdHTTPRequestInfo): boolean;
  end;
 
var
  Form1: TForm1;
Const
  Token = &＃39;weixin&＃39;;
 
implementation
 
{$R *.dfm}
 
function TForm1.SHA1(Input: String): String;
begin
  with TIdHashSHA1.Create do
  try
    Result := LowerCase(HashBytesAsHex(TidBytes(Bytesof(Input))));
  finally
    Free;
  end;
end;
 
 
function TForm1.CheckSignature(ARequestInfo: TIdHTTPRequestInfo): boolean;
var
  signature, timestamp, nonce, echostr: String;
  tmpstr: TStringList;
  temp: String;
begin
  tmpstr := TStringList.Create;
  try
    signature := ARequestInfo.Params.Values[&＃39;signature&＃39;];
    timestamp := ARequestInfo.Params.Values[&＃39;timestamp&＃39;];
    nonce := ARequestInfo.Params.Values[&＃39;nonce&＃39;];
 
    echostr := ARequestInfo.Params.Values[&＃39;echostr&＃39;];
    tmpstr.Add(Token);
    tmpstr.Add(timestamp);
    tmpstr.Add(nonce);
    tmpstr.Sort;
    temp := StringReplace(tmpstr.text, #13#10, &＃39;&＃39;, [rfReplaceAll]);
    Result := SHA1(temp) = signature;
  finally
    tmpstr.Free;
  end;
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  IdHTTPServer1.Active := True;
end;
 
procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
  Memo1.Lines.Add(&＃39;123&＃39;);
  if CheckSignature(ARequestInfo) then
  if ARequestInfo.Params.Values[&＃39;echostr&＃39;] <> &＃39;&＃39; then
  begin
    Memo1.Lines.Add(ARequestInfo.Params.Values[&＃39;echostr&＃39;]);
    AResponseInfo.ContentType := &＃39;text/html; charset=UTF-8&＃39;;
    AResponseInfo.ContentText := ARequestInfo.Params.Values[&＃39;echostr&＃39;];
  end;
end;
 
end.

以上就是开发微信服务器接口的实例教程的详细内容，更多请关注 第一PHP社区 其它相关文章！