Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.09.2018, 18:30   #1
tarakan1983
Форумчанин
 
Аватар для tarakan1983
 
Регистрация: 09.09.2008
Сообщений: 418
По умолчанию Динамическое подключение к БД Firebird из Fastreport

Здравствуйте. Использую динамическое создание отчета и в нем подключаюсь к БД Firebird.
Код:
PRNF := TfrxReport.Create(nil); 
with PRNF do 
begin 
OnUserFunction := UserFunction; 
CreateUniqueName; 
PreviewOptions.MDIChild := True; 
PreviewOptions.Modal := False; 
EngineOptions.DestroyForms := False; 
... 
end; 
DataPage := PRNF.FindComponent('Data') as TfrxDataPage; 
frxDB := TfrxFIBDatabase.Create(DataPage); 
with frxDB do 
begin 
Connected := False; 
Name := 'DB'; 
DatabaseName := SRVIP+':'+DBPATH+DBNAIM; 
LoginPrompt := False; 
Params.Clear; 
Params.Add('user_name=sysdba'); 
Params.Add('password=masterkey'); 
//s := 'LibraryName=C:\Program Files\Firebird\Firebird_2_5\WOW64\fbclient.dll'; 
//FromString(s); 
//Params.Add(s); 
SQLDialect := 3; 
Connected := True; 
end;
На windows x86 все работает идеально, а вот при переходе на x64 получаю ошибку
Цитата:
Connection not established . Connection rejected by remote interface.
Удалил gds32.dll из C:\Windows\system32
Получаю
Цитата:
System Error. Code: 126. Не найден указанный модуль
Внимание вопрос! Как TfrxFIBDatabase явно указать какую использовать DLL????
Для компонентов FibPlus есть свойство LibraryName. А где это у TfrxFIBDatabase?
Буду очень признателен за помощь.
tarakan1983 вне форума Ответить с цитированием
Старый 12.09.2018, 15:58   #2
tarakan1983
Форумчанин
 
Аватар для tarakan1983
 
Регистрация: 09.09.2008
Сообщений: 418
По умолчанию

Отвечаю сам себе. Все как всегда проще простого.
Код:
frxDB := TfrxFIBDatabase.Create(DataPage);
frxDB.Database.LibraryName := 'Путь к нужной библиотеке';
tarakan1983 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Подключение к БД FireBird Prostaf Работа с сетью в Delphi 9 02.10.2015 14:46
Delphi + Firebird + FastReport tarakan1983 БД в Delphi 9 15.02.2015 11:05
Динамическое подключение Dll С++ дашка-милашка Помощь студентам 0 14.06.2010 15:50
firebird подключение Domanoff БД в Delphi 15 09.06.2010 16:04