将免费 DBX 驱动程序与 TSQLConnection 结合使用时出现的问题

发布于 2024-11-28 17:10:50 字数 1323 浏览 1 评论 0原文

我从此处下载了免费的 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（错误代码 22）。它可能会从系统路径。

我的应用程序路径中有所需的库，甚至在 System32 路径中也有它们。我没有使用 dbxdrivers.ini 和 dbxconnections.ini。

那么这是怎么回事呢？我有带有最新更新的 Delphi 2009。

原文

I've downloaded free DBX driver from here. I have been trying to make it work for two days now, without success.

Here is the snapshot of my code:

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;

After running the test I am receiving error: