Celeron
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте! У меня проблема с использованием старой математической библиотеки IMSL Fortran 90 MP Library v4.01
Прикрутил её к своей программе на Delphi2006, через dll-обёртку, написанную на MS VC. Протестировал - реально работает - нашёл функцию, которая возвращает осмысленные ожидаемые данные - типа тест. 
Далее подобрал данные так, чтобы вызывалась ошибка времени выполнения. И
столкнулся с проблемой, описанной здесь:
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=35001
Программа вылетает с ошибкой. Кто с таким сталкивался и Решил, отзовитесь?
Когда открываю консоль в программа (директивой {$APPTYPE CONSOLE} или
командой AllocConsole() - не важно), то консоль открывается, НО программа у меня всё равно вылетает, хотя уже - молча! Т.е. эффект есть, но недостаточный.
Полагаю надо перенаправить вывод STD_ERROR_HANDLE в консоль.
Пробовал так:
handle := FileOpen('debug.out', fmOpenWrite);
b := SetStdHandle(STD_ERROR_HANDLE, handle);
И так:
handle := GetStdHandle(STD_ERROR_HANDLE);
SetStdHandle(STD_OUTPUT_HANDLE, handle);
Ноль эффекта! 
Можете что-то подсказать на этот счёт? Спасибо! |
