THandleStream.Create with INVALID_HANDLE_VALUE 无法编译

Question

以下代码用于使用 Delphi 2007 进行编译：

constructor TMyFile.Create(const _Filename: string);
begin
  inherited Create(Integer(INVALID_HANDLE_VALUE)));
  // ...
end;

在 Delphi XE 中，它失败并出现错误 E1012：常量表达式违反子范围边界。

的声明

原因是 THandleStream.Create: Delphi 2007:

constructor THandleStream.Create(AHandle: Integer);

Delphi XE2:

constructor THandleStream.Create(AHandle: THandle);

，

type
  THandle = NativeUInt;

如果我将其更改为

constructor TMyFile.Create(const _Filename: string);
begin
  inherited Create(THandle(INVALID_HANDLE_VALUE)));
  // ...
end;

It 会在 Delphi XE2 和 Delphi 2007 中编译。 在 Delphi 2007 中，它会导致警告“W1012：常量表达式违反子范围边界”，并且在调用 Delphi 2007 可执行文件时会导致运行时错误。

有什么方法可以更改代码，使其在两个 Delphi 版本中都可以工作，而不必求助于 IFDEFS ？

Answer 1

THandleStream.Create 将其句柄参数声明为 Integer 类型（有符号）。 Delphi XE2 通过将其声明为 THandle （无符号）来改变这一点。我不确定为什么要从签名更改为未签名。显然，对于 64 位目标，它必须扩展到 64 位，但我不确定为什么需要从有符号更改为无符号。

据我所知，如果没有条件编译，就无法解决这个问题。

您可以通过声明这样的类型来包含损坏：

type
{$IFDEF XE2_OR_ABOVE}
  THandleCast = THandle;
{$ELSE}
  THandleCast = Integer;
{$ENDIF}

然后在您的调用站点上您将编写

inherited Create(THandleCast(INVALID_HANDLE_VALUE)));

注意，条件 XE2_OR_ABOVE 不存在，您必须计算出真正的条件应该是什么。