Исключение при неустановленных драйверах

← →
Анонимщик © (2004-07-02 15:17) [0]

Использую IBX
При запуске клиентской программы происходит исключение еще до Application.Run, если драйвера FireBird"а не установлены. Назначение программа, в принципе, не ограничивается работой с БД, поэтому ставить их на клиенте иногда не нужно.
Как можно побороть?

← →
Соловьев © (2004-07-02 15:24) [1]

> исключение еще до Application.Run,

зато во время коннекта к БД у тебя же наверное датабейз коннект автоматом коннектится

← →
Reindeer Moss Eater © (2004-07-02 15:40) [2]

Если библиотеки линкуются статически, то никак.

← →
Анонимщик © (2004-07-02 15:52) [3]

Соловьев.
Нет.

Reindeer Moss Eater
И что сделать, чтобы поменьше менять?

← →
Соловьев © (2004-07-02 16:00) [4]

> Нет.

да :)

← →
Соловьев © (2004-07-02 16:00) [5]

> Нет.

да :)

← →
Анонимщик © (2004-07-02 16:02) [6]

Я же сказал: нет.

← →
Соловьев © (2004-07-02 16:05) [7]

берем пишем при Create модуля данных:
try
IBDatabase.Connected := true;
except
end;
и не будет исключения.

← →
Reindeer Moss Eater © (2004-07-02 16:17) [8]

А зачем создавать модуль данных всегда, если программа не ограничена работой с БД?

← →
Анонимщик © (2004-07-02 16:24) [9]

Я же сказал уже.
И потом, мне незачем писать
IBDatabase.Connected := true
поскольку при Create я еще пути не знаю.
Ты бы проверил сначала, а потом отвечал.
Просто брось на форму TIBDataBase и больше ничего не делай, кроме билда. А потом запусти экзешник на машине без gds32.dll, и больше не умничай, хорошо?

← →
Reindeer Moss Eater © (2004-07-02 16:26) [10]

Ты дарагой сам не умничай.
И читай пост № 2

← →
Anatoly Podgoretsky © (2004-07-02 16:27) [11]

Убрать из проекта БД

← →
Анонимщик © (2004-07-02 16:28) [12]

Reindeer Moss Eater
Это неважно, создается он как Create или нет. Исключение все равно будет, как Вы правильно заметили, коль компоновка статическая

← →
Reindeer Moss Eater © (2004-07-02 16:29) [13]

Выход - переписать библиотеку IBX

← →
Анонимщик © (2004-07-02 16:31) [14]

Reindeer Moss Eater
Это я не Вам писал, а Соловьеву

← →
Reindeer Moss Eater © (2004-07-02 16:31) [15]

Либо бить свою приладу на DLL/пакеты, выносить все IB-dependent туда, и грузить опционально, проверив наличие gds

Reindeer Moss Eater
Может, чего-то в ее исходниках (IBX) подправить? Мне бы самый простой способ.

> Просто брось на форму TIBDataBase и больше ничего не делай,
> кроме билда

ну создавай обьект сам.

Ну я в них не глядел.

Но способ-то простой (хотя и трудоемкий)
Найти интерфейс с gds и переписать все на динамический импорт, добаваив процедуру загрузки/инициализации по требованию

> Просто брось на форму TIBDataBase и больше ничего не делай,
> кроме билда. А потом запусти экзешник на машине без gds32.dll,
> и больше не умничай, хорошо?

procedure TDm.DataModuleCreate(Sender: TObject); var ibd: TIBDatabase; begin try ibd := TIBDatabase.Create(DM); showmessage("gds32.dll есть"); except showmessage("gds32.dll нет"); end; end;
запустил на машине где нету библиотеки - все нормально.
ОС XP

Глянул в ibintf.pas.
Нету там статического импорта.
Там он динамический.

Главное не допустить вызова
procedure LoadIBLibrary;

раньше, чем это реально надо

Убедили, спасибо.

Исключение при неустановленных драйверах Найти похожие ветки