IMsFormulaTransform.SaveToXml

Синтаксис Fore

SaveToXml(Xml: IXMLDOMElement);

Синтаксис Fore.NET

SaveToXml(Xml: Prognoz.Platform.Interop.MsXml2.IXMLDOMElement);

Параметры

Xml. Объект, в который будут выгружены параметры модели.

Описание

Метод SaveToXml сохраняет параметры модели в XML.

Пример Fore

Для выполнения примера в репозитории  предполагается наличие контейнера моделирования с идентификатором «MS», содержащего модель с идентификатором «OBJ_MODEL».

Добавьте ссылки на системные сборки: Metabase, Ms, Xml.

Sub UserProc;
Var
    model: IMsModel;
    node: IXmlDomElement;
    mb: IMetabase;
    cl: FreeThreadedDOMDocument60;
    msKey: Integer;
Begin
    mb := MetabaseClass.Active;
    msKey := mb.ItemById("MS").Key;
    model := (mb.ItemByIdNamespace("OBJ_MODEL", msKey)).Bind As IMsModel;
    cl := New FreeThreadedDOMDocument60.Create;
    node := cl.createElement((model As IMetabaseObjectDescriptor).Id);
    cl.appendChild(node);
    model.Transform.SaveToXml(node);
    Debug.WriteLine(node.xml);
End Sub UserProc;

После выполнения примера, в компонент «Memo1» будут выведены параметры модели «OBJ_MODEL» в виде XML-кода.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.Ms;
Imports Prognoz.Platform.Interop.MsXml2;
…
Public Shared Sub Main(Params: StartParams);
Var
    model: IMsModel;
    node: IXmlDomElement;
    mb: IMetabase;
    cl: FreeThreadedDOMDocument60;
    msKey: uinteger;
Begin
    mb := Params.Metabase;
    msKey := mb.ItemById["MS"].Key;
    model := (mb.ItemByIdNamespace["OBJ_MODEL", msKey]).Bind() As IMsModel;
    cl := New FreeThreadedDOMDocument60.Create();
    node := cl.createElement((model As IMetabaseObjectDescriptor).Id);
    cl.appendChild(node);
    model.Transform.SaveToXml(node);
    System.Diagnostics.Debug.WriteLine(node.xml);
End Sub;

См. также:

IMsFormulaTransform