MobileApplication: IMobileApplication;
MobileApplication: Prognoz.Platform.Interop.Mobile.IMobileApplication;
Свойство MobileApplication возвращает мобильное приложение, которое должно быть опубликовано.
Путь публикации мобильного приложения определяет свойство IPublishMobileApplicationScheduledTask.WebApplication.
Для выполнения примера в репозитории предполагается наличие контейнера запланированных задач с идентификатором «TASK_CONT».
Добавьте ссылки на системные сборки: Metabase, Mobile, Fore.
Sub UserProc;
Var
mb: IMetabase;
tCont: IScheduledTasksContainer;
Tasks: IMetabaseObjectDescriptors;
i: Integer;
taskDescr, MobApp: IMetabaseObjectDescriptor;
maTask: IPublishMobileApplicationScheduledTask;
Begin
mb := MetabaseClass.Active;
// Получаем контейнер запланированных задач
tCont := mb.ItemById("TASK_CONT").Bind As IScheduledTasksContainer;
// Получаем все задачи из контейнера
Tasks := tCont.Tasks;
For i := 0 To Tasks.Count - 1 Do
taskDescr := Tasks.Item(i);
// Отбираем задачи публикации мобильного приложения
If taskDescr.ClassId = MetabaseObjectClass.KE_CLASS_TASK_PUBLISHMOBILEAPP Then
maTask := taskDescr.Bind As IPublishMobileApplicationScheduledTask;
// Выводим в окно консоли наименование публикуемого мобильного приложения
MobApp := maTask.MobileApplication As IMetabaseObjectDescriptor;
Debug.Write("Задача публикации мобильного приложения '");
Debug.WriteLine(MobApp.Name + "'");
End If;
End For;
End Sub UserProc;
Результат выполнения примера: в окно консоли выведены наименования мобильных приложений, публикация которых выполняется с помощью контейнера запланированных задач.
Для выполнения примера в репозитории предполагается наличие контейнера запланированных задач с идентификатором «TASK_CONT».
Imports Prognoz.Platform.Interop.KeFore;
Imports Prognoz.Platform.Interop.Mobile;
…
Public Shared Sub Main(Params: StartParams);
Var
mb: IMetabase;
tCont: IScheduledTasksContainer;
Tasks: IMetabaseObjectDescriptors;
i: Integer;
taskDescr, MobApp: IMetabaseObjectDescriptor;
maTask: IPublishMobileApplicationScheduledTask;
Begin
mb := Params.Metabase;
// Получаем контейнер запланированных задач
tCont := mb.ItemById["TASK_CONT"].Bind() As IScheduledTasksContainer;
// Получаем все задачи из контейнера
Tasks := tCont.Tasks;
For i := 0 To Tasks.Count - 1 Do
taskDescr := Tasks.Item[i];
// Отбираем задачи публикации мобильного приложения
If taskDescr.ClassId = MetabaseObjectClass.KE_CLASS_TASK_PUBLISHMOBILEAPP As integer Then
maTask := taskDescr.Bind() As IPublishMobileApplicationScheduledTask;
// Выводим в окно консоли наименование публикуемого мобильного приложения
MobApp := maTask.MobileApplication As IMetabaseObjectDescriptor;
System.Diagnostics.Debug.Write("Задача публикации мобильного приложения '");
System.Diagnostics.Debug.WriteLine(MobApp.Name + "'");
End If;
End For;
End Sub;
Результат выполнения примера: в окно консоли выведены наименования мобильных приложений, публикация которых выполняется с помощью контейнера запланированных задач.
См. также: