Привет!
В своей программе на Delphi(BDE) переопределяю функцию dbmsghandle библиотеки Ntwdblib.dll для обработки сообщений сервера:
// Подключение моего обработчика
procedure InitErrorHandler(Database: TDatabase);
type
SETDBMSGHANDLER_PROC = function(proc: DBMSGHANDLE_PROC): DBMSGHANDLE_PROC; cdecl;
var
dberrhandle: Pointer;
dbmsghandle: Pointer;
begin
if DBLib = 0 then
DBLib := GetModuleHandle( DbLibName );

dbmsghandle := GetProcAddress( DBLib, 'dbmsghandle' )
if dbmsghandle <> nil then
old_msg_hndl := Pointer( SETDBMSGHANDLER_PROC(dbmsghandle)(@MsgHandler) );
end;
// Мой обработчик
function MsgHandler(proc: DBPROCESS; msgno, msgstate, severity: Integer;
text, srvname, procname: PChar; line: Word): Integer; cdecl;
begin
< Делаю, то что мне надо и вызываю старый обработчик >
if old_msg_hndl <> nil then
Result := DBMSGHANDLE_PROC(old_msg_hndl)
(proc, msgno, msgstate, severity, text, srvname, procname, line)
else
Result := 0;
end;

А теперь суть проблемы: Сообщения приходят, но не всегда, причем после загрузки программы сообщения некоторое время нормально доходят, а потом полный кирдык (мой обработчик не вызывается вообще), до следующей перезагрузки программы. В WinNT вроде как все ОК. Похоже BDE в процессе работы программы перегружает Ntwdblib.dll и все хэндлы теряются... пробовал LoadLibrary - таже хрень. Может кто сталкивался с подобным, буду очень признателен за помощь!

Вадим.