CopyCredentials(Value: ICredentials): ICredentials;
Value - источник учетных данных.
Метод CopyCredentials копирует учетные данные из объекта, который передается в качестве параметра Value.
Sub Main;
Var
MB: IMetabase;
Def: IMetabaseDefinition;
Man: IMetabaseManager;
Packs: IScPacks;
Pack: IScPack;
Sp: ISecurityPackage;
Sc: ISecurityConnection;
Cr,Cr_new: ICredentials;
LoS: ILogonSession;
Begin
MB:=MetabaseClass.Active;
Def:=MB.Definition;
LoS:=MB.LogonSession;
Man:=Def.Manager;
Packs:=Man.Packs;
Pack:=Packs.Item(0);
Sp:=Pack.Package;
Sc:=LoS.PrimaryConnection;
Cr:=Sc.Credentials;
Cr_new:=Sp.CreateCredentials(AuthenticationMode.Domain);
Cr_new:=Sp.CopyCredentials(Cr);
End Sub Main;
После выполнения примера в переменной «Cr_new» будут содержаться учетные данные, скопированные из учетных данных активного репозитория
См. также: