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

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

在

TADODataSet

上调用

Open

时，我遇到间歇性问题。有时，

Data.Win.ADODB

会抛出一个

EArgumentOutOfRangeException

，绕过我自己捕获任何异常的尝试，但并不总是这样，而且没有明显的模式。此异常挂起整个线程，并阻止将来的执行，直到我完全重新启动服务

由于对德尔福的世界比较陌生，我对这个问题挠头已经有相当一段时间了，一直在努力寻找答案。我的问题是：为什么会发生这种情况，我如何阻止、抓住或修复它

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

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;

出于好奇，这是实际引发异常的方法，来自

Data.Win.ADODB

。注意except，我猜它跳过了我自己的try..catch块，并将异常直接发送到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;

执行过程检查；
变量
I：整数；
开始
尝试
如果未分配（pError）和分配（预编码集），以及
（（pRecordset.State和adStateOpen）0）然后
对于I:=0到DataSetCount-1 do
如果（数据集[I].Recordset=pRecordset）和（数据集[I].ExecuteOptions中的eoAsyncExecute），则
开始
数据集[I].OpenCursorComplete；
打破
结束；
除了
应用程序句柄异常（Self）；
结束；
结束；

我所尝试的：

• 在ADODataSet本身上调整组件属性的多次迭代
• 在设计器中使用CommandText和参数，并在运行时执行之前分配参数
• 向查询本身添加/删除（NOLOCK）提示
• 将问题提交给我团队的高级成员，征求他们的意见
• 谷歌搜索（几个小时）
• 阅读Delphi和ADO文档（对此没有收获）
• 尝试复制-我从未能够在我使用的任何测试系统上实现这一点。这让我觉得它可能与环境有关，但我完全不知道是怎么回事

我的问题重申如下：

我该如何阻止这种情况发生？我做错了什么？我不想仅仅抓住

eargumentootfrangeexception

；我想知道为什么它会发生在第一位，并防止它发生在未来

我知道有时候，查询执行不会返回结果，但是典型的

CommandText不会返回结果集

消息，因为较低级别的代码绕过了我自己的catch语句，因此从未看到或遇到过该消息。除此之外，我不知道还能找什么

---

到目前为止，我只发现了另一个类似的情况，但它与未捕获的异常有关：

在

checkforasyncecute（）

中调用

ApplicationHandleException（Self）

正在吞噬异常，这就是为什么未触发

except

块的原因：

//在Data.Win.ADODB.pas中：
程序检查和执行；
变量
I：整数；
开始
尝试
...
除了
应用程序句柄异常（Self）；//如果还没有，您是否尝试过在
checkforasyncecute
中的
ApplicationHandleException（Self）
上放置调试器断点？异常可能发生在异步线程中，并在处理程序看到它之前被处理。好q，顺便说一句+1@MartynA非常感谢。我有过，但不幸的是，在我自己的测试中从未再现过这个问题。任何有用的东西都会被发送到
TADOConnection.OnInfoMessage
事件？@Brian简短回答：没有。我将事件连接到条件
if EventStatus esOK
，以记录消息，因此除
esOK
之外的任何状态都应记录整个消息；但是，不会记录任何内容。类似地，
OnExecuteComplete
也有类似的功能，但当然也没有记录任何内容。删除此检查有点问题，因为在6小时内运行的查询数量非常多。感谢您的回复。我已经理解为什么我的异常不会被我自己的代码捕获；我的问题是为什么首先抛出异常。在像这样的检查中ADO如何超出范围：
对于I:=0到DataSetCount-1 do
（在
CheckForAsyncExecute
）中？我的查询或我的代码是罪魁祸首，还是这在别处是一个bug？我还想说明这是作为服务运行的；因此，在执行我的代码时，没有任何MessageBox受到损害；）当我在问题中提到“日志记录”时，我的意思是我有一些实用程序可以在运行服务的整个生命周期内将消息写入文本文件。由于您已经在跟踪ADO源代码，那么您应该能够找到
eargumentootfrangeexception
实际上是从何处产生的，以及在什么条件下产生的。至于日志记录，您可能正在将自己的日志消息写入文件，但RTL不会这样做。正如您在我的回答中所看到的，
eargumentootfrangeexception
可能会导致显示一个MessageBox，这可以解释为什么调用线程会挂起，直到服务重新启动。啊，我误解了您的意思
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;