IMetabase.Mode

Синтаксис Fore

Mode: ApplicationMode;

Синтаксис Fore.NET

Mode: Prognoz.Platform.Interop.ForeSystem.ApplicationMode;

Описание

Свойство Mode определяет, каким образом произошло подключение к репозиторию.

Комментарии

Подключение к репозиторию может происходить c клиентского места Prognoz Platform 8 или из веб-приложения.

Пример Fore

Для выполнения примера предполагается наличие формы, содержащей компонент Button с идентификатором «Button1». Пример является обработчиком события OnClick для компонента «Button1».

Добавьте ссылки на системные сборки «Ui», «ForeSystem».

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    MB: IMetabase;
Begin
    MB := MetabaseClass.Active;
    If MB.Mode = ApplicationMode.Web Then
        WinApplication.InformationBox("Данная функция не доступна при использовании веб-приложения.");
        Else
            WinApplication.InformationBox("Данная функция доступна при подключении к репозиторию c клиентского места Prognoz Platform.");
    End If;
End Sub Button1OnClick;

В результате выполнения примера на экране появится сообщение:

• «Данная функция не доступна при использовании веб-приложения», если соединение с репозиторием произошло из веб-приложения;

• «Данная функция доступна при подключении к репозиторию с клиентского места Prognoz Platform 8», если соединение с репозиторием произошло с клиентского места Prognoz Platform 8.

Пример Fore.NET

Для выполнения примера предполагается наличие формы, содержащей компонент Button с идентификатором «button1». Пример является обработчиком события Click для компонента «button1».

Добавьте ссылки на системные сборки «Ui», «ForeSystem».

Imports Prognoz.Platform.Interop.Ui;
Imports Prognoz.Platform.Interop.ForeSystem;
…
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    MB: IMetabase;
    WinApp: WinApplicationClassClass = New WinApplicationClassClass();
Begin
    MB := Self.Metabase;
    If MB.Mode = ApplicationMode.amWeb Then
        WinApp.InformationBox("Данная функция не доступна при использовании веб-приложения.", New IWin32WindowForeAdapter(Self));
        Else
            WinApp.InformationBox("Данная функция доступна при подключении к репозиторию c клиентского места Prognoz Platform.", New IWin32WindowForeAdapter(Self));
    End If;
End Sub;

Результат выполнения примера Fore.NET совпадет с результатом выполнения примера Fore.

См. также:

IMetabase