ISecurityPackageLogonDataEx.ServiceLogon

Syntax

ServiceLogon: Boolean;

ServiceLogon: Boolean;

Description

The ServiceLogon property determines whether connection via platform web service is established without creating a repository connection.

Comments

The property is relevant only on working with theDatabaserepository object.

If the property is set to True, connection to DBMS server is established using the 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.

Example

Executing the example requires that the repository contains a database with the MS_DB identifier.

Add links to the Metabase, Db system assemblies.

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;

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;

On executing the example additional parameters of the specified database will be changed: connection to DBMS server, which settings are determined in database parameters, will be established using the platform web service with the specified address.

See also:

ISecurityPackageLogonDataEx