Assertion Failure

[drungrin]

Conn is a TSQLConnection instance

Code: Select all

Conn.Execute('SELECT cast(version() AS varchar(255))', Nil, @TempDataSet);

Assertion failure (D:\Projects\Delphi\Dac\PostgreSql\Source\PgSQLProtocol.pas, line 2254)

!!!

Delphi 2007
Driver Version 1.40.0.13

[AlexP]

Hello,

I cannot reproduce the problem.
The following code works without errors:

Code: Select all

var
SQLConnection: TSqlConnection;
TempDataSet: TDataSet;
begin
SQLConnection:= TSqlConnection.Create(nil);
SQLConnection.DriverName := 'DevartPostgreSQL';
SQLConnection.GetDriverFunc := 'getSQLDriverPostgreSQL';
SQLConnection.ConnectionName :=  'Devart PostgreSQL';
SQLConnection.LibraryName:= 'dbexppgsql40.dll';
SQLConnection.VendorLib := 'dbexppgsql40.dll';
SQLConnection.LoginPrompt := false;
SQLConnection.Params.Values['hostname'] := 'postgres:5432';
SQLConnection.Params.Values['Database'] := 'postgres';
SQLConnection.Params.Values['User_Name'] := 'postgres';
SQLConnection.Params.Values['Password'] := 'postgres';
SQLConnection.Open;
SQLConnection.Execute('SELECT cast(version() AS varchar(255)) as ver', Nil, @TempDataSet);
ShowMessage(TempDataSet.fieldByName('ver').AsString);

Please try to execute this code, and if no error occurs, modify it so that the error occurs and send it to us.

[drungrin]

Try executing a empty sql statment before (/* WHERE */), just the comments, no select.

It 'll raise a error regarding the empty statment, then it raises the assertion failure with any query executed after this one.

If you cannot reproduce, I can try to make a snippet for you.

[AlexP]

Hello,

Thank you for the information.
We have reproduced the problem.
We will notify you as soon as we have any results.

[AlexP]

Hello,

We have fixed the problem.
This fix will be included in the next build.