使用导入的 TLB -“实际和形式 Var 参数的类型必须相同”错误

Question

我在 Delphi 2010 中使用导入的类型库时遇到问题，并且我一生都无法弄清楚如何修复它。

ActiveDs_TLB 定义了以下内容：

function SetSearchPreference(var pSearchPrefs: ads_searchpref_info; dwNumPrefs: LongWord): HResult; stdcall;

我假设这需要一个指向 ads_searchpref_info 数组的指针，但我无法执行以下操作：

SetSearchPreference(@MySearchPref,1);

因为我随后看到了可怕的 E2033 Types of Actual and Formal var参数必须相同错误

再往下，ActiveDs_TLB定义：

    function ExecuteSearch(pszSearchFilter: PWideChar; var pAttributeNames: PWideChar; 
                       dwNumberAttributes: LongWord; out phSearchResult: Pointer):HResult; stdcall;

但是当我尝试传递nil作为第二个参数时，它再次抱怨。

编辑1：

tlb来自Golez，作为http://www.stackoverflow.com/questions/4184306 - 上面的代码来自他的回答 - 这相当于我在让 adsi 工作时遇到的问题。

我使用的是 W7 64 位 - 这应该不会有什么区别，因为 adsi dll 是 32 位的。

编辑2：

我错误地认为问题出在函数上，因为我盲目地遵循了代码，所以出现了错误。在抛出一些错误陷阱之后，似乎该对象从未创建，当我尝试为其赋值时，这当然会抛出 av 。

分配的答案是因为它是第一个指出显而易见的问题！

Answer 1

如果它被定义为 var 参数，则意味着您应该只传递一个元素，并让 Pascal 处理指针。如果原始库需要一个数组，因为指针和数组在 C 中是可以互换的，那么你的 TLB 转换是错误的。

Answer 2

第一个参数采用 ads_searchpref_info 类型的参数。这可能不是一个指针。

第二个，由于它是一个 var 参数，因此您不能传递常量，它必须是一个变量，因为它希望能够更改它/将信息传回。