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是一个字段,因为它只在本地用于该函数.这将作为一个局部变量更有意义.大概有一个原因被宣布为一个领域,但不能轻易从这个代码中辨别出来.
你关于使用生产者/消费者模式.通常这是为了使生产与消费脱钩.但是,您的示例代码不会执行此操作,可能是因为解耦代码太复杂,无法在此处包含.
对于真正的生产者/消费者实施,您需要将数据的所有权从生产者转移到消费者.从上面所描述的,一个非常简单有效的方法是使用引用计数.当数据传输给消费者时,生产商应该释放其参考.