UseServiceLogonData: Boolean;
UseServiceLogonData: Boolean;
Свойство UseServiceLogonData определяет, будут ли переопределены настройки подключения для подключения через веб-сервис «Форсайт. Аналитическая платформа».
По умолчанию свойству установлено значение False, при этом используются настройки текущего репозитория или переопределенные настройки, указанные в свойстве LogonData, если свойству UseMetabaseLogonData установлено значение True.
При установке свойству UseServiceLogonData значения True, свойство LogonData можно привезти к типу IPrimaryServiceSPLD и указать параметры подключения через веб-сервис «Форсайт. Аналитическая платформа».
Для выполнения примера предполагается наличие в репозитории базы данных с идентификатором «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.
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;
См. также: