目标是:使用后期绑定从unamanged c ++调用.NET库的方法,而不使用COM和导入tlb库。
我有一个用c#编写的简单类(仅用于测试)放在用框架4.0编译的类库(CSLib)中
公共类MyCSObject { string _str =“Test”;
public int GetString(out string str)
{
str = _str;
return 0;
}
public int PutString(string str)
{
_str = str;
return 0;
}
}
我已经创建了我在此处列出的简单cpp应用程序:
#include "stdafx.h"
#include <stdio.h>
#include <windows.h>
#include <metahost.h>
#pragma comment(lib, "mscoree.lib")
// Import mscorlib.tlb (Microsoft Common Language Runtime Class Library).
#import "mscorlib.tlb" raw_interfaces_only \
high_property_prefixes("_get","_put","_putref") \
rename("ReportEvent", "InteropServices_ReportEvent")
using namespace mscorlib;
#pragma endregion
int main()
{
HRESULT hr;
ICLRMetaHost *pMetaHost = NULL;
ICLRRuntimeInfo *pRuntimeInfo = NULL;
// ICorRuntimeHost and ICLRRuntimeHost are the two CLR hosting interfaces
// supported by CLR 4.0. Here we demo the ICorRuntimeHost interface that
// was provided in .NET v1.x, and is compatible with all .NET Frameworks.
ICorRuntimeHost *pCorRuntimeHost = NULL;
IUnknownPtr spAppDomainThunk = NULL;
_AppDomainPtr spDefaultAppDomain = NULL;
// The .NET assembly to load.
bstr_t bstrAssemblyName(L"CSLib");
_AssemblyPtr spAssembly = NULL;
// The .NET class to instantiate.
bstr_t bstrClassName(L"CSLib.MyCSObject" );
_TypePtr spType = NULL;
variant_t vtObject;
variant_t vtEmpty;
// The instance method in the .NET class to invoke.
bstr_t bstrMethodNameGet(L"GetString");
bstr_t bstrMethodNamePut(L"PutString");
bstr_t bstrparam(L"Helloworld");
variant_t vtRet;
SAFEARRAY *psaMethodArgs = NULL;
variant_t vtStringRet;
//
// Load and start the .NET runtime.
//
wprintf(L"Load and start the .NET runtime %s \n", L"v4.0.30319");
hr = CLRCreateInstance(CLSID_CLRMetaHost, IID_PPV_ARGS(&pMetaHost));
hr = pMetaHost->GetRuntime(L"v4.0.30319", IID_PPV_ARGS(&pRuntimeInfo));
hr = pRuntimeInfo->GetInterface(CLSID_CorRuntimeHost,
IID_PPV_ARGS(&pCorRuntimeHost));
hr = pCorRuntimeHost->Start();
// Get a pointer to the default AppDomain in the CLR.
hr = pCorRuntimeHost->GetDefaultDomain(&spAppDomainThunk);
hr = spAppDomainThunk->QueryInterface(IID_PPV_ARGS(&spDefaultAppDomain));
// Load the .NET assembly.
hr = spDefaultAppDomain->Load_2(bstrAssemblyName, &spAssembly);
// Get the Type of CSSimpleObject.
hr = spAssembly->GetType_2(bstrClassName, &spType);
// Instantiate the class.
hr = spAssembly->CreateInstance(bstrClassName, &vtObject);
// Call the instance method of the class.
// public string ToString();
// Create a safe array to contain the arguments of the method.
psaMethodArgs = SafeArrayCreateVector(VT_VARIANT, 0, 1);
VARIANT vtpar;
vtpar.vt = VT_BSTR;
vtpar.bstrVal = bstrparam;
long r = 0;
hr = SafeArrayPutElement(psaMethodArgs, &r, &vtpar);
// Invoke the "ToString" method from the Type interface.
hr = spType->InvokeMember(bstrMethodNamePut,
static_cast<BindingFlags>( BindingFlags_InvokeMethod | BindingFlags_Instance | BindingFlags_Public),
NULL,
vtObject,
psaMethodArgs,
NULL,
NULL,
NULL,
&vtRet);
BSTR bstr(_T(""));
SAFEARRAY* psaMethodArgsByRef = SafeArrayCreateVector(VT_VARIANT , 0, 1);
VARIANT vtbstr;
vtbstr.vt = VT_BSTR | VT_BYREF;
vtbstr.pbstrVal = &bstr;
r = 0;
hr = SafeArrayPutElement(psaMethodArgsByRef, 0, &vtbstr);
SAFEARRAY* modifiers = NULL;
// VARIANT WITH INSDE VARIANT_BOOL
/*modifiers = SafeArrayCreateVector(VT_VARIANT, 0, 1);
VARIANT vtmod;
vtmod.vt = VT_BOOL;
vtmod.boolVal = VARIANT_TRUE;
hr = SafeArrayPutElement(psaMethodArgsByRef, 0, &vtmod);*/
// VARIANT_BOOL
/*modifiers = SafeArrayCreateVector(VT_BOOL, 0, 1);
VARIANT_BOOL bmod = VARIANT_TRUE;
hr = SafeArrayPutElement(psaMethodArgsByRef, 0, &bmod);*/
hr = spType->InvokeMember(bstrMethodNameGet,
static_cast<BindingFlags>(BindingFlags_InvokeMethod | BindingFlags_Instance | BindingFlags_Public),
NULL,
vtObject,
psaMethodArgsByRef,
modifiers,
NULL,
NULL,
&vtRet);
return 0;
}
如果C ++应用程序调用仅具有'PutString'之类的输入参数的方法,但是当它调用具有out或ref参数的方法(如我的库的'GetString')时,一切正常。
我认为问题是mscorelibrary InvokeMethod的方法
virtual HRESULT __stdcall InvokeMember (
/*[in]*/ BSTR name,
/*[in]*/ enum BindingFlags invokeAttr,
/*[in]*/ struct _Binder * Binder,
/*[in]*/ VARIANT Target,
/*[in]*/ SAFEARRAY * args,
/*[in]*/ SAFEARRAY * modifiers,
/*[in]*/ struct _CultureInfo * culture,
/*[in]*/ SAFEARRAY * namedParameters,
/*[out,retval]*/ VARIANT * pRetVal ) = 0;
,特别是在SAFEARRAY修饰符参数:我不知道设置这个参数我尝试不同的解决方案(就像我在我的代码中评论过的那些),当我从非托管中调用此方法时,我没有找到任何关于此的文档C ++。