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

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

Форум программистов > Delphi: Базы данных и репортинг > Перехват команды print при выполнении SQL-запроса

Автор: FreePaul 6.5.2006, 07:26

Здравствуйте!
Есть скрипт, написанный не мной, для периодического внесения исправлений в базу данных. Захотелось написать программу для него. Все вроде как сделал, осталась одна "малость": как мне перехватьть и вывести в MessageBox сообщение, которое в теле скрипта выводится в ResultsPane.
То есть в скрипте есть к примеру такой кусок:

Код


...
f @@error <> 0 goto ErrQuit
    if @@trancount > 0 commit tran
    print ''
    print 'Связь между документами успешно установлена!'
end
else
begin
    print ''
    print 'Связь между документами с данными регномерами уже существует!'
end
...

и я хочу сообщение 'Связь между документами успешно установлена!' или 'Связь между документами с данными регномерами уже существует!' вывести в MessageBox своей программы.
Как это можно осуществить?

Автор: me21 13.6.2008, 17:13

http://dn.codegear.com/article/20245. Два года прошло, ну а вдруг кому-то пригодится...