Код

HRESULT CEventProxy::methSerialize(VARIANT* pRetVal, SAFEARRAY **pParams)
{
	CComVariant param=GetNParam(*pParams,0);
	VariantInit(pRetVal);
	pRetVal->vt=VT_BSTR;
	if(param.vt==VT_DISPATCH)
	{
		IMoniker* moniker;
		CreateObjrefMoniker(param.pdispVal,&moniker);
		moniker->GetDisplayName(NULL, NULL, &pRetVal->bstrVal);
		moniker->Release();
	}
	return S_OK;
}
 

Код

WINOLEAPI CreateObjrefMoniker(
    LPUNKNOWN pUnk,    //Pointer to the object
    LPMONIKER *ppMk    //Address of pointer to OBJREF moniker
); 

Код

		CComVariant param;
		((CBLMyEx*)NULL)->ValueToVariantEx(ppValue[0][0],&param);
		if(param.vt==VT_DISPATCH)
		{
			IMoniker* moniker;
			CreateObjrefMoniker(param.pdispVal,&moniker);
			LPOLESTR pszDisplayName = NULL;
			moniker->GetDisplayName(NULL, NULL, &pszDisplayName);
			rValue = CString(pszDisplayName);
			moniker->Release();
		} else {
			rValue = "";
		}
 

Код

Процедура Тест_ПередачаВСкриптСПомощьюСериализовать() Экспорт
	Сам = Сам();

	Система = СоздатьОбъект("Система");

	Scr=СоздатьОбъект("MSScriptControl.ScriptControl");
	scr.Language="vbscript";

	Т = СоздатьОбъект("ТаблицаЗначений");
	Т.НоваяКолонка("t1");
	Т.НоваяСтрока();
	лНужноеЗначение = 111;
	Т.t1 = лНужноеЗначение;

	Scr.AddCode("
	        |Function TestVT
	        |Set v=GetObject("""+Система.Сериализовать(Т)+""")
	        |	v.SelectLines()
	        |	v.GetLine()
	        |	TestVT=v.t1
	        |End Function");

	Сам.ПроверитьРавенство(Scr.Eval("TestVT()"), лНужноеЗначение);

КонецПроцедуры 

Код

		LPOLESTR pszDisplayName = NULL;
		moniker->GetDisplayName(NULL, NULL, &pszDisplayName);
 

Код

	LPOLESTR pszDisplayName = NULL;
moniker->GetDisplayName(NULL, NULL, &pszDisplayName);

CString temp(pszDisplayName);

CComPtr<IMalloc> spMalloc;
if(FAILED(CoGetMalloc(MEMCTX_TASK, &spMalloc)))
	return FALSE;

spMalloc->Free(pszDisplayName);
 

artbear писал(а) 28. Апреля 2008 :: 12:30:

Ссылка зависает из-за

IMHO, из-за счётчика ссылок на param.pdispVal, а не из-за этого лика. Но как-то странно - при многократном последовательном вызове не после каждого (???) вызова его нужно освобождать. Чего-то у меня с головой, наверное.. Или что-то где-то не инициализировано..

Код

BOOL CSystem::funcSerialize(CValue& RetVal, CValue **ppValue)
{
	CComVariant param;
	static_cast<CBLMyEx*>(NULL)->ValueToVariantEx(ppValue[0][0],&param);
	if(param.vt != VT_DISPATCH)
		RetVal = "";
	else
	{
		IDispatchPtr dispatch(param.pdispVal);
		param.pdispVal->Release();

		IMonikerPtr moniker;
		if FAILED(CreateObjrefMoniker(dispatch,&moniker))
			RuntimeError("Система::Сериализовать - неудача");

		LPOLESTR pszDisplayName = NULL;
		if FAILED(moniker->GetDisplayName(NULL, NULL, &pszDisplayName))
			RuntimeError("Система::Сериализовать - неудача");

		RetVal = CString(pszDisplayName);

		CoTaskMemFree(pszDisplayName);
	}

	return TRUE;
}
 

Код

Процедура Тест_ПередачаВСкриптСПомощьюСериализовать() Экспорт

	//Система = СоздатьОбъект("Система");
//Т = СоздатьОбъект("ТаблицаЗначений");
//лТекст = Система.Сериализовать(Т);
//Сообщить("<"+лТекст+">");

Scr=СоздатьОбъект("MSScriptControl.ScriptControl");
scr.Language="vbscript";

Т = СоздатьОбъект("ТаблицаЗначений");
Т.НоваяКолонка("t1");
Т.НоваяСтрока();
лНужноеЗначение = 111;
Т.t1 = лНужноеЗначение;

Сериализация = СоздатьОбъект("Сериализация");

Scr.AddCode("
        |Function TestVT
        |	Set v=GetObject("""+Сериализация.Сериализовать(Т)+""")
        |	v.SelectLines()
        |	v.GetLine()
        |	TestVT=v.t1
        |End Function");

Если Scr.Eval("TestVT()") <> лНужноеЗначение Тогда
	Предупреждение("Неуспех");
Иначе
	Предупреждение("Успех");
КонецЕсли;

КонецПроцедуры
 

Код

тбл.СоздатьЭУ("OWC11.Spreadsheet");
conn = CreateObject("ADODB.Connection");
conn.Open("Provider=OLEDB1C");
тбл.Объект.DataSource = conn.Execute(ст.Сериализовать(тз));
тбл.Объект.DataMember = "";