LoadModule: IForeNETModule;
Метод LoadModule осуществляет загрузку и сохранение .NET-модуля в репозиторий.
Метод осуществляет загрузку и сохранение .NET-модуля в соответствии с параметрами, указанными в свойстве CreateInfo. Модуль будет сохранен в рамках .NET-сборки, указанной в свойстве Assembly. Если в сборке уже существует объект, идентификатор которого соответствует идентификатору загружаемого .NET-модуля, то будет сгенерирована исключительная ситуация.
Для выполнения примера предполагается наличие в корневом каталоге диска «C» файла «TestModule.ppnmodule». В данном файле содержится сохраненная .NET-форма платформы. В текущем репозитории имеется .NET-сборка с идентификатором «TestAssembly».
Sub UserProc;
Var
MB: IMetabase;
NETAsm: IMetabaseObjectDescriptor;
Fs: IForeNETSerializer;
Fsl: IForeNETSerializerLoader;
Id: String;
Begin
MB := MetabaseClass.Active;
NETAsm := MB.ItemById("TestAssembly");
Fs := New ForeNETSerializer.Create;
Fsl := Fs.CreateLoaderFromFile("c:\TestModule.ppnmodule", MB);
Id := Fsl.CreateInfo.Id;
If MB.ItemByIdNamespace(Id, NETAsm.Key) <> Null Then
Fsl.CreateInfo.Id := MB.GenerateId(Id, NETAsm.Key);
Fsl.CreateInfo.Name := Fsl.CreateInfo.Name + "_Copy";
End If;
Fsl.Assembly := NETAsm.Bind As IForeNETAssembly;
Fsl.CreateInfo.Parent := NETAsm;
Fsl.LoadModule;
End Sub UserProc;
При выполнении примера из указанного файла будет загружен .NET-модуль. .NET-модуль будет сохранен в указанной .NET-сборке репозитория. Если в данной .NET-сборке существует объект, имеющий такой же идентификатор как и загружаемый .NET-модуль, то перед загрузкой идентификатор .NET-модуля будет изменен.
См. также: