带有 INVALID_HANDLE_VALUE 的 THandleStream.Create 无法编译

Question

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

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

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

原因是THandleStream.Create的声明：

德尔福 2007：

constructor THandleStream.Create(AHandle: Integer);

德尔福 XE2：

constructor THandleStream.Create(AHandle: THandle);

与

type
  THandle = NativeUInt;

如果我把它改成

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

它在 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 不存在，您必须弄清楚条件到底应该是什么。