mORMot Open Source

I wrote this code myself for fast batch deletion (it runs inside a transaction, of course):

I := 0;
VLen := Length(AMarkIDs);
while I < VLen do begin
  VCount := Min(MAX_SQLPARAMS, VLen - I);
  VIds := Int64DynArrayToCSV(@AMarkIDs[I], VCount, '(', ');');
  Inc(I, VCount);
  Result := FClient.Execute('DELETE FROM ... WHERE RowID IN ' + VIds);
  ...
end;

I'm curious why you changed the parser behavior in mORMot 2 and set the parameter limit to only 64, considering that SQLite3 supports much higher limits.

Did you accidentally mix up the MAX_SQLFIELDS  and MAX_SQLPARAMS constants?

Sorry for reviving such an old thread, but I ran into this issue while migrating to mORMot v2.

In my case, I'm trying to delete 89 records using a DELETE FROM ... WHERE RowID IN (...) statement and I get a "Too many parameters..." error.

In the old codebase, I had an internal limit of 900 parameters for such operations (SQLite allows anywhere from 999 to 32,766, depending on the version).

In mORMot there is a MAX_SQLPARAMS = 500 constant, but it doesn't seem to be taken into account during parameter parsing. Instead, MAX_SQLFIELDS (which defaults to 64) is used: https://github.com/synopse/mORMot2/blob … e.pas#L842

Is this a bug, or is it the intended behavior?

Just read the comments carefully:

https://github.com/synopse/mORMot2/blob … s.pas#L173

https://github.com/synopse/mORMot2/blob … s.pas#L290

Davide

You can find it here: https://github.com/synopse/mORMot2/blob … t.pas#L666

So, it looks like we need the new 2.3.1.stable, or something similar. Or is version 2.4 coming soon?

The variables of this type are used in two functions as parameters: SqlDriverConnectA and SqlDriverConnectW.

On Win64, since parameters are passed through registers and the HWND type fits within 32 bits, no fatal errors occur in practice.

However, the type declaration should still be corrected for proper compatibility and clarity.

TSqlDBConnectionProperties.ForcedSchemaName https://github.com/synopse/mORMot2/blob … .pas#L1854

or https://synopse.info/forum/viewtopic.ph … 897#p11897

Read the link from my previous post, it answers to all your questions.

In SQLiteStudio you can define your own collation (Tools - Open collations editor) and open DB as usual.

For the SYSTEMNOCASE you can try this snippet:

function system_nocase(a, b)
{   
    a = a.toUpperCase();
    b = b.toUpperCase();

    return (a < b ? -1 : (a > b ? 1 : 0));  
}

Can you give more details? I can choose only FpDebug or GDB as backend - how can I choose "fpdebug +gdb"?

ZIP supports AES encryption since version 5.2: https://en.wikipedia.org/wiki/ZIP_(file … Encryption

It works for me with SynSQLite3Static and sqlite3.dll (both tested only for Win32). I used precompiled dll https://www.sqlite.org/download.html

mORMot 1.18.6192, Delphi 10.3.3 CE, test code:

program SynFTS5Test;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  SynCommons,
  SynSQLite3,
  SynSQLite3Static,
  mORMot,
  mORMotSQLite3;

type
  TSQLRecordFTS5Trigram = class(TSQLRecordFTS5);

  TSQLTextRecord = class(TSQLRecordFTS5Trigram)
  protected
    FText: RawUTF8;
  published
    property Text: RawUTF8 read FText write FText;
  end;

var
  VModel: TSQLModel;
  VClient: TSQLRestClientDB;
begin
  //sqlite3 := TSQLite3LibraryDynamic.Create;

  Writeln(SYNOPSE_FRAMEWORK_FULLVERSION);
  try
    VModel := TSQLModel.Create([TSQLTextRecord]);
    VClient := TSQLRestClientDB.Create(VModel, nil, 'fts5.db3', TSQLRestServerDB);
    try
      VClient.Server.CreateMissingTables;
      // ...
    finally
      VClient.Free;
      VModel.Free;
    end;
  except
    on E: Exception do begin
      Writeln(E.ClassName, ': ', E.Message);
    end;
  end;

  Writeln('Press ENTER to exit...');
  Readln;
end.

Your example is not relevant because mORMot 2 uses long units names. In my opinion, using prefixes is preferable.

mormot.core.base.TrimU()

SynTrim()

Embarcadero C++ 10.2 "Tokyo" Compiler and Command-line Tools (Win32 only) direct link:
http://altd.embarcadero.com/download/bc … BCC102.zip (45.2Mb)

I wold prefer explicit form: SysUtils.Trim(...)

mpv
Problem with linking sqlite3.obj compiled with modern Free C++ compiler (Clang based) under Win32. At that moment mORMot uses classic compiler from Community Edition which ships with commercial use limitations: https://www.embarcadero.com/free-tools/ccompiler

Open SynSQLite3Static.pas and add constant prefix:

  {$ifdef MSWINDOWS}
    {$ifdef CPU64}
      {$L sqlite3.o}  // compiled with C++ Builder 10.3 Community Edition bcc64
    {$else}
      {$L sqlite3.obj}  // compiled with free Borland C++ Compiler 5.5
       const _PREFIX = '_';  // compiled with modern C++ Builder Free compiler (Clang based)   <------ add this
    {$endif}
  {$else}

This will fix name underscore problem and than maybe compilation will be successful.

Explain, what is not working for you?

And now, Delphi (2007, 10.3.2) can't compile this unit because of missing initialization section.

Fix:

initialization
  // empty

finalization
  if PtrInt(curl.Module)>0 then begin
    curl.global_cleanup;
    FreeLibrary(curl.Module);
  end;

PR: https://github.com/synopse/mORMot/pull/244

Thank you.