Как вызвать метод .NET COM с массивом из Delphi, используя PSafeArray? - PullRequest
Новая
       42

Как вызвать метод .NET COM с массивом из Delphi, используя PSafeArray?

0 голосов
/ 20 мая 2010

У меня есть интерфейс .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-маршалингом ТНХ

Боковой узел:

Я нашел VT_CLSID, который, я думаю, можно передать для SafeArrayCreate, но я не уверен, как подать в суд на это

1 Ответ

1 голос
/ 21 мая 2010

Я никогда не пробовал то, что вам нужно, но быстрый поиск нашел следующие статьи:

...