在处理传入请求之前，如何在“TISAPIApplication”中建立 ADO 数据库连接？

TADOConnectionDelphi ISAPI 应用程序的应用程序初始化部分无法连接（TISAPIApplication):

应用程序是使用 Delphi XE SPI 构建的，运行 Win 7 64/IIS 7.5 和 WinServer 2008 RS2 - 它无法在全局 ISAPI 应用程序上下文中与 ADO 连接。 （示例代码使用 MS-SQLServer OLEDB - 但我们使用 Sybase ASE 提供程序也失败。）

以下代码在以下情况下失败conn.Open叫做 -TADOConnection.open永不返回 - ISAPI 应用程序在 la-la land 中挂起，没有引发异常：

library ISAPIBareBones;

uses
  ActiveX,
  ADODB,

    (...)

var
  conn: TADOConnection;

begin

  CoInitFlags := COINIT_MULTITHREADED;
  Application.Initialize;

  coinitialize(nil);
  conn := TADOConnection.Create(Application);
  conn.ConnectionString := 'Provider=SQLOLEDB.1;xxx';

//Fails here:

  try
    conn.Open;
  except on e:exception do
    logException(e)
  end;


  Application.WebModuleClass := WebModuleClass;
  Application.Run;

end.

特定请求处理程序（Delphi webAction）中的相同代码运行良好。

我们怀疑 IIS 中 ISAPI 应用程序级别的执行权限存在问题。但据我们所知，从 web 服务器本身到特定虚拟目录以及 ISAPI dll 本身的整个 IIS 应用程序堆栈都在具有相同执行权限的相同凭据下运行。

同时，我的解决方法是从 http 响应调用（ISAPI 线程）中初始化数据库基础结构，然后简单地检查它是否在每个后续调用中初始化。这可行，但给我带来了一些我不想处理的限制。

如何在 ADO 中建立数据库连接TISAPIApplication例如，在处理传入请求之前。

The begin ... end or an initializationdll 的一部分在 Delphi 中相当于 C++ 中的 dllmain。因此，同样的限制也适用，包括：

• 不要调用 CoInitialize
• 不要调用 COM 函数

这意味着您无法创建 ADO 连接。

你知道当你打电话时发生的所有事情吗TADOConnection.Create(Application);?

所以你想做的事情是行不通的。即使确实如此，你也不应该这样做。这里有一些更好的解释：

http://msdn.microsoft.com/en-us/library/ms682583%28VS.85%29.aspx
http://msdn.microsoft.com/en-us/library/windows/desktop/dn633971(v=vs.85).aspx
http://blogs.msdn.com/b/oldnewthing/archive/2004/01/27/63401.aspx
http://blogs.msdn.com/b/oldnewthing/archive/2004/01/28/63880.aspx
http://blogs.msdn.com/b/oldnewthing/archive/2014/08/21/10551659.aspx

MSDN 建议在 GetExtensionVersion 中创建数据库连接。这就是 isapi dll 的初始化方式。它不仅仅是用于报告扩展版本。所以这就是要走的路。创建您自己的 GetExtensionVersion 函数来初始化数据库，然后调用前面的 Delphi 函数。

library Project1;

uses
  Winapi.ActiveX,
  System.Win.ComObj,
  Web.WebBroker,
  Web.Win.ISAPIApp,
  Web.Win.ISAPIThreadPool,
  Winapi.Isapi2,
  Winapi.Windows,
  WebModuleUnit1 in 'WebModuleUnit1.pas' {WebModule1: TWebModule};

{$R *.res}

function GetExtensionVersion(var Ver: THSE_VERSION_INFO): BOOL; stdcall;
begin
  Result := Web.Win.ISAPIApp.GetExtensionVersion(Ver);
  // create your ado connection here
end;


exports
  GetExtensionVersion,
  HttpExtensionProc,
  TerminateExtension;

begin
  CoInitFlags := COINIT_MULTITHREADED;
  Application.Initialize;
  Application.WebModuleClass := WebModuleClass;
  Application.Run;
end.