EvilBeaver/OneScript: Исполняющая среда скриптов на языке 1С

src/ScriptEngine.Snegopat/EventCallableSDO.cpp

74 строки2 KB

EvilBeaver

Issue #30 Развитие доступа к API Снегопата.

16 июл 2014, 17:59

16 июл 2014, 17:5989203de

#include "stdafx.h"
#include "EventCallableSDO.h"

EventCallableSDO::EventCallableSDO(ScriptDrivenObject^ instance, LoadedModuleHandle module)
	: ReflectableSDO(instance, module)
{
}

Object^ EventCallableSDO::InvokeInternal(String^ name,
		System::Reflection::BindingFlags invokeAttr,
		Binder^ binder,
		Object^ target,
		array<Object^>^ args,
		System::Globalization::CultureInfo^ culture)
{
	array<Object^>^ passedArgs = gcnew array<Object^>(args->Length);
	array<IParamsWrapper^>^ wrappers = gcnew array<IParamsWrapper^>(args->Length);
	
	try
	{
		Object^ result;
	
		for (int i = 0; i < args->Length; i++)
		{
			IParamsWrapper^ wrapper = dynamic_cast<IParamsWrapper^>(args[i]);
			IValue^ argValue;
			if(wrapper != nullptr)
			{
				wrappers[i] = wrapper;
				argValue = COMWrapperContext::CreateIValue(wrapper->val);
			}
			else
			{
				argValue = COMWrapperContext::CreateIValue(args[i]);
			}

			passedArgs[i] = Variable::CreateReference(Variable::Create(argValue));
	
		}
	
		result = ReflectableSDO::InvokeInternal(name, invokeAttr, binder, target, passedArgs, culture);
	
		for (int i = 0; i < args->Length; i++)
		{
			IParamsWrapper^ wrapper = wrappers[i];
			Object^ argValue = COMWrapperContext::MarshalIValue(safe_cast<IValue^>(passedArgs[i]));
			if(wrapper != nullptr)
			{
				wrapper->val = argValue;
			}
			else
			{
				args[i] = passedArgs[i];
			}
		}
	
		return result;
	
	}
	catch(Exception^ exc)
	{
		auto buf = stringBuf(exc->ToString());
		MessageBox(0, buf, L"Error", MB_ICONERROR);
		delete[] buf;
		
		throw;

	}
	finally
	{
		delete[] passedArgs;
		delete[] wrappers;
	}
}