LoadScript(Stream: IIOStream);
Stream. Поток, содержащий скрипт для создания и обновления репозитория. Для работы с репозиторием необходимо в данный поток загрузить содержимое файла current.rm4, либо current_rds.rm4.
Метод LoadScript загружает скрипт, используемый для осуществления указанной операции над репозиторием.
В зависимости от типа репозитория, указанного в свойстве Repository, в поток необходимо загружать содержимое различных файлов:
для репозитория - содержимое файла «current.rm4».
для репозитория НСИ - содержимое файла «current_rds.rm4».
Для выполнения примера предполагается наличие сервера ORCL с наименованием «Test». На сервере создана схема «TestSchema». В корневом каталоге диска «С» имеется файл «current.rm4», содержащий скрип для создания репозитория.
Sub Main;
Var
Rsm: IRepositoryScriptManager;
Driv: IDalDriver;
ConDesc: IDalConnectionDescriptor;
Params: IDalConnectionDescriptorParams;
Con: IDalConnection;
Begin
//Подключение к схеме на сервере ORCL8
Driv := New DalOrcl8Driver.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.ORCL8;
Rsm.Operation := RepositoryOperationType.Create;
Rsm.Repository := RepositoryType.Metabase;
Rsm.LoadScript(New FileStream.Create("c:\Current.rm4", FileOpenMode.Read, FileShare.Exclusive));
Rsm.Execute(Null);
End Sub Main;
После выполнения примера на сервере «Test» в схеме «TestSchema» будет создан новый репозиторий Prognoz Platform 8.
Для выполнения примера предполагается наличие сервера MSSQL с наименованием «Test». На сервере имеется база данных «TestSchema». В корневом каталоге диска «С» имеется файл «current.rm4», содержащий скрип для создания репозитория.
Sub Main;
Var
Rsm: IRepositoryScriptManager;
Driv: IDalDriver;
ConDesc: IDalConnectionDescriptor;
Params: IDalConnectionDescriptorParams;
Con: IDalConnection;
Begin
//Подключение к схеме на сервере MSSQL
Driv := New DalMsSql2008Driver.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("Database").Value := "TestSchema";
Con := ConDesc.CreateConnection;
//Настройки менеджера репозитория
Rsm := New RepositoryScriptManager.Create;
Rsm.Connection := Con;
Rsm.Driver := RepositoryDriverType.MSSQL2008;
Rsm.Operation := RepositoryOperationType.Create;
Rsm.Repository := RepositoryType.Metabase;
Rsm.Unicode := True;
Rsm.LoadScript(New FileStream.Create("c:\current.rm4", FileOpenMode.Read, FileShare.Exclusive));
Rsm.Execute(Null);
End Sub Main;
После выполнения примера на сервере «Test» в схеме «TestSchema» будет создана юникод версия репозитория Prognoz Platform 8.
См. также: