Как вызвать метод .NET COM с массивом из Delphi с помощью PSafearray?
-
03-10-2019 - |
Вопрос
У меня есть интерфейс .NET (4.0), который реализован с ServicedComponent
COM + CLASS:
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;
Теперь, наконец, я пытался с массивом AC
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 Marshalling Thx
Боковой узел:
Я нашел VT_CLSID, который, я думаю, может быть передан для SafearRayCreate, но я не уверен, как судить, что
Решение
Я никогда не пробовал то, что вам нужно, но быстрый поиск нашел следующие статьи:
- Сценарии приложений Delphi (Показывает хороший пример преобразования варианта массива в Psafearray
- Как сделать доступ в SafearRay с DLL для вариантов (OLE)
- Тайны Psafearray
Не связан с StackOverflow