Вызов диалога подключения к репозиторию.
Отсутствуют
Если подключение к репозиторию, с указанными в диалоге учетными данными, пройдет удачно, то метод Execute вернет значение True, иначе False. Если для репозитория указан объект автозапуска, то при удачном подключении он будет запущен.
Для выполнения примера предполагается наличие формы и расположенной на ней кнопки с наименованием "Button1".
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Target: IUiCommandTarget;
Result: Boolean;
Begin
Target := WinApplication.Instance.GetPluginTarget("Std");
Result := Target.Execute("OpenLoginDialog", Null);
End Sub Button1OnClick;
При нажатии на кнопку будет открыт диалог подключения к репозиторию. В переменной «Result» будет результат подключения.
Для выполнения примера предполагается наличие формы и расположенной на ней кнопки с наименованием "Button1".
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Fore;
Imports Prognoz.Platform.Interop.Ui;
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
WinAppCls: WinApplicationClassClass = New WinApplicationClassClass();
Svc: IForeServices;
RunContext: ForeRuntimeContext;
Target: IUiCommandTarget;
Result: Boolean;
Begin
Svc := Self.Metabase As IForeServices;
RunContext := Svc.GetRuntime().Context;
Target := WinAppCls.Instance[RunContext].GetPluginTarget("Std");
Result := Target.Execute("OpenLoginDialog", Null, RunContext) As boolean;
End Sub;
При нажатии на кнопку будет открыт диалог подключения к репозиторию. В переменной «Result» будет результат подключения.
См. также: