v8: Строковое представление объекта во внешней компоненте для 1С:Предприятие 8.0
methValueToString: //ЗначениеВСтрокуВнутр
begin
obj := OleVariant(i1cv7).AppDispatch;
obj0:=GetNParam(paParams,0); //1-й параметр метода
s:=Variant(obj).ЗначениеВСтрокуВнутр(obj0);
pvarRetValue:=s; //возвращаем строку
end;
methValueFromString: begin //ЗначениеИзСтрокиВнутр
obj := OleVariant(i1cv7).AppDispatch;
s:=GetNParam(paParams,0);
obj1:=Variant(obj).ЗначениеИзСтрокиВнутр(s);
pvarRetValue:=IDispatch(obj1); //возвращаем ссылку на объект
end;
|