dbexpida40.dll 4.8.12
Hi,
this code raises a strange exception:
Code: Select all
procedure TForm1.Button6Click(Sender: TObject);
var
oDBX: TSQLConnection;
_params: TStringList;
i: Integer;
begin
_params := TStringList.Create;
_params.Add('Storage=Native');
_params.Add('Dialect=INTERBASE');
_params.Add('LoginPrompt=0');
_params.Add('DriverName=DevartInterBase');
_params.Add('GetDriverFunc=getSQLDriverINTERBASE');
_params.Add('VendorLib=fbclient.dll');
_params.Add('LibraryName=dbexpida40.dll');
_params.Add('DATABASE=C:\MYDB.FDB'); //Set up this parameter
_params.Add('USER_NAME=SYSDBA'); //Set up this parameter
_params.Add('PASSWORD=password'); //Set up this parameter
oDBX := TSQLConnection.Create( nil );
oDBX.DriverName := 'DevartInterBase' ;
oDBX.GetDriverFunc := 'getSQLDriverINTERBASE' ;
oDBX.VendorLib := 'fbclient.dll' ;
oDBX.LibraryName := 'dbexpida40.dll' ;
oDBX.LoginPrompt := False ;
for i:=0 to _params.Count - 1 do
begin
oDBX.Params.Values[ _params.Names[i] ] :=
_params.Values[ _params.Names[i] ] ;
end;
oDBX.Open; //Exception raised here with corrupted message.
end;
However the same code is working on Delphi 2009 without problems. Could you please check the issue? We are unable to provide new version of our application because of this error.