Question

我有一个.NET（4.0）接口，它使用ServicedComponent COM +类实现：

interface DotNetIface
{
    void MethodRef(var System.Guid guid);
    void MethodArray(System.Guid[] guids, params object[] parameters);
    void MethodCStyle([MarshalAs(UnmanagedType.LPArray, ArraySubType=UnmanagedType.Struct, SizeConst=5)]System.Guid[] guids);
}

现在我使用Delphi 2007导入向导导入类型库，并按预期方式我得到以下签名：

procedure MethodRef(var guid : TGuid);
procedure MethodArray(guids : PSafeArray);
procedure MethodCStyle(var guids : ClrGuid /* from mscorlib_TLB */);

如果我现在调用这样的“ref”方法，它可以正常工作：

procedure CallByRef(guid : TGuid);
var
    test : TGuid;
begin
    test := ...
    comRef.MethodRef(guid);
end;

现在我还需要数组方法

procedure CallArray();
var
    localGuid : TGuid;
    arrayVariant : OleVariant;
begin
    arrayVariant := VarArrayCreate([0,4], varVariant /* dont know here */);
    arrayVariant[0] := localGuid; /* compile error, cannot cast implicitly */

    comRef.MethodArray(PSafeArray(TVarData(arrayVariant.VArray)), /* here this object... PSafeArray works actually*/);
end;

最后我尝试使用c数组

procedure CallCStyle();
var
    localGuid : TGuid;
    arrayOfGuid : array [0..4] of ClrGuid;
begin
    arrayOfGuid[0] := ClrGuid(localGuid);

    comRef.MethodCStyle(PSafeArray(/* now i dont know put it*/, /* here this object... PSafeArray works actually*/);
end;

我真的不知道如何做这项工作。我希望有人有更多的COM编组经验 THX

侧节点：

我发现我认为VT_CLSID可以传递给SafeArrayCreate，但我不知道如何起诉

Answer 1

我从未尝试过你需要的东西，但快速搜索发现了以下文章：

Scripting Your Delphi Applications（显示将变体数组转换为PSafeArray的好例子
How to do a SafeArray Access with a DLL for Variants (OLE)
The mysteries of PSafeArray

如何使用PSafeArray从delphi中调用带有数组的.NET COM方法？

1 个答案: