We are currently evaluating the driver at my company. We have one problem with it. Firstly, working code:
Code: Select all
unit Unit24;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, WideStrings, DB, SqlExpr, StdCtrls, DBXDevartInterBase;
type
TForm24 = class(TForm)
btntest: TButton;
procedure btntestClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form24: TForm24;
implementation
{$R *.dfm}
procedure TForm24.btntestClick(Sender: TObject);
var
SQLConnection : TSQLConnection;
begin
SQLConnection := TSQLConnection.Create(Self);
SQLConnection.DriverName := 'DevartInterbase';
SQLConnection.LibraryName := 'dbexpida40.dll'; // depends on your IDE version. See the table below.
SQLConnection.VendorLib := 'gds32.dll';
SQLConnection.GetDriverFunc := 'getSQLDriverInterBase';
SQLConnection.Params.Clear;
SQLConnection.Params.Add('User_Name=SYSDBA');
SQLConnection.Params.Add('Password=masterkey');
SQLConnection.Params.Add('Database=C:\MyDB.fdb');
SQLConnection.Open;
ShowMessage('works?')
end;
end.
The problem is that we are not using library with name 'gds32.dll'. We would like to have a different name for the library and the library is not installed under System32 folder in Windows. Library must be present in the application folder.
For example, I would like to have it such name:
Code: Select all
SQLConnection.VendorLib := 'fbclient.dll';
'Can't load client DLL: fbclient.dll' in DBXDynalink unit.
Could you provide a solution for this problem?
Regards,
Wodzu