Создание объекта собственного класса

Копировать пример

Sub UserProc;
Var
    Mb: IMetabase;
    Obj: IMetabaseObject;
    CustomClassExtender: IMetabaseCustomExtender;
    CustClasses: IMetabaseCustomClasses;
    CustomClass: IMetabaseCustomClass;
    Operations: IMetabaseCustomClassOperations;
    Operation: IMetabaseCustomClassOperation;
    CreateInfo: IMetabaseObjectCreateInfo;
    Description: IMetabaseObjectDescriptor;
    ImgList, ImgList32: IGxImageList;
    Icon: IGxIcon;
    CustomObject: IMetabaseCustomObject;
    se: IMetabaseSecurity;
    AL: IAuditLog;
    ALogs: IAuditLogons;
    AOperat: IAuditOperations;
    i: Integer;
    Lic: Object;
Begin
    Mb := MetabaseClass.Active;
    // Создание контейнера пользовательских классов
    CreateInfo := Mb.CreateCreateInfo;
    CreateInfo.ClassId := MetabaseObjectClass.KE_CLASS_CUSTOM_EXTENDER;
    CreateInfo.Name := "CUSTOM_EXTENDER";
    CreateInfo.Permanent := True;
    CreateInfo.Parent := Mb.Root;
    Description := Mb.CreateObject(CreateInfo);
    Obj := Description.Edit;
    CustomClassExtender := Obj As IMetabaseCustomExtender;
    ImgList := New GxImageList.Create;
    ImgList.Height := 16;
    Icon := New GxIcon.CreateFromFile("C:\Icon_small.ico");
    ImgList.AddIcon(Icon);
    CustomClassExtender.SmallImages := ImgList;
    ImgList32 := New GxImageList.Create;
    ImgList32.Height := 32;
    Icon := New GxIcon.CreateFromFile("C:\Icon_large.ico");
    ImgList32.AddIcon(Icon);
    CustomClassExtender.LargeImages := ImgList32;
    CustomClassExtender.IsShared := True;
    CustomClassExtender.Resource := Mb.ItemById("OBJ_RES").Bind As IResourceObject;
    CustomClassExtender.NameResource := "ID_CUSTOM_EXTENDER";
    
    // Добавление пользовательского класса в контейнер
    CustClasses := CustomClassExtender.Classes;
    CustomClass := CustClasses.Add;
    CustomClass.Description := "Собственный класс";
    CustomClass.Id := "MY_CLASS";
    CustomClass.Name := "My_Class";
    CustomClass.ImageIndex := 0;
    Operations := CustomClass.Operations;
    Operation := Operations.Add(0);
    Operation.Name := "Новый метод";
    Obj.Save;
    
    // Создание объекта пользовательского класса
    CreateInfo.ClassId := CustomClass.ClassId;
    CreateInfo.Name := "Объект собственного класса";
    CreateInfo.Permanent := True;
    CreateInfo.Parent := Mb.Root;
    Description := Mb.CreateObject(CreateInfo);
    Obj := Description.Edit;
    CustomObject := Obj As IMetabaseCustomObject;
    CustomObject.Extender := CustomClassExtender;
    CustomObject.CustomClass := CustomClass;
    Obj.Save;
    
    // Проверка прав доступа к операции пользовательского класса.
    Lic := MB.RequestLicense(UiLicenseFeatureType.Adm);
    se := Mb.Security;
    Description.CheckAndAudit(CustomClass.Key, "Проверка прав доступа к операции");
    Al := se.OpenAuditLog;
    ALogs := AL.OpenLogons(False);
    AOperat := AL.OpenOperations(ALogs.Session);
    For i := 0 To 4 Do
        Debug.WriteLine("Объект: " + AOperat.ObjectName);
        Debug.WriteLine("Операция: " + AOperat.Name);
        Debug.WriteLine("Успешно выполнена: " + AOperat.Succeeded.ToString);
        Debug.WriteLine("Примечание: " + AOperat.Comment);
        Debug.WriteLine("--------");
        AOperat.Next;
    End For;
    Lic := Null;
End Sub UserProc;