IRepositoryScriptManager.VersionMinor

Синтаксис

VersionMinor: Integer;

Описание

Свойство VersionMinor возвращает номер промежуточной версии репозитория.

Комментарии

Для получения версии необходимо выполнить метод FetchVersion.

Пример

Для выполнения примера предполагается наличие сервера ORCL с наименованием «Test». На сервере создана схема «TestSchema». В рамках этой схемы созданы репозиторий и репозиторий НСИ.

Sub Main;

Var

Rsm: IRepositoryScriptManager;

Driv: IDalDriver;

ConDesc: IDalConnectionDescriptor;

Params: IDalConnectionDescriptorParams;

Con: IDalConnection;

Begin

//Подключение к схеме на сервере ORCL

Driv := New DalOrclDriver.Create As IDalDriver;

ConDesc := Driv.CreateDescriptor;

Params := ConDesc.Params;

Params.Find("User Name").Value := "TestSchema";

Params.Find("Password").Value := "TestSchema";

Params.Find("Host BSTR").Value := "Test";

Params.Find("Scheme").Value := "TestSchema";

Con := ConDesc.CreateConnection;

//Настройки менеджера репозитория

Rsm := New RepositoryScriptManager.Create;

Rsm.Connection := Con;

Rsm.Driver := RepositoryDriverType.ORCL;

//Получение версии для репозитория

Rsm.Repository := RepositoryType.Metabase;

Rsm.FetchVersion;

Debug.WriteLine("Версия репозитория");

Debug.WriteLine(Rsm.VersionMajor.ToString);

Debug.WriteLine(Rsm.VersionMinor.ToString);

//Получение версии для репозитория НСИ

Rsm.Repository := RepositoryType.RDS;

Rsm.FetchVersion;

Debug.WriteLine("Версия репозитория НСИ");

Debug.WriteLine(Rsm.VersionMajor.ToString);

Debug.WriteLine(Rsm.VersionMinor.ToString);

If Rsm.VersionUnicode Then

Debug.WriteLine("Юникод версия репозитория НСИ");

Else

Debug.WriteLine("Не юникод версия репозитория НСИ");

End If;

End Sub Main;

При выполнении примера будет осуществлено подключение к схеме «TestSchema» расположенной на сервере «Test». В консоль среды разработки будут выведены версии, которые имеют репозиторий и репозиторий НСИ, созданные в данной схеме.

См. также:

IRepositoryScriptManager