我可以将未知接口保存到指针吗?
例如,我有一个未知的接口,并希望将其保存到TreeNode数据?
var X : Inknown;
要保存:
.... Node:=TreeView1.Items.Add; //Node.data:=x; //compiler won't allow this Node.data:=@x; ...
要得到 :
... var //X:=Node.data; //compiler won't allow this too Pointer(X):=Node.data; //an exception caught ...
Remy Lebeau.. 12
接口是指针,因此您可以按原样存储它(不要使用@
运算符).但是,为了确保接口的生命周期,只要节点引用它,就必须手动递增/递减其引用计数,例如:
Node := TreeView1.Items.Add; Node.Data := Pointer(x); x._AddRef;
x := IUnknown(Node.Data);
procedure TMyForm.TreeView1Deletion(Sender: TObject; Node: TTreeNode); begin IUnknown(Node.Data)._Release; end;
David Heffer.. 6
您需要捕获接口引用的值,而不是捕获引用的变量的地址.
所以,这样做:
Node.Data := Pointer(X); .... X := IInterface(Node.Data); // use IInterface in preference to IUnknown
但是你必须确保正确处理引用计数,因为这个转换会颠覆自动引用计数.
因此,在将接口放入节点时请参考:
Node.Data := Pointer(X); X._AddRef;
并_Release
在修改Node.Data
或销毁节点时调用.
正如你所发现的那样,这是相当混乱的,容易出错.解决问题的更好方法是让编译器完成工作.定义子类TTreeNode
,并使树视图使用该子类.忽略节点的Data属性并使用您自己的类型属性IInterface
,在子类中引入.
实现这一目标的方法是提供一个OnCreateNodeClass
事件处理程序,告诉树视图控件创建子类的节点而不是旧的节点TTreeNode
.可以在此处找到该技术的示例:https://stackoverflow.com/a/25611921/
接口是指针,因此您可以按原样存储它(不要使用@
运算符).但是,为了确保接口的生命周期,只要节点引用它,就必须手动递增/递减其引用计数,例如:
Node := TreeView1.Items.Add; Node.Data := Pointer(x); x._AddRef;
x := IUnknown(Node.Data);
procedure TMyForm.TreeView1Deletion(Sender: TObject; Node: TTreeNode); begin IUnknown(Node.Data)._Release; end;
您需要捕获接口引用的值,而不是捕获引用的变量的地址.
所以,这样做:
Node.Data := Pointer(X); .... X := IInterface(Node.Data); // use IInterface in preference to IUnknown
但是你必须确保正确处理引用计数,因为这个转换会颠覆自动引用计数.
因此,在将接口放入节点时请参考:
Node.Data := Pointer(X); X._AddRef;
并_Release
在修改Node.Data
或销毁节点时调用.
正如你所发现的那样,这是相当混乱的,容易出错.解决问题的更好方法是让编译器完成工作.定义子类TTreeNode
,并使树视图使用该子类.忽略节点的Data属性并使用您自己的类型属性IInterface
,在子类中引入.
实现这一目标的方法是提供一个OnCreateNodeClass
事件处理程序,告诉树视图控件创建子类的节点而不是旧的节点TTreeNode
.可以在此处找到该技术的示例:https://stackoverflow.com/a/25611921/