Delphi 将字节数组转换为 TBytes - UDP 重定向？

Question

procedure TForm1.UDPUDPRead(AThread: TIdUDPListenerThread; 
                              AData: array of Byte; ABinding: TIdSocketHandle);
var
  buffer : TBytes;
begin
  SetLength(buffer, Length(AData));
  buffer := @AData[0];
 end;

此代码会导致访问冲突。

在 Delphi XE3 中从字节数组转换为TBytes的正确方法是什么？

Answer 1

您需要复制缓冲区。

Count := Length(AData);
SetLength(buffer, Count);
if Count <> 0 then
  Move(AData[0], buffer[0], Length(AData));

我有一种感觉，Indy 的这一部分被 Embarcadero 搞砸了。请注意数组按值传递的可疑之处。如果我没记错的话，存储库中的 Indy 版本更好。