0

我有一个用ServicedComponentCOM+ 类实现的 .NET (4.0) 接口：

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;

现在最后我尝试了交流阵列

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，但我不知道如何起诉

4

1 回答 1

1

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

于 2010-05-20T23:03:47.873 回答