mORMot Open Source

Hi,

I have a Server Oracle on Linux
Oracle Database 11g Release 11.2.0.4.0 - 64bit Production
TNS for Linux: Version 11.2.0.4.0 - Production
NLSRTL Version 11.2.0.4.0 - Production

My Application
Lib: mORMotNightlyBuild.zip
Delphi XE7 - Target Platforms (Win32)
Windows 7

Test Code:

function TTestServer.ExecQuery(prFileName: String; prParams: TStrings): RawUTF8;
var
  q: TQuery;
  i: Integer;
  ct: SynCommons.PPtrInt;
begin
  q := TQuery.Create(fProps.ThreadSafeConnection);
  try
    Q.SQL.Clear; 
    Q.SQL.LoadFromFile(prFileName);
    for i := 0 to prParams.Count-1 do
      Q.ParamByName(prParams.Names[i]).AsString := prParams.Values[prParams.Names[i]];
    Q.Open;
    Q.First;    
    Result:= Q.PreparedSQLDBStatement.FetchAllAsJSON(True, ct, True);
  finally
    q.Free;
  end;
end;

The Problem:
Line -> Result:= Q.PreparedSQLDBStatement.FetchAllAsJSON(True, ct, True);

When I execute the function with these parameters FetchAllAsJSON(True, ct, True)
I get the error ORA-24391

When I execute the function with these parameters FetchAllAsJSON(True)
Thats OK, but the first row of data is missing

What am I doing wrong?

TIA