Delphi 2010 中的 ASyncPro 5.00 - 范围检查错误

Question

尝试让 AsyncPro 在 D2010 中运行。使用 Source Forge 的 5.00 版本。

下面的 AsyncPro 代码（在 OOMisc.pas 中）失败，并在下面的 MakeLong 行上出现范围检查错误。我不知道如何开始调试这个。

有没有人在 D2010 中运行 ASyncPro，或者对下面可能发生的情况有一些了解？我在 SourceForge 上发的帖子没有得到任何回应。

function SafeYield : LongInt;
  {-Allow other processes a chance to run}
var
  Msg : TMsg;
begin
  SafeYield := 0;
  if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then begin
    if Msg.Message = wm_Quit then
      {Re-post quit message so main message loop will terminate}
      PostQuitMessage(Msg.WParam)
    else begin
      TranslateMessage(Msg);
      DispatchMessage(Msg);
    end;
    {Return message so caller can act on message if necessary}
    SafeYield := MAKELONG(Msg.Message, Msg.hwnd);  // Range Check Error on this line!
  end;
end;

TIA

Answer 1

看来您在打开范围检查的情况下编译代码：

{$R+}
function Test(A, B: LongWord): LongInt;
begin
  Result:= MakeLong(A,B);
// Project .. raised exception class ERangeError with message 'Range check error'.
end;

您可以关闭范围检查以消除运行时错误，但

SafeYield := MAKELONG(Msg.Message, Msg.hwnd)

如果参数之一（或两者）高于 2^16 - 1，则结果不正确。

看起来就像代码是从 16 位 AsyncPro 版本移植到 32 位版本一样，并且所有 32 位 AsyncPro 版本都存在该错误。

Answer 2

鉴于 MAKELONG 如何采用 Word 类型（16 位）的两个参数，并且 Msg.Message 和 Msg.HWnd 都是 32 位，因此出现范围检查错误也就不足为奇了。一般来说，窗口消息< 8000 美元，所以我怀疑价值是问题所在。然而，HWnd的积分值可以遍及整个地图，并且肯定>2。 $FFFF 经常。因此，上面的代码实际上没有任何意义，只是它似乎是很久以前 16 位版本遗留下来的工件。

由于启用了范围检查，它清楚地强调了上述代码需要重新思考的事实。在 Win32 中，您无法再将消息值和窗口句柄放入 32 位中。

我希望我已经给了您一些如何继续的提示。如果不考虑调用此函数的代码，就不可能建议替代实现。

Answer 3

我同意艾伦的评论——但更进一步。
如果您查看代码的使用方式（也请查看 OoMisc 中的 DelayTicks），调用者要么假设返回值不重要，要么只是消息。将 Msg.hwnd 添加到号码中不仅不起作用，而且也不是呼叫者所期望的。

repeat
  if Yield then
    Res := SafeYield;
until (**Res = wm_Quit**) or TimerExpired(ET);

此代码仅期待一条消息。

我会把这条线

 SafeYield := MAKELONG(Msg.Message, Msg.hwnd);

改为

 SafeYield := Msg.Message;

Answer 4

(1) 该代码是消息泵，并且

(2)（在上下文中）它受到 R 编译器指令的保护。范围检查已关闭：AwDefine.inc 中的 {$R- 无范围检查}

因此 (1) 如果其他消息导致代码停止，则消息经过时将在此处，并且

(2) 范围检查错误不是来自这里。

这表明异步进程正在导致范围检查异常或模态消息。在我正在使用的 Delphi 版本中，范围检查错误（和列表索引消息）不提供任何源/调试信息，因此我只能建议该错误可能与异步 Comm 事件相关联，甚至与 get-焦点/失去焦点/激活/绘制事件。