IMobileApplicationPublishCallBack.OnStartPublish

В примере приведено описание пользовательского класса, являющегося обработчиком событий. Добавьте ссылку на системную сборку Mobile.

Class MobileAppCallback: Object, IMobileApplicationPublishCallBack
    // Конструктор
    Public Constructor Create;
    Begin
    End Constructor Create;
    
    // Событие, возникающее в процессе экспорта
    Public Sub OnProgress(Value: Double);
    Var
        r: Double;
    Begin

        r := Value * 100;
        Debug.WriteLine("Экспортировано (%): " + r.ToString);
    End Sub OnProgress;
    
    // Событие, возникающее в начале экспорта объекта
    Public Sub OnStartExportObject(ObjectDesc: IMetabaseObject);
    Var
        s: String;
    Begin
        s := ObjectDesc.Name + "(" + ObjectDesc.Id + ")";
        Debug.WriteLine("Экспортируемый объект: " + s);
        Debug.Indent;
    End Sub OnStartExportObject;
    

    // Событие, возникающее в конце экспорта объекта
    Public Sub OnEndExportObject(Result: MobilePublishObjectResult);
    Begin
        Debug.Unindent;
        If Result = MobilePublishObjectResult.OK Then
            Debug.WriteLine("Объект экспортирован успешно");
        Else
            Debug.WriteLine("В процессе экспорта объекта возникла ошибка");
        End If;
        Debug.WriteLine("");
    End Sub OnEndExportObject;
    
    // Событие, возникающее в начале экспорта мобильного приложения
    Public Sub OnStartExport(ObjectCount: Integer);
    Begin
        Debug.WriteLine("Экспорт мобильного приложения началася");
        Debug.Indent;
        Debug.WriteLine("Количество экспортируемых объектов: " + ObjectCount.ToString);
    End Sub OnStartExport;

    
    // Событие, возникающее в конце экспорта мобильного приложения
    Public Sub OnEndExport;
    Begin
        Debug.Unindent;
        Debug.WriteLine("Экспорт мобильного приложения завершен");
    End Sub OnEndExport;
    
    // Собитие, возникающее в начале публикации мобильного приложения
    Public Sub OnStartPublish(Count: Integer);
    Begin
        Debug.WriteLine("Публикация мобильного приложения началась");
        Debug.WriteLine("    Количество публикуемых элементов: " + Count.ToString);
    End Sub OnStartPublish;
    

    // Событие, возникающее в конце публикации мобильного приложения
    Public Sub OnEndPublish;
    Begin
        Debug.WriteLine("Публикация мобильного приложения завершена");
    End Sub OnEndPublish;
    
    // Событие, возникающее в процессе публикации
    Public Sub OnPublishProgress(Value: Double);
    Var
        r: Double;
    Begin
        r := Value * 100;
        Debug.WriteLine("    Опубликовано (%): " + r.ToString);
    End Sub OnPublishProgress;
    
End Class MobileAppCallback;

Использование данного класса для обработки событий приведено в примере Fore для IMobileApplication.CreatePublicator.

В примере приведено описание пользовательского класса, являющегося обработчиком событий.

Imports Prognoz.Platform.Interop.Mobile;
Public Class MobileAppCallback: Object, IMobileApplicationPublishCallBack
    // Конструктор
    Public Constructor Create();
    Begin
    End Constructor Create;
    
    // Событие, возникающее в процессе экспорта
    Public Sub OnProgress(Value: Double);
    Var
        r: Double;

    Begin
        r := Value * 100;
        System.Diagnostics.Debug.WriteLine("Экспортировано (%): " + r.ToString());
    End Sub OnProgress;
    
    // Событие, возникающее в начале экспорта объекта
    Public Sub OnStartExportObject(ObjectDesc: IMetabaseObject);
    Var
        s: String;
    Begin

        s := ObjectDesc.Name + "(" + ObjectDesc.Id + ")";
        System.Diagnostics.Debug.WriteLine("Экспортируемый объект: " + s);
        System.Diagnostics.Debug.Indent();
    End Sub OnStartExportObject;
    
    // Событие, возникающее в конце экспорта объекта
    Public Sub OnEndExportObject(Result: MobilePublishObjectResult);
    Begin
        System.Diagnostics.Debug.Unindent();
        If Result = MobilePublishObjectResult.mporOK Then
            System.Diagnostics.Debug.WriteLine("Объект экспортирован успешно");
        Else

            System.Diagnostics.Debug.WriteLine("В процессе экспорта объекта возникла ошибка");
        End If;
        System.Diagnostics.Debug.WriteLine("");
    End Sub OnEndExportObject;
    
    // Событие, возникающее в начале экспорта мобильного приложения
    Public Sub OnStartExport(ObjectCount: Integer);
    Begin
        System.Diagnostics.Debug.WriteLine("Экспорт мобильного приложения началася");
        System.Diagnostics.Debug.Indent();
        System.Diagnostics.Debug.WriteLine("Количество экспортируемых объектов: " + ObjectCount.ToString());
    End Sub OnStartExport;
    
    // Событие, возникающее в конце экспорта мобильного приложения
    Public Sub OnEndExport();
    Begin
        System.Diagnostics.Debug.Unindent();

        System.Diagnostics.Debug.WriteLine("Экспорт мобильного приложения завершен");
    End Sub OnEndExport;
    
    // Собитие, возникающее в начале публикации мобильного приложения
    Public Sub OnStartPublish(Count: Integer);
    Begin
        System.Diagnostics.Debug.WriteLine("Публикация мобильного приложения началась");
        System.Diagnostics.Debug.WriteLine("    Количество публикуемых элементов: " + Count.ToString());
    End Sub OnStartPublish;
    
    // Событие, возникающее в конце публикации мобильного приложения
    Public Sub OnEndPublish();
    Begin

        System.Diagnostics.Debug.WriteLine("Публикация мобильного приложения завершена");
    End Sub OnEndPublish;
    
    // Событие, возникающее в процессе публикации
    Public Sub OnPublishProgress(Value: Double);
    Var
        r: Double;
    Begin
        r := Value * 100;
        System.Diagnostics.Debug.WriteLine("    Опубликовано (%): " + r.ToString());
    End Sub OnPublishProgress;
    
End Class MobileAppCallback;

Использование данного класса для обработки событий приведено в примере Fore.NET для IMobileApplication.CreatePublicator.