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

iw14.0.50來(lái)了，在新的版本中最吸引我的就是增加了完善的httphandler功能：終於可以直接在網(wǎng)址列輸入url開(kāi)啟iw功能頁(yè)了；可以自由使用EasyUI等js框架了；顯示模式對(duì)話框也不再七繞八繞惹人煩了；呵呵，我感覺(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伺服器上。 （是的，大家沒(méi)有看錯(cuò)，現(xiàn)在iw已經(jīng)脫離了isapi模式，可以像部署.net mvc4應(yīng)用程式一樣部署到iis上，後面會(huì)解釋，.net虛擬主機(jī)也可以發(fā)布iw應(yīng)用了！巨大的進(jìn)步。）

?

2、儲(chǔ)存工程後在工程中新增一個(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)的類，就相當(dāng)於asp.net中的httphandler ? ? ? ?
? ///

? ? ? ?
? TWxApi?= class(TContentBase) ? ? ? ?
? protected ? ? ? ?
???與 function?Execute(aRequest:?THttpRequest;???TStrings):?Boolean;?override; ? ? ? ?
? public ? ? ? ?
??? constructor?Create; override; ? ? ? ?
? end; ? ? ? ?

implementation ? ? ? ?

uses ? ? ? 1 ##?{ TWxApi } ? ? ? ?

constructor?TWxApi. Create; ? ? ? ?
begin ? ? ? ?
? inherited; ? ? ? ?
? // 檔案中不需要存在?

function?TWxApi.Execute(aRequest:?THttpRequest;?aReply :?THttpReply; ? ? ? ?
? const?aPathname:?string;?aSession:?TIWApplication; ? ? ? ?
??? signature:?string; ? ? ? ?
? timestamp:?string; ? ? ? ?
? nonce:?string;
? echostr:?string; ? ? ? ?
? strs:?TStringList; ? ? ? ?
? tmpStr:?string;?

? signature?:=?aParams.Values['signature'] ; ? ? ? ?
? timestamp?:=?aParams.Values['timestamp']; ? ? ? ?
? nonce?:=?aParams.Values['nonce'] ##? nonce?:=?aParams.Values['nonce'] ##? nonce?:=?aParams.Values['nonce'] o? Value.? ? ? ?

? strs?:=?TStringList.Create； nonce); ? ? ? ?
? strs.Sort; ? ? ? ?

? tmpStr?:=?strs[0]+strs[1]+strs[2]; ad p??

? if?tmpStr=signature?then ? ? ? ?
? begin ? ? ? ?
??? aReply.WriteString(echo?Reply.WriteString('如果看到這個(gè)提示說(shuō)明此連結(jié)位址可作為微信介面位址使用。 '); ? ? ? ?
? end; ? ? ? ?
? aSession.Terminate; // 釋放會(huì)話資源，本handler無(wú)會(huì)話? ? ? ?#即iw版httphandler的基礎(chǔ)類，如果不需要顯示iwForm，從這個(gè)類型繼承下來(lái)即可。如果需要使用iwForm還有個(gè)TContentForm基礎(chǔ)類別可以使用，哇哦，在瀏覽器網(wǎng)址列輸入url也可以直接開(kāi)啟iwform了哦。 TWxApi.Execute中的程式碼即微信存取的程式碼，非常簡(jiǎn)單，不了解的看看微信幫助：微信存取指南。

?

3、在ServerController中註冊(cè)此httphandler，直接貼出ServerController註冊(cè)代碼： ? ? ?
procedure?TIWServerController.IWServerControllerBaseConfig(Sender:?TObject); ? Control ? ControllerBaseConfig(Sender:?TObject)；的微信Handler ? ? ? ?
? // ServerController.OnConfig事件在整個(gè)應(yīng)用程式生命週期中只被執(zhí)行一次? ? ? ?
? with?THandlers.Add('',?'wxapi.php',?.? ?
??? CanStartSession?:=?True;??????????? // 從字面上理解是能夠啟動(dòng)會(huì)話? ? ? ?
??? RequiresSessionStart?:=?False;????? // 從字面上理解是需要啟動(dòng)會(huì)話，這兩個(gè)屬性必須進(jìn)行設(shè)置，否則輸入/wxapi.php將轉(zhuǎn)向主視窗? ? ? ?
??????????????????????????/start 啟動(dòng)會(huì)話後才? ? ? ?
??????????????????????????。
? end; ? ? ? ?
end;

#如程式碼所示， 這段程式碼所示，紅色的THandlers.Add('',?'wxapi.php',?TWxApi.Create)這段程式碼就完成了httphandler的註冊(cè)，在瀏覽器網(wǎng)址列輸入
http://localhost/wxapi.php

即可存取剛剛註冊(cè)的這個(gè)控制器。

但是這段程式碼中有個(gè)不大不小的坑，詳見(jiàn)我程式碼中的註解。

這個(gè)坑是handler註冊(cè)後啟動(dòng)iw應(yīng)用程式但是不先在瀏覽器網(wǎ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ì)話訪問(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)在在網(wǎng)址列輸入

http://localhost/wxapi.php

能正常開(kāi)啟頁(yè)面了。

?

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

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

procedure?TIWServerController.IWServerControllerBaseBrowserCheck( ? ? ?
? aSession:?TIWApplication;?var?rBrowser:?TBrowser); 我
? // ? ? ?
? // 在沒(méi)有實(shí)現(xiàn)這個(gè)事件的時(shí)候，在任何瀏覽器輸入/wxapi.php 都能成功回應(yīng)，唯獨(dú)到了? ? ?
? // 微信中就顯示設(shè)定失敗，後來(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)求顯然不屬於任何已知的瀏覽器? ? ?
? if?rBrowser?is?TOther?then?begin ? ? ?
??(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)有原始碼就算了，幫助也跟不上，在線那個(gè)幫助實(shí)在太太太弱了，建議用iw的朋友結(jié)合在線幫助和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)！