IDatabase.UseServiceLogonData

Синтаксис Fore

UseServiceLogonData: Boolean;

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

UseServiceLogonData: Boolean;

Описание

Свойство UseServiceLogonData определяет, будут ли переопределены настройки подключения для подключения через веб-сервис «Форсайт. Аналитическая платформа».

Комментарии

По умолчанию свойству установлено значение False, при этом используются настройки текущего репозитория или переопределенные настройки, указанные в свойстве LogonData, если свойству UseMetabaseLogonData установлено значение True.

При установке свойству UseServiceLogonData значения True, свойство LogonData можно привезти к типу IPrimaryServiceSPLD и указать параметры подключения через веб-сервис «Форсайт. Аналитическая платформа».

Пример Fore

Для выполнения примера предполагается наличие в репозитории базы данных с идентификатором «DBWeb».

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    DB: IDatabase;
    LogonData: IPrimaryServiceSPLD;
Begin
    MB := MetabaseClass.Active;
    MObj := MB.ItemById("DBWeb").Edit;
    DB := MObj As IDatabase;
    DB.UseMetabaseLogonData := False;
    DB.Authentication := AuthenticationMode.Password;
    DB.DriverId := "WSF";
    LogonData := DB.LogonData As IPrimaryServiceSPLD;
    LogonData.Endpoint := "http://test-srv:9090/axis2/services/PP.SOM.Som";
    LogonData.Metabase := "PPRepository";
    MObj.Save;
End Sub UserProc;

При выполнении примера будут переопределены параметры подключения для указанной базы данных. Подключение будет осуществляться через указанный веб-сервис «Форсайт. Аналитическая платформа».

Пример Fore.NET

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

Imports Prognoz.Platform.Interop.Db;
Imports Prognoz.Platform.Interop.Metabase;

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    DB: IDatabase;
    LogonData: IPrimaryServiceSPLD;
Begin
    MB := Params.Metabase;
    MObj := MB.ItemById["DBWeb"].Edit();
    DB := MObj As IDatabase;
    DB.UseMetabaseLogonData := False;
    DB.Authentication := AuthenticationMode.amPassword;
    DB.DriverId := "WSF";
    LogonData := DB.LogonData As IPrimaryServiceSPLD;
    LogonData.Endpoint := "http://test-srv:9090/axis2/services/PP.SOM.Som";
    LogonData.Metabase := "PPRepository";
    MObj.Save();
End Sub;

См. также:

IDatabase