IsDisconnected: Boolean;
Метод IsDisconnected возвращает признак отсутствия соединения с сервером БД.
Метод возвращает значение True, если отсутствует соединение с сервером БД и False, если соединение присутствует. В случае отсутствия соединения можно попытаться восстановить его. Для этого используется метод RefreshO с соответствующим значением параметра MetabaseRefreshOptions.Reconnect.
Для выполнения примера предполагается наличие формы и расположенной на ней кнопки с наименованием «Button1».
Добавьте ссылку на системную сборку Metabase.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
MB: IMetabase;
Begin
MB := MetabaseClass.Active;
Try
MB.Refresh;
Except
If MB.IsDisconnected Then
MB.RefreshO(
MetabaseRefreshOptions.Reconnect Or
MetabaseRefreshOptions.NoObjects Or
MetabaseRefreshOptions.NoRefreshEvent);
End If;
End Try;
End Sub Button1OnClick;
После выполнения примера при нажатии на кнопку будет осуществлено обновление дерева объектов репозитория. Если во время обновления возникла ошибка, связанная с потерей соединения с сервером БД, то соединение будет восстановлено.
См. также: