在Delphi XE中Apache方法apr_pool_create_ex的正确使用是什么？

Question

在Delphi XE中Apache方法apr_pool_create_ex的正确使用是什么？

我之前创建过 Apache 模块，但都是处理程序。现在我正在开发一个服务提供商。框架模块已创建，并且 Apache 正在调用我的 child_init 回调方法。在 child_init 方法中，我成功调用 ap_pool_create_ex* （返回 APR_SUCCESS），但是在离开 child_it 调用之后，我在 (httpd.exe) 生成第三个或第四个工作线程期间收到访问冲突（第三个显示在事件中）日志）。

procedure provider_child_init(pchild: Papr_pool_t; s: Pserver_rec); cdecl;
var
  rv  : apr_status_t;
  mypool : Papr_pool_t;
begin
  rv := -1;
  rv := apr_pool_create_ex(@mypool,pchild,nil,nil);
end;

AV消息是：

“项目C:\Apache2.2\bin\http.exe 连续筹集太多 异常：'访问冲突 0x00000000：读取地址 0x00000000'。进程已停止。使用步骤 或运行以继续”

事件日志：

…
Thread Start: Thread ID: 5652. Process httpd.exe (4212)
Thread Start: Thread ID: 5132. Process httpd.exe (4212)
Thread Start: Thread ID: 5988. Process httpd.exe (4212) 

注意：AV 发生在线程 ID 5988 和 4212 中，是父 httpd.exe 进程。

• Windows“libapr-1.dll”不包含“apr_pool_create”，这就是我使用“_ex”版本的原因。知道为什么 apr_pool_create 丢失吗？我看到 apr_pool_create 被用在其他成功的模块中，尽管它们都是用“C”写的。

操作系统：Windows 7 Enterprise 64 位

阿帕奇：2.2.17.0

IDE：Delphi XE

Answer 1

您对函数的翻译正确吗？ Delphi XE Version Insight（Subversion 插件）声明如下：

type
  PAprPool = ^TAprPool;
  TAprPool = THandle;
  PAprAllocator = ^TAprAllocator;
  TAprAllocator = THandle;
  TAprAbortFunc = function(retcode: Integer): Integer; stdcall;

var
  apr_pool_create_ex: function(out newpool: PAprPool; parent: PAprPool; abort_fn: TAprAbortFunc;
    allocator: PAprAllocator): TAprStatus; stdcall;

另请检查您的 provider_child_init< /code> 回调实际上应该声明为 cdecl 而不是 stdcall。

另外，由于出现空指针访问冲突，还有一些想法。根据apr源代码评论：

• 如果（如您的如果您向它传递一个 nil 分配器，则将使用父池的分配器。我假设如果父池为零，则分配器一定不能为零。
• 如果池无法分配内存，abort_fn将会被回调。你将其传递为零；也许池试图调用它是因为它无法分配内存？
• 我不认为你可以从不同的线程访问同一个池。您可能必须为每个线程创建一个单独的池。