ISecurityPackageLogonDataEx.ServiceLogon

Fore Syntax

ServiceLogon: Boolean;

Fore.NET Syntax

ServiceLogon: Boolean;

Description

The ServiceLogon property determines connection attribute of the Prognoz Platform web-service without creation of repository connection.

Comments

The property is relevant only on working with theDatabaserepository object.

If the property is set to True, on working, the connection to the DBMS server is provided using the Prognoz Platform web-service. Only the connection with DB server is created without repository connection. This connection can be used to work with relational objects created in repository and stored on the DB server. Security module parameters to perform connection via web-service are set in the ServiceLogonData property.

By default the ServiceLogon property is set to False, connection to the DBMS server is performed according to settings determined for database in the IDatabase.LogonData property.

Fore Example

Executing the example requires a repository containing database with the MS_DB identifier.

Sub UserProc;
Var
    MB: IMetabase;
    DB: IDatabase;
    LdEx: ISecurityPackageLogonDataEx;
    SvcLd: IPrimaryServiceSPLD;
Begin
    MB := MetabaseClass.Active;
    DB := MB.ItemById("MS_DB").Edit As IDatabase;
    LdEx := DB.LogonData As ISecurityPackageLogonDataEx;
    LdEx.ServiceLogon := True;
    SvcLd := LdEx.ServiceLogonData As IPrimaryServiceSPLD;
    SvcLd.Endpoint := "http://test-srv:9090/axis2/services/PP.SOM.Som";
    (DB As IMetabaseObject).Save;
End Sub UserProc;

On executing the example additional parameters of the specified data base will be changed: connection to the DBMS server which settings are determined in the database parameters will be performed using the Prognoz Platform web-service with the specified address.

Fore.NET Example

The requirements and result of the Fore.NET example execution match with those in the Fore example.

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

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    DB: IDatabase;
    LdEx: ISecurityPackageLogonDataEx;
    SvcLd: IPrimaryServiceSPLD;
Begin
    MB := Params.Metabase;
    DB := MB.ItemById["MS_DB"].Edit() As IDatabase;
    LdEx := DB.LogonData As ISecurityPackageLogonDataEx;
    LdEx.ServiceLogon := True;
    SvcLd := LdEx.ServiceLogonData As IPrimaryServiceSPLD;
    SvcLd.Endpoint := "http://test-srv:9090/axis2/services/PP.SOM.Som";
    (DB As IMetabaseObject).Save();
End Sub;