我可以将缓冲区 + 大小转换为 TBytes 吗？

Question

给定一个缓冲区及其大小（以字节为单位），有没有办法将其转换为 TBytes 而不复制它？

例子：

procedure HandleBuffer(_Buffer: PByte; _BufSize: integer);
var
  Arr: TBytes;
  i: Integer;
begin
  // some clever code here to get contents of the buffer into the Array
  for i := 0 to Length(Arr)-1 do begin
    HandleByte(Arr[i]);
  end;
end;

我当然可以复制数据：

procedure HandleBuffer(_Buffer: PByte; _BufSize: integer);
var
  Arr: TBytes;
  i: Integer;
begin
  // this works but is very inefficient
  SetLength(Arr, _BufSize);
  Move(PByte(_Buffer)^, Arr[0], _BufSize);
  //
  for i := 0 to Length(Arr)-1 do begin
    HandleByte(Arr[i]);
  end;
end;

但是对于一个大缓冲区（大约一百兆字节），这意味着我的内存需求增加了一倍，并且还花费了大量时间来不必要地复制数据。

我知道我可以简单地使用 PByte 来处理缓冲区中的每个字节，我只对使用 TBytes 的解决方案感兴趣。

我认为这是不可能的，但我以前错了。

Answer 1

不，这是不可能的（没有不合理的黑客攻击）。

问题是这TBytes = TArray<Byte> = array of Byte是一个动态数组，非空动态数组的堆对象有一个包含数组引用计数和长度的标头。

一个接受TBytes参数的函数，当给定一个指向字节数组的普通指针时，可能（理所当然地）尝试读取（不存在的）标头，然后你就会遇到严重的麻烦。

此外，动态数组是托管类型（如我提到的引用计数所示），因此您也可能会遇到问题。

但是，在您的特定示例代码中，您实际上根本没有使用数据的动态数组性质，因此您可以直接使用缓冲区：

procedure HandleBuffer(_Buffer: PByte; _BufSize: integer);
var
  i: Integer;
begin
  for i := 0 to _BufSize - 1 do
    HandleByte(_Buffer[i]);
end;