如何创建PSafeArray类型的参数?
我从C#COM库中收到以下错误:
SafeArray with range 65262 transfered to the method that requires array with range 1
Delphi XE2
应该使用带有参数PSafeArray类型的C# COM library
类型库来调用Generated RIDL
过程。Delphi XE2代码:
function GetObjects: PSafeArray;
var
aObjects: Variant;
begin
aObjects := VarArrayCreate([0, 2], varVariant);
aObjects[0] := ADOConnection.ConnectionObject;
aObjects[1] := CashConnection;
aObjects[2] := Self as IDispatch;
Result := PSafeArray(TVarData(aObjects).VArray);
end;
ICompiler.Execute('MainNameSpace', 'MainClass', 'MainMethod', GetObjects);
C#COM库代码:
void Execute(string Namespace, string ClassName, string MethodName, Object[] Objects);
void ICSCompiler.Execute(string Namespace, string ClassName, string MethodName, Object[] Objects)
{
System.Type _type = cr.CompiledAssembly.GetType(Namespace + "." + ClassName);
System.Object obj = Activator.CreateInstance(_type);
System.Reflection.MethodInfo mi = obj.GetType().GetMethod(MethodName);
mi.Invoke(obj, new Object[] { Objects });
}
生成的RIDL代码:
HRESULT _stdcall Execute([in] BSTR Namespace, [in] BSTR ClassName, [in] BSTR MethodName, [in] SAFEARRAY(VARIANT) Objects);
最佳答案
我能记住的第一件事是SafeArrayCreate
。
看看'mysteries of PSafeArray'