IsUpToDate(Recursive: Boolean): Boolean;
Recursive. Параметр, определяющий будет ли осуществляться проверка наличия последних компилированных версий сборок, связанных с данной .NET-сборкой.
Если передавать значение True, то будет осуществляться проверка наличия последней компилированной версии текущей .NET-сборки, а также всех сборок, связанных с текущей. При значении False будет осуществляться проверка наличия последней компилированной версии только текущей .NET-сборки.
Метод IsUpToDate осуществляет проверку наличия в кэше сборок последней компилированной версии .NET-сборки.
Метод возвращает значение True, если в кэше имеется последняя компилированная версия .NET-сборки.
Для выполнения примера предполагается наличие в репозитории .NET-сборки с идентификатором "NETAssembly_1".
Sub UserProc;
Var
MB: IMetabase;
NETAssembly: IForeNETAssembly;
Arg: IForeNETMakeArgs;
s: String;
Begin
MB := MetabaseClass.Active;
NETAssembly := MB.ItemById("NETAssembly_1").Bind As IForeNETAssembly;
Arg := NETAssembly.CreateMakeArgs;
Arg.Messages := New StringList.Create;
If NETAssembly.IsUpToDate(True) Then
NETAssembly.Run;
Elseif NETAssembly.MakeUpToDate(Arg) Then
NETAssembly.Run;
Else
For Each s In Arg.Messages Do
Debug.WriteLine(s);
End For;
End If;
End Sub UserProc;
После выполнения примера будет осуществлена проверка наличия в кэше сборок последней компилированной версии указанной .NET-сборки. Если последняя версия присутствует, то сборка будет запущена из кэша сборок. Если последняя версия отсутствует, то будет осуществлена компиляция .NET-сборки и всех сборок, связанных с ней. Если компиляция прошла удачно, то сборка будет запущена, иначе в консоль среды разработки будет выведена информация об ошибках, возникших во время компиляции.
См. также: