كيفية استدعاء طريقة .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 */);
إذا استدعيت الآن طريقة "المرجع" مثل هذا ، فهي تعمل بشكل جيد:
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 Array
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 Marchalling thx
العقدة الجانبية:
لقد وجدت VT_CLSID والتي أعتقد أنه يمكن تمريرها من أجل SafeArrayCreate ، لكنني لست متأكدًا من كيفية مقاضاة ذلك
المحلول
لم أحاول أبدًا ما تحتاجه ولكن البحث السريع وجد المقالات التالية:
- البرمجة النصية لتطبيقات دلفي (يظهر مثالًا جيدًا على تحويل صفيف متغير إلى psafearray
- كيفية القيام بوصول SafeArray مع DLL للمتغيرات (OLE)
- أسرار psafearray
لا تنتمي إلى StackOverflow