delphi - ADODataSet.Open 绕过 `ArgumentOutOfRange` 异常的 try catch，挂起应用程序 - Delphi 10.2

Question

我维护一个在服务器环境中作为服务运行的应用程序。它是多线程的，每个线程根据任务队列工作。该任务队列只是一个以“作业类型”作为值的字符串列表。因此，虽然可能有多个线程正在运行，但每个线程都将是一个不同的作业，并且每个线程在内部一次仅运行一个任务。

我遇到了在 TADODataSet 上调用 Open 时出现的间歇性问题。有时(并非总是如此)，并且没有明显的模式，Data.Win.ADODB 会抛出 EArgumentOutOfRangeException，绕过我自己捕获任何异常的尝试。此异常会挂起整个线程并阻止将来的执行，直到我完全重新启动服务。

作为对 Delphi 世界相对较新的人，我已经在这个问题上摸不着头脑有一段时间了，并努力寻找任何答案。我的问题是:为什么会发生这种情况？我该如何阻止、捕获或修复它？

这是我的违规代码的片段。这是堆栈跟踪的来源方法。它是从同一单元中的另一个方法调用的，我在其中打开一个不同的数据集，循环遍历其记录，并在每个记录上调用此函数以根据传入的值获取一些信息。

function TFQFoo.DoSomething(IncNo : Int64): string;
var
  ItemList : string;
  MySQL: string;
  ComponentString: string;
begin
  result:='';
  if IncNo<=0 then
    Exit;
  ItemList := '';
  MyQuery.Close;
  MySQL := 'select ID from tbl ' +
    ' where val = ' + IntToStr(IncNo) +
    ' order by col1 DESC, col2, col3';

  try
    try
      MyQuery.CommandText := (MySQL);
      MyQuery.Open;

      while not (MyQuery.EOF) do
      begin
        if (ItemList <> '') then
          ItemList := ItemList + ',';
        ItemList := ItemList +
          MyQuery.FieldbyName('ID').asstring;
        MyQuery.Next;
      end;
    except
      // exception handling code omitted for brevity -- none of it
      // is ever reached, anyway (see below)
    end;
  finally
    MyQuery.Close;
  end;
  Result := ItemList;
end;

异常的调用堆栈表明它发生在 Open 处。没有 try..catch block 会捕获异常并为我记录它 - 我必须使用 EurekaLog 才能查看任何详细信息。堆栈跟踪方法(太大，无法在此处发布)如下所示:

1. TFQFoo.DoSomething
2. TDataSet.Open
3. ...内部事物
4. TADOConnection.ExecuteComplete
5. CheckForAsyncExecute
6. ...
7. TCustomConnection.GetDataSet
8. TListHelper.GetItemRange

考虑到我的 TADODataSet 组件可能在运行时被损坏/其属性被更改，我添加了一些日志记录来为我捕获该数据，这样我就可以看到那里是否发生了一些奇怪的事情。我没有看到任何东西，但在这里以防万一它是相关的。

object MyQuery: TADODataSet
  AutoCalcFields = False
  CacheSize = 15
  Connection = FGlobals.RIMSDB
  CursorType = ctStatic
  LockType = ltReadOnly
  CommandText = 
    'select ID from tbl  where val = 202005070074 order by col1 ' +
    'DESC, col2, col3'
  ParamCheck = False
  Parameters = <>
  Left = 32
  Top = 216
end

出于好奇，这是实际抛出异常的方法，来自 Data.Win.ADODB。请注意 except，我猜它会跳过我自己的 try..catch block 并将异常直接发送到 EurekaLog。

procedure CheckForAsyncExecute;
var
  I: Integer;
begin
  try
    if not Assigned(pError) and Assigned(pRecordset) and
       ((pRecordset.State and adStateOpen) <> 0) then
      for I := 0 to DataSetCount - 1 do
        if (DataSets[I].Recordset = pRecordset) and (eoAsyncExecute in DataSets[I].ExecuteOptions) then
        begin
          DataSets[I].OpenCursorComplete;
          Break;
        end;
  except
    ApplicationHandleException(Self);
  end;
end;

我尝试过的:

• 多次迭代调整 ADODataSet 本身的组件属性
• 在设计器中使用 CommandText 和参数，并在运行时执行之前分配参数
• 向查询本身添加/删除 (NOLOCK) 提示
• 将问题提交给我团队的高级成员以征求意见
• 谷歌搜索(几个小时)
• 阅读 Delphi 和 ADO 文档(对此没有成果)
• 尝试重现 - 我从未能够在我使用的任何测试系统上发生这种情况。这让我认为这可能与环境有关，但我完全不知道如何

我的问题，重述:

如何阻止这种情况发生？我究竟做错了什么？我不想只捕获 EArgumentOutOfRangeException；我想首先了解为什么会发生这种情况，并防止将来再次发生这种情况。

我知道有时查询执行不会返回结果，但由于较低级别的代码绕过了我自己的捕获，因此从未见过或遇到过典型的 CommandText does not return a result set 消息陈述。除此之外，我不知道还要寻找什么。

到目前为止，我只发现了另一次类似的情况，但它仅与未捕获的异常有关:http://www.delphigroups.info/2/d9/410191.html

Answer 1

在 CheckForAsyncExecute() 中对 ApplicationHandleException(Self) 的调用正在吞噬异常，这就是为什么您的 except block 没有被触发:

// in Data.Win.ADODB.pas:

procedure CheckForAsyncExecute;
var
  I: Integer;
begin
  try
    ...
  except
    ApplicationHandleException(Self); // <-- a caught exception is NOT re-raised here!
  end;
end;

在Data.Win.ADODB单元内部，捕获的异常将调用该单元自己的ApplicationHandleException()函数，该函数随后调用System.Classes.ApplicationHandleException 如果已分配，否则直接退出:

// in Data.Win.ADODB.pas:

procedure ApplicationHandleException(Sender: TObject);
begin
  if Assigned(System.Classes.ApplicationHandleException) then
    System.Classes.ApplicationHandleException(Sender);
end;

System.Classes.ApplicationHandleException 初始化为 nil。

在 VCL¹ 和 FMX 应用程序中，TApplication 构造函数将 TApplication.HandleException() 方法分配给 System。 Classes.ApplicationHandleException，其中 HandleException() 忽略 EAbort 异常，并调用 TApplication.OnException 事件处理程序(如果已分配)， TApplication.ShowException() 方法或 System.SyUtils.ShowException() 函数，具体取决于所处理的异常类型。

    ^{1:在 VCL TService 应用中，TServiceApplication 在内部使用 Vcl.Forms.TApplication。}TApplication.ShowException() 在弹出的 MessageBox 中向用户显示异常的详细信息然后退出，System.SysUtils.ShowException() 显示异常的详细信息在控制台或消息框中发送给用户，然后退出。

因此，ADO 的 CheckForAsyncExecute() 决不会将捕获的异常重新引发到用户代码中。不用说，在服务中显示弹出消息框并不是一个好主意，因为用户可能看不到它，因此他们可以将其关闭。

当然，最好的选择是首先避免引发 EArgumentOutOfRangeException 异常。但还有其他条件也可能引发异常。

因此，您自己处理吞没的 ADO 异常并避免弹出 MessageBox 的唯一选择是分配一个 TApplication.OnException 事件处理程序(直接或通过 TApplicationEvents > 组件)。