ForeExec

Проблема

При выполнении Fore.NET-метода, в котором происходит инициализация и использование COM-объектов Prognoz Platform, возникает ошибка, информирующая об отсутствии необходимого зарегистрированного COM-класса.

Причина

Ошибка связана с тем, что среда .NET не может создать экземпляр класса в связи с отсутствием манифеста с описанием COM-классов в исполняемых файлах веб-сервера, на работу с которым настроен BI-сервер.

Решение

Для решения данной проблемы необходимо изменить код Fore.NET-метода следующим образом: для инициализации COM-объектов используйте вместо оператора New функцию - Prognoz.Platform.PiLibNet.Utils.ComCreator.Instance.CoCreate<Type>(). Для использования функции подключите системную сборку WinForms.Utils.

Пример:

Var
    //...
    ManagerFactory: IMetabaseManagerFactory;
    Manager: IMetabaseManager;
    //...
Begin
    //...
    ManagerFactory := New MetabaseManagerFactoryClass();
    Manager := ManagerFactory.Active;
    //...

Указанный код необходимо изменить следующим образом:

Imports Prognoz.Platform.PiLibNet.Utils;
//...
Var
    //...
    ManagerFactory: IMetabaseManagerFactory;
    Manager: IMetabaseManager;
    //...
Begin
    //...
    ManagerFactory := ComCreator.Instance.CoCreate<MetabaseManagerFactoryClass>();
    Manager := ManagerFactory.Active;
    //...

Проблема

При работе с BI-сервером из-под пользователя, который не является локальным администратором или отсутствует в списке пользователей на компьютер, где установлен BI-сервер, при выполнении Fore.NET-метода возникает ошибка «Catastrophic failure».

Причина

Ошибка связана с ошибкой .NET Framework, который обращается к ветке реестра системной учетной записи «NetworkService» - [HKEY_USERS\S-1-5-20\Software\Microsoft\Windows\CurrentVersion\Internet Settings] и не получает к ней доступ. Из под этой учетной записи запускается пул приложения BI-сервера.

Решение

Для решения проблемы необходимо дать доступ на чтение указанной ветки реестра пользователю, под которым осуществляется работа с Fore.NET-объектами.

Проблема

Имеется два репозитория Р1 и Р2. В репозитории Р1 реализован модуль М c методом Test, в репозитории Р2 создан ярлык на этот модуль. Если попытаться выполнить метод Test, находясь в репозитории Р2, то выполнение будет осуществляться в контексте Р2, а не репозитория Р1, где он физически реализован. Из-за этого код может отработать некорректно или вообще не отработать ввиду возможного различия набора и иерархии объектов репозитория.

Решение

Способ решения указанной проблемы зависит от сигнатуры и места реализации выполняемого метода (Fore/Fore.NET-модуль) и предполагает выполнение через дополнительный код, а не путем непосредственного вызова с помощью операции ForeExec. В общем виде используется примерно следующий алгоритм:

• В репозитории Р2 создается дополнительный Fore-модуль М2. В этом модуле необходимо реализовать метод (например, Run), который будет получать контекст репозитория Р2.

• Дальнейшие действия зависят от сигнатуры и места реализации метода Test:

• Test находится в Fore.NET-модуле. В методе Run необходимо реализовать доступ к ярлыку. На базе информации, хранящейся с ярлыком, создать соединение с репозиторием Р1. После этого, используя ресурсы сборки ForeNet, выполнить метод Test;

• Test находится в Fore-модуле. Выполнение различных Fore-методов доступно только через Fore.NET, поэтому необходимо реализовать дополнительную .NET-сборку и в ней .NET-метод, который будет использовать информацию из ярлыка на модуль М и выполнять метод Test.

Таким образом операция ForeExec будет использоваться для выполнения метода Run, который в свою очередь подключится ко второму репозиторию и в рамках него выполнит метод Test.

Рассмотрим пример возможной реализации метода Run, выполняющего метод Test. Предполагается, что Test имеет один входной параметр типа IMetabase:

Test находится в Fore.NET-модуле:

Sub Run;
Var
    MB, MBLink: IMetabase;
    MDesc: IMetabaseObjectDescriptor;
    LinkInst: IMetabaseLinkInstance;
    Run: IForeNETRuntime;
    Asm, Asm1: IForeNETRuntimeAssembly;
    Typ, Typ1: IForeNETRuntimeType;
    TypInst: IForeNETRuntimeObjectInstance;
    Args2: IForeNETRuntimeMethodArgs;
    Bind: IForeNETRuntimeMethodBinding;
    Method: IForeNETRuntimeMethod;
    AssmID: String;

Begin
    MB := MetabaseClass.Active; //Текущий репозиторий
    MDesc := MB.ItemById("SHORTCUT_TO_NETASSM"); //Ярлык на .NET-сборку в репозитории Р2
    AssmID := MDesc.Bind.Shortcut.Id; //Идентификатор .NET-сборки в репозитории Р1
    LinkInst := MDesc.Link.Open(Null) As IMetabaseLinkInstance;
    MBLink := LinkInst.Metabase; //Контекст репозитория Р1
    Run := ForeNETAssemblyClass.Runtime;
    Asm := Run.Assembly(MBLink.ItemById(AssmID).Bind As IForeNETAssembly);
    //Класс, в котором находится реализация метода Test
    Typ := Asm.Type(AssmID + ".Program");
    TypInst := Typ.CreateInstance;
    //Чтоб выполнение осуществлялось в том репозитории, в котором создана .NET-сборка,
    //контекст этого репозитория передаем в качестве параметра
    Asm1 := Run.SystemAssembly("Metabase");
    Typ1 := Asm1.Type("Prognoz.Platform.Interop.Metabase.IMetabase");
    Args2 := Asm.Runtime.CreateArgs(1);
    Args2.Value(0) := MBLink;
    Bind := Run.CreateBinding(1);
    Bind.Types.Item(0) := Typ1;
    //Выполняем метод Test в .NET-сборке
    Method := Typ.Method("Test", Bind);
    Method.Invoke(TypInst, Args2);
End Sub Run;

Test находится в Fore-модуле:

Fore-модуль с методом Run:

Sub Run;
Var
    MB: IMetabase;
    Run: IForeNETRuntime;
    Asm, Asm1: IForeNETRuntimeAssembly;
    Typ, Typ1: IForeNETRuntimeType;
    TypInst: IForeNETRuntimeObjectInstance;
    Args2: IForeNETRuntimeMethodArgs;
    Bind: IForeNETRuntimeMethodBinding;
    Method: IForeNETRuntimeMethod;
    AssmID: String = "AdditionalNETAssm";
Begin
    MB := MetabaseClass.Active; //Текущий репозиторий
    Run := ForeNETAssemblyClass.Runtime;
    Asm := Run.Assembly(MB.ItemById(AssmID).Bind As IForeNETAssembly);
    //Класс, в котором реализация выполняемого метода
    Typ := Asm.Type(AssmID + ".Program");
    TypInst := Typ.CreateInstance;
    //Контекст репозитория передается в качестве параметра, чтоб можно было получить доступ к ярлыку
    Asm1 := Run.SystemAssembly("Metabase");
    Typ1 := Asm1.Type("Prognoz.Platform.Interop.Metabase.IMetabase");
    Args2 := Asm.Runtime.CreateArgs(1);
    Args2.Value(0) := MB;
    Bind := Run.CreateBinding(1);
    Bind.Types.Item(0) := Typ1;
    //Выполняем метод Run в .NET-сборке, который в свою очередь выполнит метод Test
    Method := Typ.Method("RunShortcut", Bind);
    Method.Invoke(TypInst, Args2);
End Sub Run;

Fore.NET-модуль с дополнительным методом RunShortcut:

Imports Prognoz.Platform.Interop.Fore;
Imports Prognoz.Platform.Interop.Metabase;

Public Shared Sub RunShortcut(MB: IMetabase);
Var
    MDesc: IMetabaseObjectDescriptor;
    LinkInstance: IMetabaseLinkInstance;
    MBLink: IMetabase;
    c: IForeClass;
    ForeUnitID: String;
    FSvc: IForeServices;
    FRun: IForeRuntime;
    FAssm: IForeAssembly;
    FSub: IForeSub;
Begin
    MDesc := MB.ItemById["SHORTCUT_TO_NETASSM"]; //Ярлык на .NET-сборку в репозитории Р2
    ForeUnitID := MDesc.Bind().Shortcut.Id; //Идентификатор .NET-сборки в репозитории Р1
    LinkInstance := MDesc.Link.Open(Null) As IMetabaseLinkInstance; //получаем объект связь с репозиторем
    MBLink := LinkInstance.Metabase; //Контекст репозитория Р1
    //Выполнение Fore-модуля
    FSvc := MBLink As IForeServices;
    FRun := FSvc.GetRuntime();
    FRun.LoadAssembly(ForeUnitID);
    FAssm := FRun.BindToAssembly(ForeUnitID);
    FSub := FAssm.BindToSub("Test");
    FSub.Invoke();
End Sub;

<html>
<body>
    <script language="javascript" type="text/javascript">
    <!--...Предыдущий код приложения...-->
    <!--...-->
    <!--Функция для отправки JSON-запроса-->
    function PostRequest(url, request) {
        <!--...-->
        var xhr = new XMLHttpRequest();
        <!--...-->
        xhr.setRequestHeader('p-h', '1');
        <!--...-->
        xhr.send(JSON.stringify(request));
        <!--...-->
    }
    </script>
</body>
</html>