Delphi XE TBytes正确使用

TBytes变量的正确使用模式是什么？从我的理解,TBytes不是一个类,而是一个“动态数组的字节”.我不知道内存被分配到哪里,当它被释放时,哪个是将它从生产者传递给消费者的最佳方式.我希望我的制作人创建一个TBytes实例,然后将其传递给消费者.在这种情况发生之后,生产商想要重用其TBytes成员变量,内容是知道消费者最终会将内存返回到系统.如果TBytes是一个对象,我不会有任何问题,但我不知道在这种情况下,TBytes是如何工作的.

例如,在对象A中,我想将一些数据组合成一个作为对象A的成员的TBytes数组.当完成之后,我想要将TBytes数组传递给另一个对象B,然后这个对象成为数据.同时,回到对象A,我想开始组装更多的数据,重用TBytes成员变量.

type
  TClassA = class
  private
    FData: TBytes;
  public
    procedure AssembleInput(p: Pointer; n: Cardinal);
  end;

  TClassB = class
  public
    procedure ProcessData(d: TBytes);
  end;

var
  a: TClassA;
  b: TClassB;

procedure TClassA.AssembleInput(p: Pointer; n: Cardinal);
begin
  SetLength(FData,n);
  Move(p^,FData,n);  // Is this correct?
  ...
  b.ProcessData(FData);

  ...

  // Would it be legal to reuse FData now?  Perhaps by copying new (different)
  // data into it?
end;

procedure TClassB.ProcessData(d: TBytes);
begin
  // B used the TBytes here.  How does it free them?
  SetLength(d,0);  // Does this free any dynamic memory behind the scenes?
end;

提前致谢！

解决方法

Delphi动态数组是具有自动生命周期管理的管理类型.它们是引用计数,当引用计数变为0时,处理.您可以将它们视为与字符串,接口和变体相当的方式.

您可以通过以下三种方式之一显式释放对动态数组的引用：

a := nil;
Finalize(a);
SetLength(a,0);

但是,当变量离开范围时,简单的做任何事情都是非常常见的,让引用被释放.

有一点需要注意的是动态数组,当你有两个对同一个动态数组的引用.在这种情况下,通过一个参考应用的更改从另一个引用可见,因为只有一个对象.

SetLength(a,1);
a[0] := 42;
b := a;
b[0] := 666;//now a[0]=666

你问这是否正确：

Move(p^,n);

不它不是.你在这里做的是将p的内容复制到参考FData上.如果你想用Move复制,你可以写：

Move(p^,Pointer(FData)^,n);

或者如果你喜欢更详细一些,并避免演员你可以写：

if n>0 then 
  Move(p^,FData[0],n);

我个人对角色的感觉太差,因为Move完全没有类型的安全.

Would it be legal to reuse FData now? Perhaps by copying new (different) data into it?

没有更多的语境,我不觉得我可以回答这个问题.例如,我不知道为什么FData是一个字段,因为它只在本地用于该函数.这将作为一个局部变量更有意义.大概有一个原因被宣布为一个领域,但不能轻易从这个代码中辨别出来.

你关于使用生产者/消费者模式.通常这是为了使生产与消费脱钩.但是,您的示例代码不会执行此操作,可能是因为解耦代码太复杂,无法在此处包含.

对于真正的生产者/消费者实施,您需要将数据的所有权从生产者转移到消费者.从上面所描述的,一个非常简单有效的方法是使用引用计数.当数据传输给消费者时,生产商应该释放其参考.

Delphi XE TBytes正确使用

解决方法

猜你在找的Delphi相关文章