CopyCredentials(Value: ICredentials): ICredentials;
Value. Источник учетных данных.
Метод CopyCredentials копирует учетные данные из объекта, который передается в качестве входного параметра.
Sub UserProc;
Var
MB: IMetabase;
Session: ILogonSession;
Package: ISecurityPackage;
Creds, CredsNew: ICredentials;
Begin
MB := MetabaseClass.Active;
Session := MB.LogonSession;
Package := New StandardSecurityPackage.Create;
Creds := Session.Credentials("DB");
CredsNew := Package.CreateCredentials(AuthenticationMode.Password);
CredsNew := Package.CopyCredentials(Creds);
End Sub UserProc;
После выполнения примера в переменной CredsNew будут содержаться учетные данные, скопированные из учетных данных активного репозитория.
См. также: