Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > Проблема с TADOConnection.OnInfoMessage

Автор: sg729 4.5.2013, 14:52

У компоненты TADOConnection есть событие OnInfoMessage, которое, если верить хелпу, должно генерироваться при получении информационного сообщения от хранилища данных. Один из параметров OnInfoMessage - EventStatus может принимать значение esOK - Operation executed without problem. Казалось бы, даже в случае успешного выполнения операции есть возможность перехватить отголосок этого события и обработать его. Однако, пробую делать примерно так (Delphi 7):

Код


procedure TForm1.ADOConnection1InfoMessage(Connection: TADOConnection;
  const Error: Error; var EventStatus: TEventStatus);
var
  msg : String;
begin
  msg:='';
  case EventStatus of
    esOK            :    msg:='OK';            //Operation executed without problem.
    esErrorsOccured :    msg:='ErrorsOccured'; //An error occurred during execution of the operation.
    esCantDeny      :    msg:='CantDeny';      //A pending connection operation cannot be canceled. (Connection events only.).
    esCancel        :    msg:='Cancel';        //A pending connection has been canceled before it became active. (Connection events only.)
    esUnwantedEvent : msg:='UnwantedEvent';    //Set by the ADO method, prevents subsequent notification of the event.
  end;
  Memo1.Lines.Add('======================');
  Memo1.Lines.Add(msg);
  Memo1.Lines.Add(Error.Description);
end;

и ничего не получается. Событие ADOConnection1InfoMessage не возникает ни при успешной операции, ни при ошибке.
Может это событие вообще никогда не работает и его нельзя использовать?

Автор: savinata 20.9.2013, 00:43

Как мне кажется АДО это что то такое, что само по себе живет в системе Делфи. Вот пишу с помощью этого компонента программу удаленного администрирования сайта мерии. Просто так забожалось руководству, так вот что заметила... То конектимся, то в ошибку рулим... как хочется так и пляшется.. Я не удивилась постовому выше, ибо АДО... ЭТО ЧТО ТО...

Автор: sg729 20.9.2013, 10:56

Цитата(savinata @ 20.9.2013, 00:43)

Ну, почему, иногда ADO очень даже неплохо работает smile

Все в этом мире относительно, бывает и похуже... Вы через ADO хотя бы через раз коннектитесь, а я
http://forum.vingrad.ru/forum/topic-372092/kw-firebird-unavaible-database.html
к Firebird никак не могу подключиться smile