Version: Integer;
Version: integer;
Свойство Version возвращает версию формата публикации.
По умолчанию версия формата публикации - «1».
Для выполнения примера в репозитории предполагается наличие контейнера мобильного приложения с идентификатором «MAC».
Добавьте ссылки на системные сборки: Metabase, Mobile.
Sub UserProc;
Var
mb: IMetabase;
Mobile: IMobileApplication;
Publicator: IMobileApplicationPublicator;
res: MobilePublishResult;
Begin
mb := MetabaseClass.Active;
// Получаем публикуемое мобильное приложение (МП)
Mobile := mb.ItemById("MAC").Bind As IMobileApplication;
// Создаем публикатор МП
Publicator := Mobile.CreatePublicator;
// Задаем веб-сервер и виртуальный каталог для публикации МП
Publicator.WebApplication := "http://prognoz/PPMobile_App";
// Выполняем публикацию МП
Publicator.Execute(Null);
// Обрабатываем результаты публикации МП
If res = MobilePublishResult.Ok Then
Debug.WriteLine("Публикация выполнена успешно. Версия формата публикации: " + Publicator.Version.ToString);
Else
Debug.WriteLine("В процессе публикации произошла ошибка");
End If;
End Sub UserProc;
В результате выполнения примера будет опубликован контейнер мобильного приложения «MAC». В окне консоли будет выведено сообщение о результате публикации.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.Mobile;
…
Public Shared Sub Main(Params: StartParams);
Var
mb: IMetabase;
Mobile: IMobileApplication;
Publicator: IMobileApplicationPublicator;
res: MobilePublishResult;
Begin
mb := Params.Metabase;
// Получаем публикуемое мобильное приложение (МП)
Mobile := mb.ItemById["MAC"].Bind() As IMobileApplication;
// Создаем публикатор МП
Publicator := Mobile.CreatePublicator();
// Задаем веб-сервер и виртуальный каталог для публикации МП
Publicator.WebApplication := "http://prognoz/PPMobile_App";
// Выполняем публикацию МП
Publicator.Execute(Null);
// Обрабатываем результаты публикации МП
If res = MobilePublishResult.mprOk Then
System.Diagnostics.Debug.WriteLine("Публикация выполнена успешно. "
+ "Версия формата публикации: " + Publicator.Version.ToString());
Else
System.Diagnostics.Debug.WriteLine("В процессе публикации произошла ошибка");
End If;
End Sub;
См. также: