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

src/ScriptEngine.Snegopat/MarshalingHelpers.cpp

24 строки396 B

EvilBeaver

загрузка скрипта и реализация IAddin

02 июн 2014, 18:42

02 июн 2014, 18:42ba3ebea

#include "Stdafx.h"
#include "MarshalingHelpers.h"

WCHAR* stringBuf(System::String^ str)
{
	int len = str->Length;
	WCHAR* buf = new WCHAR[len+1];
	memset(buf, 0, (len+1) * sizeof(WCHAR));
	for(int i = 0; i < len; i++)
	{
		buf[i] = str[i];
	}

	return buf;
}

BSTR stringToBSTR(System::String^ str)
{
	WCHAR* buf = stringBuf(str);
	BSTR ret = SysAllocString(buf);
	delete[] buf;

	return ret;
}