- fixed ticket [8dc4d49ea9] in TSQLDataBase.GetFieldNames()about result array
    truncated to 64

  Version 1.18
  - updated SQLite3 engine to version 3.7.15.1
  - raise an ESQLite3Exception if DBOpen method is called twice
  - TSQLDataBase.DBClose returns now the sqlite3_close() status code

  - added TSQLRequest.BindS() and TSQLRequest.FieldS() methods for direct
    string process
  - added TSQLDatabase.LogResultMaximumSize property to reduce logged extend

    Todo:
    - port to systems other than Delphi+Win32 (use external DLL?)
}

................................................................................
    function FieldBlobToStream(Col: integer): TStream;
    {/ return TRUE if the column value is NULL, first Col is 0 }
    function FieldNull(Col: Integer): Boolean;
    {/ return the field type of this column
     - retrieve the "SQLite3" column type as returned by sqlite3_column_type -
       i.e. SQLITE_NULL, SQLITE_INTEGER, SQLITE_FLOAT, SQLITE_TEXT, or SQLITE_BLOB  }
    function FieldType(Col: Integer): integer;









    {/ append all columns values of the current Row to a JSON stream
     - will use WR.Expand to guess the expected output format
     - BLOB field value is saved as Base64, in the '"\uFFF0base64encodedbinary"
       format and contains true BLOB data }
    procedure FieldsToJSON(WR: TJSONWriter);
    {/ the column/field count of the current ROW
     - fields numerotation starts with 0 }
................................................................................

function TSQLRequest.FieldType(Col: Integer): integer;
begin
  if cardinal(Col)>=cardinal(FieldCount) then
    raise ESQLite3Exception.Create(RequestDB, SQLITE_RANGE);
  result := sqlite3_column_type(Request,Col);
end;



















function TSQLRequest.FieldUTF8(Col: integer): RawUTF8;
var P: PUTF8Char;
begin
  if cardinal(Col)>=cardinal(FieldCount) then
    raise ESQLite3Exception.Create(RequestDB, SQLITE_RANGE);
  P := pointer(sqlite3_column_text(Request,Col));

  - fixed ticket [8dc4d49ea9] in TSQLDataBase.GetFieldNames()about result array
    truncated to 64

  Version 1.18
  - updated SQLite3 engine to version 3.7.15.1
  - raise an ESQLite3Exception if DBOpen method is called twice
  - TSQLDataBase.DBClose returns now the sqlite3_close() status code
  - added TSQLRequest.FieldDeclaredType() method
  - added TSQLRequest.BindS()/FieldS()/FieldDeclaredTypeS() methods for direct
    string process
  - added TSQLDatabase.LogResultMaximumSize property to reduce logged extend

    Todo:
    - port to systems other than Delphi+Win32 (use external DLL?)
}

................................................................................
    function FieldBlobToStream(Col: integer): TStream;
    {/ return TRUE if the column value is NULL, first Col is 0 }
    function FieldNull(Col: Integer): Boolean;
    {/ return the field type of this column
     - retrieve the "SQLite3" column type as returned by sqlite3_column_type -
       i.e. SQLITE_NULL, SQLITE_INTEGER, SQLITE_FLOAT, SQLITE_TEXT, or SQLITE_BLOB  }
    function FieldType(Col: Integer): integer;
    {/ return the type of this column, as declared at creation
     - textual type used for CREATE TABLE of the corresponding column, as
       returned by sqlite3_column_decltype()  }
    function FieldDeclaredType(Col: Integer): RawUTF8;
    {/ return the generic VCL string type of this column, as declared at creation
     - textual type used for CREATE TABLE of corresponding column, as
       returned by sqlite3_column_decltype()
     - note that prior to Delphi 2009, you may loose content during conversion }
    function FieldDeclaredTypeS(Col: Integer): string;
    {/ append all columns values of the current Row to a JSON stream
     - will use WR.Expand to guess the expected output format
     - BLOB field value is saved as Base64, in the '"\uFFF0base64encodedbinary"
       format and contains true BLOB data }
    procedure FieldsToJSON(WR: TJSONWriter);
    {/ the column/field count of the current ROW
     - fields numerotation starts with 0 }
................................................................................

function TSQLRequest.FieldType(Col: Integer): integer;
begin
  if cardinal(Col)>=cardinal(FieldCount) then
    raise ESQLite3Exception.Create(RequestDB, SQLITE_RANGE);
  result := sqlite3_column_type(Request,Col);
end;

function TSQLRequest.FieldDeclaredType(Col: Integer): RawUTF8;
var P: PUTF8Char;
begin
  if cardinal(Col)>=cardinal(FieldCount) then
    raise ESQLite3Exception.Create(RequestDB, SQLITE_RANGE);
  P := pointer(sqlite3_column_decltype(Request,Col));
  SetString(result,P,SynCommons.StrLen(P));
end;

function TSQLRequest.FieldDeclaredTypeS(Col: Integer): String;
var P: PUTF8Char;
begin
  if cardinal(Col)>=cardinal(FieldCount) then
    raise ESQLite3Exception.Create(RequestDB, SQLITE_RANGE);
  P := pointer(sqlite3_column_decltype(Request,Col));
  result := UTF8DecodeToString(P,SynCommons.StrLen(P));
end;

function TSQLRequest.FieldUTF8(Col: integer): RawUTF8;
var P: PUTF8Char;
begin
  if cardinal(Col)>=cardinal(FieldCount) then
    raise ESQLite3Exception.Create(RequestDB, SQLITE_RANGE);
  P := pointer(sqlite3_column_text(Request,Col));