Полезные компоненты для пользователей Delphi и С++Builder


         

Модуль BDEUtils.pas


Описанным выше методом с магической комбинацией ctrl+shift+пробел узнаем, что в D5 введен тип TDatabaseLogin вместо TLoginEvent. В связи с этим нужно изменить в разделе interface описание функции function LoginToDatabase(Database: TDatabase; OnLogin: {$IFDEF RX_D5} TDatabaseLoginEvent {$ELSE} TLoginEvent {$ENDIF}): Boolean;

и повторить его в разделе implementation. Изменение тела функции не требуется.

В разделе implementation этого модуля функция GetNativeHandle требует изменения тела (D5 не имеет функции DBError, во всяком случае я не нашел ни ее, ни ее замены. Поэтому (исходя из ее функциональности) просто ставим там выброс исключения) {$IFDEF RX_D5} else raise EDBEngineError.Create(SLocalDatabase); {$ELSE} else DBError(SLocalDatabase); {$ENDIF}

Вместо выброса исключения можно использовать функцию DBIError. Опять архивируем и перекомпилируем библиотеку.



Содержание раздела