delphi在window10下用uniGUI开发isapi的调试方法

好久没有用delphi了，有个老同事还在持续使用新的Delphi，用到10.3版本了。他说我原来写的Acroprise Multi-Language Suite多语言元件，在用uniGUI元件开发web程序时，standalone下32bit和64bit都没有问题，在isapi下32bit没问题，但是64bit有报错，web界面出不来。

我准备了开发环境：windows 10，delphi 10.3，uniGUI 1.90。

standalone下，AcroMulti在32bit和64bit确实没问题。

又复习了一遍如何把isapi部署到IIS中，windows 10预装IIS是10.0版本。发现项目编译在32bit下AcroMulti能正常跑，但是在64bit下，确实画面出不来。

如何Debug呢，找来找去，有说用inetinfo.exe，有说用w3wp.exe，都没成功。后来还是在stackoverflow网站找到这个链接：http://paul.klink.id.au/Software/Delphi/DebuggingIsapiWithIisExpress/

具体说一下步骤：

（1）把C:\Program Files\IIS Express\AppServer下的applicationhost.config文件复制到我的项目dll下，如：D:\wxh\AcroMultiLang\Sample\uniGUI\Win64\Debug

（2）修改applicationhost.config文件：

• 在<system.applicationHost>之<applicationPools>节点下新增一个节点：

<add name="IsapiDebugAppPool" 
autoStart="true" 
enable32BitAppOnWin64="true" 
managedRuntimeVersion="" 
managedPipelineMode="Integrated" />

• 在<sites>之<site>节点下新增一个节点：

<application path="/D64" applicationPool="IsapiDebugAppPool">
    <virtualDirectory path="/" 
     physicalPath="D:\wxh\AcroMultiLang\Sample\uniGUI\Win64\Debug" />
</application>

• 修改<handlers>节点为<handlers accessPolicy="Read, Execute, Script">

设置delphi项目的run - parameters...，host application填：C:\Program Files\IIS Express\iisexpress.exe，parameters填：/config:D:\wxh\AcroMultiLang\Sample\uniGUI\Win64\Debug\applicationhost.config

ok，在Delphi下就可以调试了。

调试结果，发现是acroMultiResource.pas中有个地方计算pointer地址时，用的Integer强制转换，改为UInt64就好了。

另外，为了适应后端的每个session的语言不同，在acroMultiLib.pas中增加函数：procedure MultiHook(AProc:TGetDDAndLCIDProc);用于根据session语言动态的给不同的LCID，如：

procedure MultiDD_GetDDAndLCID(out ADDName:string;out ALCID:string);
begin
  ADDName:=DM_DD.acroMultiStreamDD1.DDName;
  if (uniGUIApplication.UniSession<>nil) and 
     (uniGUIApplication.UniSession.UniMainModule<>nil) then
  begin
    //返回当前Session的LCID
    ALCID:=TUniMainModule(uniGUIApplication.UniSession.UniMainModule).LCID;
  end
  else
  begin
    //没有Session，用服务器的LCID或者英文
    ALCID:='1028';
  end;
end;

procedure TDM_DD.DataModuleCreate(Sender: TObject);
begin
  acroMultiLib.MultiHook(MultiDD_GetDDAndLCID);
end;