delphi 實現微信開發


大體思路:
1.用戶向服務號發消息,(這里可以是個菜單項,也可以是一個關鍵詞,如:注冊會員。)
2.kbmmw web server收到消息,生成一個圖文消息給微信,在圖文消息中做好自己的url,在url中,可以把第一步消息帶來的openid寫到url的參數表中。
3.用戶點這個圖文消息
4.web server收到這個圖文消息的url,根據這個url,生成一個網頁給微信,這里面關鍵是把openid寫到網頁中
5.用戶填寫這個網頁,提交(提交的同時也把openid也提交回來了)
6.Ok,現在得到我想要的內容,最需要的openid.即那個用戶提交的,就這樣被提交回來了。
7.根據6返回的內容,實現業務邏輯。
 
openid:做為微信用戶,當你關注一個服務號時生成的唯一值,從服務號的角度看,這是你的服務號的關注者。如果你想發消息給你的微信用戶,只能通過這個openid.

進入開發:
首先,在 這里,可以申請一個測試賬號用於開發。過程很簡單,用你的手機號申請,給你手機發個驗證碼,就開通了!
然后,還需要一個靜態IP及80端口,理論上講用動態域名也可以。綁定到你這個開發賬號上。
接下來,你還要熟悉一下微信的API,了解一些基本概念。
現在,就可以用delphi開發了!
 
先要學習一下接入的資料,在 這里,因為原理都在,所以一定要認真閱讀,然后,利用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的目的,就是響應這些消息,與你的微信服務號關注者進行互動!
 
http://blog.sina.com.cn/s/blog_44fa172f0102uzrw.html
http://blog.sina.com.cn/s/blog_44fa172f0102v077.html


免責聲明!

本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。



 
粵ICP備18138465號   © 2018-2025 CODEPRJ.COM