Strange exception when calling TSQLConnection.Open;
Posted: Thu 22 Sep 2016 06:17
Delphi Berlin 10.1 (no Update 1) 32 bit.
dbexpida40.dll 4.8.12
Hi,
this code raises a strange exception:
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.
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.