Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Создание TADOQuery во время выполнения

10K
03 апреля 2005 года
Kostyan_ksn
2 / / 03.04.2005
Имеется консольное приложение, работающее с БД через ADO
Вот такой пример:

uses ADODB;
var query1: TADOQuery;
begin
query1:=TADOQuery.Create (nil);
end;

При вызове конструктора вылетает exception EOleSysError: не был произведен вызов CoInitialize
Вопрос: что и где нужно инициализировать перед созданием объекта?
И еще: как можно в консольном приложении отлавливать исключения? Имеется в виду не try...except конструкция, а как можно достать сообщение исключения?
10
03 апреля 2005 года
Freeman
3.2K / / 06.03.2004
Цитата:
Originally posted by Kostyan_ksn
При вызове конструктора вылетает exception EOleSysError: не был произведен вызов CoInitialize
Вопрос: что и где нужно инициализировать перед созданием объекта?


До вызова первого конструктора вызови CoInitialize(nil).

Цитата:

И еще: как можно в консольном приложении отлавливать исключения? Имеется в виду не try...except конструкция, а как можно достать сообщение исключения?


Вроде Application.OnException? В SysUtils описан указатель на обработчик необработанных исключений. Называется вроде ExceptProc.

303
03 апреля 2005 года
makbeth
1.0K / / 25.11.2004
Цитата:
И еще: как можно в консольном приложении отлавливать исключения? Имеется в виду не try...except конструкция, а как можно достать сообщение исключения?


А чем не устраивает конструкция try..except?

 
Код:
try
    ...
except
    on E: EOleSysError do
       MessageBox(E.Message, ....);  
end;

В дельфях - это стандартный способ работы с исключениями.
Цитата:
Вроде Application.OnException?


В консольках нет объекта Application, объявленного в модуле Forms.

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог