mORMot Open Source

I think there was a bug in the original code. in the crc32 function try changing this line:

 crc = crc ^ (-1);

to this:

 crc = crc^0xFFFFFFFF; 

The photo looks like a Giacometti view of our mORMot!

I've just seen this post on the embarcadero web site: https://www.embarcadero.com/br/products … tarter-faq
Can this free edition be used to compile SQLite?

I'm only licensed up to XE2 so will probably use the pre-complied version here . But I see I can remove the 'rem's in the bat file to go back to the old Borland version.
Thanks,
Esmond

I'm also puzzled by the difference between 'ID' and 'RowID'.

If I use TSQLTableDB.getJSONValues(true) it returns ID

but with TSQLRecord.getJSONValues(true,true,soSelect) it returns RowID for the record number.

Can anyone explain the difference between ID and RowID?

Thanks,
Esmond

+1 for method based services

Thanks

Thanks, I need to study the source code more.

Is it possible to use TMVCApplication with method based services instead of interface based services?

Normally about 2000 chars in a URL is fine. Not sure why you have the 260 char limit.

Only solution I can think of is to find a way to shorten the URL

I'm not completely sold on twitter's bootstrap. OpenUI5 and vcljs look really interesting. I tried bootstrap version 2, but needed to make quite a few tweaks for my use case. Then version 3 broke my tweaks and changed default css box-sizing causing more problems. Version 4 seems delayed.

Great Thanks, it's all working now.

Thanks but sorry I made a mistake in TSQLRecord.GetSQLCreate. Could the new fix below be applied.

This will probably break the search feature in sample 30 - MVC Server, for non-sqlite dbs. I guess this would need contentless FTS tables as before but with only an insert trigger and some sort of utility function to periodically update the FTS index by rebuilding it.

I wasn't quite sure why the fields in the main record were being concatenated into a single field in the fts record so I made a small change to allow multiple fts fields. If there is only one field in the FTS record it behaves as before and concatenates the main record fields, otherwise the fields in the FTS record definition must be the same or a subset of the main record's fields and they will be mapped across.

28695,28696c28695
<             aModel.Tables[Props.fFTSWithoutContentTableIndex].SQLTableName+'",'+
<             Props.fFTSWithoutContentExpression+',';
---
>             aModel.Tables[Props.fFTSWithoutContentTableIndex].SQLTableName+'",';
28705,28706c28704
<           if Props.fFTSWithoutContentExpression='' then
<             result := result+Name+',';
---
>           result := result+Name+',';
30083c30081,30083
<         exp := exp+'||'' ''||new.'+ContentTableFieldNames[i];
---
>         if high(ContentTableFieldNames) > 0 then
>           exp := exp+',new.'+ ContentTableFieldNames[i] else
>           exp := exp+'||'' ''||new.'+ContentTableFieldNames[i];
44200c44200
<     fts,main,ftsmainfield: RawUTF8;
---
>     fts,main,ftsfields: RawUTF8;
44211c44211
<   ftsmainfield := Props.Props.MainFieldName(true);
---
>   ftsfields := Props.Props.SQLTableSimpleFieldsNoRowID;
44221c44221
<     [main,main,fts,ftsmainfield,Props.fFTSWithoutContentExpression]);
---
>     [main,main,fts,ftsfields,Props.fFTSWithoutContentExpression]);
44224c44224
<     [main,main,fts,ftsmainfield,Props.fFTSWithoutContentExpression]);
---
>     [main,main,fts,ftsfields,Props.fFTSWithoutContentExpression]);

Looking at the sqlite docs http://www.sqlite.org/fts3.html#*fts4content I noticed

However, TSQLRecordFTS4.InitializeTable seems to set up DELETE and INSERT triggers on contentless FTS4 tables.

Should the table be created as an External Content FTS4 Table instead of contentless? (see https://www.sqlite.org/fts3.html#section_6_2_2)

Thanks, yes it does work. Doing wildcard style searches isn't easy but I've found this works -

SELECT term FROM ft_terms WHERE term BETWEEN 'appl' AND 'appl' ||
CAST(x'FF' AS CHAR)

Maybe there is something wrong with TSQLAuthGroup.SQLAccessRights. Perhaps try setting it to:

const
  SERVICE_ACCESS_RIGHTS: TSQLAccessRights =
    (AllowRemoteExecute: [reService];
    GET: []; POST: [];
    PUT: []; DELETE: []);

Thanks, understand it better now and all works. I was doing validation server side as I was using ajax and checking for a unique field.

Many thanks

I think they should give away the professional version of Delphi to students and hobbyists but on the understanding it's only used for non-commercial uses. I'm sure 99% of people would upgrade if they started making money from it. PKzip, for example, was shareware but was apparently profitable to it's company.

My first version of Delphi was version 3 which I got on the cover of a UK computer mag. I just paid £20 for the printed docs. Then bought Delphi 5 as a shrink wrapped box off eBay and upgraded it a couple of times. If I'd had to pay the full price I wouldn't have used it.