D2007开发ISAPI网站

 用D2007开发wap网站已有些时间了，整理了一些心得体会，供大家参考

1.打开Delphi2007，新建选择"WebBroker"-->"Web Server Application",选择"ISAPI/NSAPI Dynamic Link Library",生成的Project1.pas单元如下:

library Project1; uses ActiveX, ComObj, WebBroker, ISAPIApp, ISAPIThreadPool, Unit1 in 'Unit1.pas' {WebModule1: TWebModule}; {$R *.res} exports GetExtensionVersion, HttpExtensionProc, TerminateExtension; begin CoInitFlags := COINIT_MULTITHREADED; Application.Initialize; Application.CreateForm(TWebModule1, WebModule1); Application.Run; end.

打开主Unit1.pas，在窗体界面上双击，新增一个name为"main"，设置为Default为True,在OnAction事件中处理提交的Url地址,代码如下:

//主处理过程
procedure TWebModule1.WebModule1mainAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
  //request.QueryFields中包含了提交的信息
  //处理完后返回html信息
  //Response.content := 'OK</br>';
end;

//处理前
procedure TWebModule1.WebModuleBeforeDispatch(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
  //
end;

//处理后
procedure TWebModule1.WebModuleAfterDispatch(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
  Response.CustomHeaders.Add('Pragma=No-cache');
  Response.CustomHeaders.Add('Cache-Control=no-cache');
end;

 代码完成后，我们需要把网站配置在IIS5.0上，然后在run-->parameters...中配置参数，

Host Application：c:/windows/system32/dllhost.exe

Parameters：/ProcessID:{51DE28F2-C66E-481D-8D48-BE0CCB62C7AC}

注意"{}"中的为IIS进程ID，可以在控制面板中找到，具体为控制面板-->管理工具-->组件服务-->计算机-->我的电脑-->COM+ 应用程序-->IIS-{默认网站//Root}，右键点击"IIS-{默认网站//Root}"，选"属性"，把应用程序ID拷贝到刚才的"Parameters"中就OK了

在配置IIS的时候要注意网站的配置，本人是在WinXP上做调试的，Win2003上可以新建程序应用池，具体配置如下：

 

在"文档-->启动默认文档"中删除默认的，新增自己编译出来的DLL名称

一切就绪后看可以按F9开始调试自己的网站了！O(∩_∩)O哈！