Проблемы с использованием бесплатного драйвера DBX в сочетании с TSQLConnection - PullRequest
Новая
       50

Проблемы с использованием бесплатного драйвера DBX в сочетании с TSQLConnection

0 голосов
/ 10 августа 2011

Я скачал бесплатный драйвер DBX с здесь .

Я пытаюсь заставить его работать уже два дня, но безуспешно.

Вот снимок моего кода: 

unit uMainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, SqlExpr, WideStrings, DBXDynalink, DB;

type
  TMainForm = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.Button1Click(Sender: TObject);
var C: TSQLConnection;
begin
  C := TSQLConnection.Create(Self);
  try
    C.DriverName := 'FirebirdConnection';
    C.LibraryName := 'dbxfb4d12.dll';
    C.VendorLib := 'fbclient.dll';
    C.GetDriverFunc := 'getSQLDriverFIREBIRD';
    C.Params.Add('User_Name=SYSDBA');
    C.Params.Add('Password=masterkey');
    C.Params.Add('Database=C:\MyDB.fdb');
    C.Open;
    if C.Connected then
      ShowMessage('Connection is active')
  finally
    C.Free;
  end;
end;

После запуска теста я получаю сообщение об ошибке: «Невозможно загрузить fbclient.dll (ErrorCode 22). Возможно, он отсутствует в системном пути».

У меня есть требуемые библиотеки в моем пути приложения, они есть даже в пути System32. Я не использую dbxdrivers.ini и dbxconnections.ini.

Так что здесь происходит? У меня Delphi 2009 с последними обновлениями.

Спасибо за ваше время.

Ответы [ 2 ]

0 голосов
/ 13 февраля 2012

Иногда необходимо переименовать fbclient.dll в gds32.dll.Это может помочь.

0 голосов
/ 10 августа 2011

Вы также пытались поместить файл fbclient.dll в ту же папку, что и исполняемый файл?

...