IMetabase.Definition

Синтаксис

Definition: IMetabaseDefinition;

Definition: Prognoz.Platform.Interop.Metabase.IMetabaseDefinition;

Описание

Свойство Definition возвращает описание текущего репозитория, хранящееся в менеджере репозиториев.

Пример

Добавьте ссылку на системную сборку Metabase.

Sub UserProc;
Var
    MB: IMetabase;
    MDef: IMetabaseDefinition;
Begin
    MB := MetabaseClass.Active;
    MDef := MB.Definition;
    Debug.WriteLine(MDef.LogonData.ParamValue("SERVER"));
    Debug.WriteLine(MDef.LogonData.ParamValue("SCHEME"));
End Sub UserProc;
Public Shared Sub Main(Params: StartParams);
    Var
    MB: IMetabase;
    MDef: IMetabaseDefinition;
Begin
    MB := Params.Metabase;
    MDef := MB.Definition;
    System.Diagnostics.Debug.WriteLine(MDef.LogonData.ParamValue["SERVER"]);
    System.Diagnostics.Debug.WriteLine(MDef.LogonData.ParamValue["SCHEME"]);
End Sub;

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

См. также:

IMetabase