IMetabaseLinkBase.DeferredLoading

Синтаксис Fore

DeferredLoading: Boolean;

Синтаксис Fore.NET

DerreredLoading: Boolean;

Описание

Свойство DeferredLoading определяет, будет ли производиться отложенная загрузка описаний объектов при работе в репозитории.

Комментарии

Свойство доступно для использования, если на сервере, где расположен репозиторий, используется одна из следующих СУБД:

Если свойству установлено значение True, то при подключении будут загружены описания только тех объектов, которые необходимы для работы в репозитории.

Загрузка дескрипторов будет происходить в следующем порядке:

Загруженные описания будут кэшированы в памяти компьютера.

Примечание. Свойство не влияет на объекты, для которых установлен признак IMetabaseObjectDescritpor.IsDeferred.

Пример Fore

Для выполнения примера в менеджере репозиториев понадобится схема с идентификатором «PPRepository». Должен быть выбран поддерживающий отложенную загрузку дескрипторов тип сервера метабазы.

Sub UserProc;
Var
    MAN: IMetabaseManager;
    Defs: IMetabaseDefinitions;
    Def: IMetabaseDefinition;
Begin
    MAN := MetabaseManagerFactory.Active;
    Defs := MAN.Definitions;
    Def := Defs.FindById("PPRepository");
    If (Def.DriverId <> "ORCL"And (Def.DriverId <> "MSSQL"Then
        Def.DeferredLoading := True;
        Def.Save;
    End If;
End Sub UserProc;

После выполнения примера для указанного описания объектов репозитория будет установлена отметка, включающая отложенную загрузку дескрипторов метабазы.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.Metabase;

Public Sub UserProc(Params: StartParams);
Var
    MbMan: IMetabaseManager;
    MAN: MetabaseManagerFactory = New MetabaseManagerFactoryClass();
    Defs: IMetabaseDefinitions;
    Def: IMetabaseDefinition;
Begin
    MbMan := MAN.Active;
    Defs := MbMan.Definitions;
    Def := Defs.FindById("PPRepository");
    If (Def.DriverId <> "ORCL"And (Def.DriverId <> "MSSQL"Then
        Def.DeferredLoading := True;
        Def.Save();
    End If;
End Sub;

См. также:

IMetabaseLinkBase