示例代碼已經(jīng)放出！請(qǐng)移步使用delphi+intraweb進(jìn)行微信開(kāi)發(fā)1~4代碼示例進(jìn)行下載，雖為示例代碼但是是從我項(xiàng)目中移出來(lái)的，封裝很完備適于自行擴(kuò)展和修改。?

iw14.0.50來(lái)了，在新的版本中最吸引我的就是增加了完善的httphandler功能：終于可以直接在地址欄輸入url打開(kāi)iw功能頁(yè)面了；可以自由使用EasyUI等js框架了；顯示模式對(duì)話(huà)框也不再七繞八繞惹人煩了；呵呵，我感覺(jué)iw第一次接近主流web開(kāi)發(fā)工具了！

興奮過(guò)了，來(lái)嘗試一下吧。其實(shí)iw的坑還是挺多的，雖然已經(jīng)接近主流了，但是，后面慢慢都會(huì)說(shuō)到…

1、新建一個(gè)iw工程，選擇Stand Alone Server / Service ，這種模式下進(jìn)行開(kāi)發(fā)是最理想的，調(diào)試很方便，正式發(fā)布時(shí)可以再建立一個(gè)library型的工程發(fā)布到.net服務(wù)器上。（是的，大家沒(méi)有看錯(cuò)，現(xiàn)在iw已經(jīng)脫離了isapi模式，可以像部署.net mvc4應(yīng)用一樣部署到iis上，后面會(huì)解釋?zhuān)?net虛擬主機(jī)也可以發(fā)布iw應(yīng)用了！巨大的進(jìn)步。）

?

2、保存工程后在工程中添加一個(gè)新的單元文件，例如起名為wxapi.pas，這個(gè)文件中的代碼將承擔(dān)微信接入工作。代碼如下：

interface

uses ? ? ? ?
? Classes,?IW.Content.Base,?System.SysUtils,HTTPApp,?IWApplication, ? ? ? ?
? IW.HTTP.Request,?IW.HTTP.Reply; ? ? ? ?

type ? ? ? ?
? ///

? ? ? ?
? /// 從TContentBase繼承下來(lái)的類(lèi)，就相當(dāng)于asp.net中的httphandler ? ? ? ?
? ///

? ? ? ?
? TWxApi?=?class(TContentBase) ? ? ? ?
? protected ? ? ? ?
??? function?Execute(aRequest:?THttpRequest;?aReply:?THttpReply;?const?aPathname:?string;?aSession:?TIWApplication;?aParams:?TStrings):?Boolean;?override; ? ? ? ?
? public ? ? ? ?
??? constructor?Create;?override; ? ? ? ?
? end; ? ? ? ?

implementation ? ? ? ?

uses ? ? ? ?
? ServerController,?UserSessionUnit,?Crypt.SHA1; ? ? ? ?

{ TWxApi } ? ? ? ?

constructor?TWxApi.Create; ? ? ? ?
begin ? ? ? ?
? inherited; ? ? ? ?
? // 文件不需要真實(shí)存在 ? ? ? ?
? FileMustExist?:=?False; ? ? ? ?
end; ? ? ? ?

function?TWxApi.Execute(aRequest:?THttpRequest;?aReply:?THttpReply; ? ? ? ?
? const?aPathname:?string;?aSession:?TIWApplication; ? ? ? ?
? aParams:?TStrings):?Boolean; ? ? ? ?
var ? ? ? ?
? signature:?string; ? ? ? ?
? timestamp:?string; ? ? ? ?
? nonce:?string; ? ? ? ?
? echostr:?string; ? ? ? ?
? strs:?TStringList; ? ? ? ?
? tmpStr:?string; ? ? ? ?
begin ? ? ? ?
? Result?:=?True; ? ? ? ?

? signature?:=?aParams.Values['signature']; ? ? ? ?
? timestamp?:=?aParams.Values['timestamp']; ? ? ? ?
? nonce?:=?aParams.Values['nonce']; ? ? ? ?
? echostr?:=?aParams.Values['echostr']; ? ? ? ?

? strs?:=?TStringList.Create; ? ? ? ?
? strs.Add('MyTestToken');??? // Token，要和微信接口配置信息保持一致 ? ? ? ?
? strs.Add(timestamp); ? ? ? ?
? strs.Add(nonce); ? ? ? ?
? strs.Sort; ? ? ? ?

? tmpStr?:=?strs[0]+strs[1]+strs[2]; ? ? ? ?
? tmpStr?:=?SHA1(AnsiString(tmpstr)); ? ? ? ?

? if?tmpStr=signature?then ? ? ? ?
? begin ? ? ? ?
??? aReply.WriteString(echostr) ? ? ? ?
? end?else?begin ? ? ? ?
??? aReply.WriteString('如果看到這個(gè)提示說(shuō)明此鏈接地址可作為微信接口地址使用。'); ? ? ? ?
? end; ? ? ? ?
? aSession.Terminate; // 釋放會(huì)話(huà)資源，本handler無(wú)需會(huì)話(huà) ? ? ? ?
end; ? ? ? ?

end.

如代碼所示，TContentBase即iw版httphandler的基礎(chǔ)類(lèi)，如果不需要顯示iwForm，從這個(gè)類(lèi)型繼承下來(lái)即可。如果需要使用iwForm還有個(gè)TContentForm基礎(chǔ)類(lèi)可以使用，哇哦，在瀏覽器地址欄輸入url也可以直接打開(kāi)iwform了哦。TWxApi.Execute中的代碼即微信接入的代碼，非常簡(jiǎn)單，不了解的看看微信幫助：微信接入指南。

?

3、在ServerController中注冊(cè)此httphandler，直接貼出ServerController注冊(cè)代碼： ? ? ?
procedure?TIWServerController.IWServerControllerBaseConfig(Sender:?TObject); ? ? ? ?
begin ? ? ? ?
? // 在ServerController.OnConfig事件中注冊(cè)我們定義的微信Handler ? ? ? ?
? // ServerController.OnConfig事件在整個(gè)應(yīng)用程序生命周期中只被運(yùn)行一次 ? ? ? ?
? with?THandlers.Add('',?'wxapi.php',?TWxApi.Create)?do ? ? ? ?
? begin ? ? ? ?
??? CanStartSession?:=?True;??????????? // 從字面上理解是能夠啟動(dòng)會(huì)話(huà) ? ? ? ?
??? RequiresSessionStart?:=?False;????? // 從字面上理解是需要啟動(dòng)會(huì)話(huà)，這兩個(gè)屬性必須進(jìn)行設(shè)置，否則輸入 /wxapi.php 將轉(zhuǎn)向主窗體 ? ? ? ?
??????????????????????????????????????? // 也就是不設(shè)置CanStartSession和RequiresSessionStart，則必須先執(zhí)行/$/start 啟動(dòng)會(huì)話(huà)后才 ? ? ? ?
??????????????????????????????????????? // 能正常訪(fǎng)問(wèn) /wxapi.php頁(yè)面，這個(gè)顯然不是我們需要的。 ? ? ? ?
? end; ? ? ? ?
end;

如代碼所示，紅色的THandlers.Add('',?'wxapi.php',?TWxApi.Create)這段代碼就完成了httphandler的注冊(cè)，在瀏覽器地址欄輸入http://localhost/wxapi.php即可訪(fǎng)問(wèn)剛剛注冊(cè)的這個(gè)控制器。

但是這段代碼中有個(gè)不大不小的坑，詳見(jiàn)我代碼中的注釋。

這個(gè)坑是handler注冊(cè)后啟動(dòng)iw應(yīng)用但是不先在瀏覽器地址欄輸入/$/start啟動(dòng)程序，而是直接輸入/wxapi.php驗(yàn)證httphandler時(shí)失敗，頁(yè)面自動(dòng)導(dǎo)航到主窗體！閱讀幫助后發(fā)現(xiàn)，需要設(shè)置TContentBase.RequiresSessionStart:=false否則會(huì)導(dǎo)致iw應(yīng)用必須先啟動(dòng)會(huì)話(huà)訪(fǎng)問(wèn)主窗體才能使用httphandler，按照幫助的說(shuō)明設(shè)置了TContentBase.RequiresSessionStart:=false雖然直接輸入/wxapi.php不再導(dǎo)航到主窗體了，但是會(huì)提示404代碼錯(cuò)誤，單步跟蹤發(fā)現(xiàn)httphandler代碼確實(shí)已經(jīng)執(zhí)行了，這樣不應(yīng)該出現(xiàn)404錯(cuò)誤，多方查證和實(shí)驗(yàn)發(fā)現(xiàn)還需要設(shè)置TContentBase.CanStartSession?:=?True，呵呵，這個(gè)在幫助中沒(méi)有提到，估計(jì)是新版本新增加的屬性。好了，現(xiàn)在在地址欄輸入http://localhost/wxapi.php能正常打開(kāi)頁(yè)面了。

?

4、將編譯完成的iw應(yīng)用拷貝到主機(jī)上進(jìn)行測(cè)試，實(shí)戰(zhàn)微信接入

，居然提示配置失??！這是什么情況，我使用的代碼是從別人寫(xiě)好的一個(gè)Delphi版微信接入接口代碼中拷貝的，那個(gè)程序相同的代碼沒(méi)有任何問(wèn)題，當(dāng)時(shí)第一個(gè)念頭是頁(yè)面編碼不正確，好吧，我改，iw的handler默認(rèn)的編碼是utf-8格式的，于是我嘗試了gbk，iso-8859-1等多種編碼格式，均提示上述錯(cuò)誤。萬(wàn)般無(wú)奈只好寫(xiě)日志看看到底handler代碼執(zhí)行沒(méi)有，結(jié)果令人震驚，放到真實(shí)服務(wù)器上后，微信驗(yàn)證時(shí)handler代碼居然沒(méi)有執(zhí)行，而在我本機(jī)調(diào)試時(shí)和真實(shí)服務(wù)器的瀏覽器上瀏覽時(shí)都很好沒(méi)有任何問(wèn)題。巨大的坑啊，連著好幾天各種測(cè)試，各種修改，都準(zhǔn)備放棄了，呵呵，結(jié)果看了下iw自己的httphandler示例，發(fā)現(xiàn)在其ServerController中實(shí)現(xiàn)了一個(gè)事件：OnBrowserCheck，于是嘗試在自己代碼中增加了相同事件代碼進(jìn)行測(cè)試，哇塞，可以了。。。

procedure?TIWServerController.IWServerControllerBaseBrowserCheck( ? ? ?
? aSession:?TIWApplication;?var?rBrowser:?TBrowser); ? ? ?
begin ? ? ?
? // 這個(gè)事件代碼很重要，我在這里卡了好幾天！?
? // ? ? ?
? // 在沒(méi)有實(shí)現(xiàn)這個(gè)事件的時(shí)候，在任何瀏覽器輸入 /wxapi.php 都能成功響應(yīng)，唯獨(dú)到了 ? ? ?
? // 微信中就顯示配置失敗，后來(lái)在代碼中使用了日志輸出才發(fā)現(xiàn)iw能收到微信請(qǐng)求，但是 ? ? ?
? // TWxApi.Execute方法卻沒(méi)有執(zhí)行，后來(lái)去官網(wǎng)閱讀了相關(guān)幫助，才發(fā)現(xiàn)iw只有支持的瀏 ? ? ?
? // 覽器才可正常響應(yīng)輸出，而微信發(fā)出的web請(qǐng)求顯然不屬于任何一個(gè)已知的瀏覽器 ? ? ?
? if?rBrowser?is?TOther?then?begin ? ? ?
??? rBrowser.Free; ? ? ?
??? rBrowser?:=?TInternetExplorer.Create(8);?// 以兼容IE8頁(yè)面瀏覽進(jìn)行頁(yè)面內(nèi)容輸出 ? ? ?
? end; ? ? ?
end;

，呵呵，太不容易了，就這么幾行代碼折騰好幾天，不過(guò)iw終于可以用于微信開(kāi)發(fā)了。

?

我認(rèn)為Delphi的強(qiáng)大在于除編譯器外所有源代碼均提供，這樣出現(xiàn)問(wèn)題了可以通過(guò)閱讀源碼解決，但是iw太封閉了，沒(méi)有源碼就算了，幫助也跟不上，在線(xiàn)那個(gè)幫助實(shí)在太太太弱了，建議用iw的朋友結(jié)合在線(xiàn)幫助和iw自己的示例工程一起看，少走彎路！不過(guò)，iw發(fā)展到今天確實(shí)已經(jīng)挺好用了，尤其對(duì)于有delphi情節(jié)的人，能用自己最擅長(zhǎng)的語(yǔ)言和開(kāi)發(fā)工具進(jìn)行web開(kāi)發(fā)真是挺爽的一件事情。

?更多delphi+intraweb進(jìn)行微信開(kāi)發(fā)-微信平臺(tái)接入?相關(guān)文章請(qǐng)關(guān)注PHP中文網(wǎng)！