Delphi中如何实现vidcap.h中IKsTopologyInfo::CreateNodeInstance的复杂节点实例创建？

本文共计695个文字，预计阅读时间需要3分钟。

我正在编写一个在Delphi中管理网络摄像头的小应用程序。我在C语言中使用了一块代码示例，需要将其重写为适用于我的应用程序的一部分。在Delphi中，所有工作正常，除了单方法调用外，它与模块直接相关。

我正在编写一个在Delphi中管理网络摄像头的小应用程序.我在C中使用了一段代码示例,我需要在Delphi中将其重写为我的应用程序的一部分.所有在Delphi中工作正常,除了单方法调用,它与模块’vidcap.ax’中的地址63252469处的访问冲突一起崩溃.写入地址11D206FD“消息.

以下是C示例代码的一部分(无错误处理)：

#include <vidcap.h> // For IKsTopologyInfo #include <ksproxy.h> // For IKsControl .... //pKsTopologyInfo is passed from the outside IKsControl *pKsControl = NULL; DWORD dwNumNodes = 0; pKsTopologyInfo->get_NumNodes(&dwNumNodes); for(unsigned int i = 0; i < dwNumNodes; i++) { pKsTopologyInfo->get_NodeType(i, &guidNodeType); if(IsEqualGUID(guidNodeType, KSNODETYPE_DEV_SPECIFIC)) { hr = pKsTopologyInfo->CreateNodeInstance(i, IID_IKsControl, (void **)&pKsControl);

这是Delphi中我的代码的相应部分：

//KsTopologyInfo is IKsTopologyInfo passed from the outside //pKsControl is ^IKsControl, which is taken from DirectShow9.pas from DSPack components set. KsTopologyInfo.get_NumNodes(@dwNumNodes); for i:=0 to dwNumNodes-1 do begin KsTopologyInfo.get_NodeType(i,@guidNodeType); if IsEqualGUID(guidNodeType,KSNODETYPE_DEV_SPECIFIC) then begin KsTopologyInfo.CreateNodeInstance(i,IID_IKsControl,@pKsControl);

这里的错误发生在最后一行的Delphi代码中,而在C中它可以正常工作.
逐步调试期间的检查没有显示任何差异 – 在Delphi和C中,dwNumNodes得到11,然后当i == 3和guidNodeType == {941C7AC0-C559-11D0-8A2B-00A0C9255AC1}时,IsEqualGUID返回TRUE.因此,在这两种情况下,它都使用相同的值i = 3调用CreateNodeInstance,并且IID_IKsControl = {28F54685-06FD-11D2-B27A-00A0C9223196}

遗憾的是,我找不到vidcap.h转换为Delphi .pas文件,所以我为IKsTopologyInfo写了我自己的描述,我想我在CreateNodeInstance方法描述中有错误.这是来自vidcap.h：

virtual HRESULT STDMETHODCALLTYPE CreateNodeInstance( /* [in] */ DWORD dwNodeId, /* [in] */ REFIID iid, /* [out] */ void **ppvObject) = 0;

这是Delphi的变种：

function CreateNodeInstance(dwNodeId:DWord; iid:TGuid; p:Pointer):HRESULT; stdcall;

我用第三个参数 – var Obj,Pointer,PPointer(它是^ Pointer)尝试了很多变体,并尝试将不同的变量值传递给它(IKsControl,^ IKsControl,^(^ IKsControl),指针,^指针 – 并且它们都不起作用.无论如何我得到了同样的错误.

需要有关如何使其工作的任何建议,以及如何看起来正确的IKsTopologyInfo.CreateNodeInstance描述并在Delphi中调用.

根据MSDN definition of REFIID：

typedef GUID IID; typedef IID* REFIID;

因此REFIID是指向GUID的指针,应该被翻译为PGUID,或者,因为iid是输入参数并且似乎是必需的,所以也可以作为const TGUID传递.

此外,MSDN声明在CreateNodeInstance：

ppvObject receives a pointer to the requested interface on the node object. The caller must release the interface.

所以第三个参数应该被声明为一个指向接口的指针,以便Delphi能够管理它.将其声明为var IUnknown,或者作为输出参数,将其声明为IUnknown会强制参数为IUnknown类型的变量,因此必须将其转换为实际接口类型才能使用它.

C声明

virtual HRESULT STDMETHODCALLTYPE CreateNodeInstance( /* [in] */ DWORD dwNodeId, /* [in] */ REFIID iid, /* [out] */ void **ppvObject) = 0;

变

function CreateNodeInstance(dwNodeId: DWord; const iid: TGUID; ppvObject: PUnknown): HRESULT; stdcall;

可以如下调用：

var KsControl: IKsControl; KsTopologyInfo.CreateNodeInstance(i, IID_IKsControl, @KsControl);