QuickReport.ExportToFilter 抛出“堆栈溢出”在 TWebModule 中使用时出错

Question

我有一个使用 TWebModule 组件的 Web 应用程序。它作为 Apache 上的模块运行。下面的代码在 ExportToFilter 上引发“堆栈溢出”错误。同样的代码在 Winforms 应用程序甚至服务中都可以正常工作。我看过其他关于此问题的讨论，表明它与线程有关。

var
  mFileName: String;
  AExportFilter:;
begin
    mFileName := 'c:\temp\calendar.pdf';
    AExportFilter:=TQRPDFDocumentFilter.Create(mFileName);
    try

      WebSchdHistCalendarForm := TWebSchdHistCalendarForm.create(nil);
      WebSchdHistCalendarForm.quickrep1.ShowProgress := False;
      WebSchdHistCalendarForm.quickrep1.ExportToFilter(AExportFilter  );
    finally
     AExportFilter.Free;
     WebSchdHistCalendarForm.Free;
    end;

Answer 1

如果我没记错的话，你会在无限递归方法调用时遇到堆栈溢出。但这里的情况可能并非如此。

Answer 2

虽然晚了 11 年，但这可能对其他人有用，因为我刚刚在某些 Windows 10 计算机上运行的应用程序之一遇到了这个问题。

（实际上，在我的例子中，Windows 事件日志将其报告为访问冲突，但通过在其中一台有问题的计算机上运行 WinDbg，我发现最初的原因是 cvtInt() 函数处的堆栈溢出。）< /em>

解决方法是在 QRPDFFilt.pas 中的几个函数中将 Buf 参数标记为 const：

function cvtInt(Buf: array of byte; P: Integer) : Integer;
begin
  Result:=(256*Buf[P])+(Buf[P+1]);
end;

应该是：

function cvtInt(const Buf: array of byte; P: Integer) : Integer;
begin
  Result:=(256*Buf[P])+(Buf[P+1]);
end;

cvtDWord() 同样：（

function cvtDWord(const Buf: array of byte; P: Integer) : DWORD;

感谢 Marco Filho 提供了这个解决方案，找到了在 devmedia.com.br)