InitCertificate(StorageType: CertificateStorageType);
InitCertificate(StorageType: Prognoz.Platform.Interop.Metabase.CertificateStorageType);
Метод Certificate возвращает сертификат, выбранный по типу хранилища сертификата, и присваивает полученное значение в IMetabaseUser.Certificate.
Для выполнения примера предполагается наличие на форме компонента Button с идентификатором Button1.
Добавьте ссылку на системную сборку Metabase.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
User: IMetabaseUser;
Security: IMetabaseSecurity;
Begin
Security := MetabaseClass.Active.Security;
User := Security.ResolveName("ADMIN") As IMetabaseUser;
User.InitCertificate(CertificateStorageType.File);
Security.Apply;
End Sub Button1OnClick;
В результате выполнения примера после нажатия кнопки пользователю ADMIN будет присвоен валидный сертификат из выбранного файла.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore. Вместо компонентов Fore используйте их Fore.NET аналоги.
Imports Prognoz.Platform.Interop.Metabase;
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
User: IMetabaseUser;
Security: IMetabaseSecurity;
Begin
Security := Self.Metabase.Security;
User := Security.ResolveName("ADMIN") As IMetabaseUser;
User.InitCertificate(CertificateStorageType.cstFile);
Security.Apply();
End Sub;
См. также: