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

iw14.0.50來了，在新的版本中最吸引我的就是增加了完善的httphandler功能：終於可以直接在網(wǎng)址列輸入url開啟iw功能頁了；可以自由使用EasyUI等js框架了；顯示模式對話框也不再七繞八繞惹人煩了；呵呵，我感覺iw第一次接近主流web開發(fā)工具了！

興奮過了，來試試看。其實(shí)iw的坑還是挺多的，雖然已經(jīng)接近主流了，但是，後面慢慢都會說到…

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

?

2、儲存工程後在工程中新增一個新的單元文件，例如命名為wxapi.pas，這個文件中的程式碼將承擔(dān)微信存取工作。程式碼如下：

interface

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

type ? ? ? ?
? ///

? ? ? ?
? /// 從TContentBase繼承下來的類，就相當(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('如果看到這個提示說明此連結(jié)位址可作為微信介面位址使用。 '); ? ? ? ?
? end; ? ? ? ?
? aSession.Terminate; // 釋放會話資源，本handler無會話? ? ? ?#即iw版httphandler的基礎(chǔ)類，如果不需要顯示iwForm，從這個類型繼承下來即可。如果需要使用iwForm還有個TContentForm基礎(chǔ)類別可以使用，哇哦，在瀏覽器網(wǎng)址列輸入url也可以直接開啟iwform了哦。 TWxApi.Execute中的程式碼即微信存取的程式碼，非常簡單，不了解的看看微信幫助：微信存取指南。

?

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

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

即可存取剛剛註冊的這個控制器。

但是這段程式碼中有個不大不小的坑，詳見我程式碼中的註解。

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

http://localhost/wxapi.php

能正常開啟頁面了。

?

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

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

procedure?TIWServerController.IWServerControllerBaseBrowserCheck( ? ? ?
? aSession:?TIWApplication;?var?rBrowser:?TBrowser); 我
? // ? ? ?
? // 在沒有實(shí)現(xiàn)這個事件的時候，在任何瀏覽器輸入/wxapi.php 都能成功回應(yīng)，唯獨(dú)到了? ? ?
? // 微信中就顯示設(shè)定失敗，後來在程式碼中使用了日誌輸出才發(fā)現(xiàn)iw能收到微信請求，但是? ? ?
? // TWxApi.Execute方法卻沒有執(zhí)行，後來去官網(wǎng)閱讀了相關(guān)幫助，才發(fā)現(xiàn)iw只有支援的孩? ? ?
? // 覽器才可正常回應(yīng)輸出，而微信發(fā)出的web請求顯然不屬於任何已知的瀏覽器? ? ?
? if?rBrowser?is?TOther?then?begin ? ? ?
??(8) ;?// 以相容IE8頁面瀏覽進(jìn)行頁面內(nèi)容輸出? ? ?
? end; ? ? ?
end;


，呵呵，太不容易了，就這麼幾行程式碼折騰好幾天，不過iw終於可以用在微信開發(fā)了。

?

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

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