IDomainCredentials.LogonAsCurrentUser

Синтаксис

LogonAsCurrentUser: Boolean;

Описание

Свойство LogonAsCurrentUser определяет, будет ли осуществлено подключение под текущим доменным пользователем.

Комментарии

По умолчанию свойство имеет значение True и подключение осуществляется с учетными данными текущего доменного пользователя. В случае установки свойства в False для подключения к схеме необходимо определить свойства Domain, UserName и Password.

Пример

Для выполнения примера на форме должны быть расположены EditBox1 и EditBox2 типа EditBox. В схеме должна быть таблица с идентификатором Table. Доменный пользователь, под которым осуществляется подключение, должен быть добавлен в список пользователей репозитория и иметь привилегии «Вход в систему» и «Право чтения и открытия всех объектов».

Добавьте ссылки на системные сборки: Db, Metabase.

Sub UserProc;
Var
    MbDef: IMetabaseDefinition;
    Package: ISecurityPackage;
    dc: IDomainCredentials;
    Mb: IMetabase;
    MbManager: IMetabaseManager;
    Table: ITable;
    Field: ITableField;
Begin
    Mb := Null;
    MbManager := MetabaseManagerFactory.Active;
    MbDef := MbManager.Definitions.FindById("MS");
    Debug.AssertMsg(MbDef <> Null, "Описание метабазы не найдено");
    Package := MbManager.Packs.FindById(MbDef.SecurityPackage).Package;
    dc := Package.CreateCredentials(AuthenticationMode.Domain) As IDomainCredentials;
    dc.LogonAsCurrentUser := False;
    dc.Domain := "FORESIGHT";
    dc.UserName := EditBox1.Text;
    dc.Password := EditBox2.Text;
    Mb := MbDef.Open(dc, ApplicationMode.Win, LocaleCodeID.Russian);
    WinApplication.InformationBox("Подключение осуществлено");
    Table := Mb.ItemById("Table").Bind As ITable;
    For Each Field In Table.Fields Do
        Debug.WriteLine(Field.Name);
    End For;
End Sub UserProc;

p>

При указании верного пароля и имени пользователя будет осуществлено подключение к схеме "MS", будет выдано сообщение об этом. В окно консоли будут выведены наименования полей таблицы.

См. также:

IDomainCredentials