Динамическое подключение к БД Firebird

tarakan

Здравствуйте. Использую динамическое создание отчета и в нем подключаюсь к БД 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');
        [color="#FF0000"]//s := 'LibraryName=C:\Program Files\Firebird\Firebird_2_5\WOW64\fbclient.dll';
        //FromString(s);
        //Params.Add(s);[/color]
        SQLDialect := 3;
        Connected := True;
      end;

На windows x86 все работает идеально, а вот при переходе на x64 получаю ошибку

sysdba написал:

Connection not established . Connection rejected by remote interface.

Удалил gds32.dll из C:\Windows\system32
Получаю

sysdba написал:

System Error. Code: 126. Не найден указанный модуль

Внимание вопрос! Как TfrxFIBDatabase явно указать какую использовать DLL????
Для компонентов FibPlus есть свойство LibraryName. А где это у TfrxFIBDatabase?

tarakan

Здесь есть кто-нибудь?

gpi

Попробуйте

Params.Add('LibraryName=C:\Program Files\Firebird\Firebird_2_5\WOW64\fbclient.dll');

или задайте frxDB.Database.LibraryName

tarakan

gpi написал: »

Попробуйте

Params.Add('LibraryName=C:\Program Files\Firebird\Firebird_2_5\WOW64\fbclient.dll');

или задайте frxDB.Database.LibraryName

Спасибо