[aqula]

Привет коллеги.
Тут сталкнулся со странной особенностью технологии адо в делфях.

Если программа работает по сети как клиент-серверное приложение, и происходит обрыв связи, то программа на клиенте выдает ошибку (забыл скриншот сваять) и вырубить приложение можно только аварийно через убийство процесса.

Мне нужно сделать обработку исключения в adoconnection на разрыв связи.
Пользователю предоставить выбор переподключиться к базе (серверу) или выход из программы.

Как бы это реализовать?

[starcon]

Тоже есть такая проблема .
Буду очень благодарен.

[lmikle]

можно попробовать бросить на форму TApplicationEvent и в его обработчике OnException ловить соотв. исключения и обрабатывать их.

[aqula]

На какую форму? у меня Connection в DataModule
Если на главную, то этот код не отлавливает при разрыве соединения

Код:

procedure TPhoneBook.ApplicationEvents1Exception(Sender: TObject;
  E: Exception);
begin
 RichEdit1.Lines.Add('Event OnException: ' + E.Message);
end;

end.

[lmikle]

Ну, если это не работает, то можно вот это почитать:
http://stackoverflow.com/questions/2...ith-the-server

Если коротко, то по таймеру выполняем простейший запрос, который гарантированно дает ответ. Если упало - то пытаемся переподключиться...

[Страдалецъ]

Я тут поэкспериментировал. Интересная ситуация наблюдается.
Повесил я процесс который информирует каждую секунду о состоянии коннекта. Так вот, после коннекта состояние выдается Open и как бы я не изголялся с остановкой, паузой для сервера состояние не меняется вообще. Более того, открытый набор данных, абсолютно себя нормально ведет при отключенном сервере. Сколько есть данных сейчас в буфере он и показывает их. Операций удаление, добавления я не делал, но уже забавно. При этом у меня для набора выставлен серверный курсор.
И добиться обрыва у меня что-то не получается Неубиваемый коннект какой-то.
Возникает вопрос, как бы сымитировать ситуацию обрыва. Вы что делаете когда получаете это сообщение?

[aqula]

Выдергиваю провод или сервер останавливаю. Адо при первом же в запросе падает. А если они еще и в таймере... Чот ни как не могу отловить.

[Страдалецъ]

Все работает в пределах нормы. Мне так и не удалось убить Адо. Паузы при отсутствии коннекта настраиваемые. Если вы уверены в качестве связи, то можно выставить самые минимальные значения для CommandTimeout и ConnectionTimeout. Можно даже самому отслеживать и визуализировать процесс подключения если сделать coAsyncConnect

[Страдалецъ]

А что там про таймер? Он тут каким боком?