有关IDispatch

Question

用vb是 这样写的
mcFile.SetFullPath dirDevice, lvDevice.ListItems(1)
其中mcFile是个com对象，SetFullPath（tv as Object,sFullPath as string）是它的一个方法，
dirDevice 是个Treeview对象，lvDevice.ListItems(1) 是路径如‘E:\’，它的作用就是在
 Treeview对象 中显示sFullPath下的子目录；
现在在delphi 下面变成了SetFullPath(var tv: IDispatch; const sFullPath: WideString)
这里的IDispatch类型参数不知该将Treeview对象怎么转换后再传给它

Answer 1

函数原型为Public Sub SetFullPath(ByRef tv As Object, ByVal sFullPath As String)
tv参数按地址传递。

Answer 2

函数原型为Public Sub SetFullPath(ByRef tv As Object, ByVal sFullPath As String)

Answer 3

上面那个是vb中的原形。delphi中的是
procedure setfullpath(var tv idispath;const sfullpath:widestring): safecall;