mORMot Open Source

Well, my library settings in delphi fooled me,
My library settings in delphi/mormot was ../mORMot/static and not ../mORMot/sqlite3/static as it was before.

In mORMot2 it is set as:
{$L ..\..\static\delphi\sqlite3.o} CPU64
{$L ..\..\static\delphi\sqlite3.obj} CPU32
And that worked as it was the same as in github.

But in mORMot1 it is:
{$L sqlite3.o} CPU64
{$L sqlite3.obj} CPU32

So I needed to put the files ../mORMot/static/ instead of ../mORMot/sqlite3/static as what you get when you pull  from github.

So... sorry my fault again.

I couldn't give up compleatly and I found an article which helped me finally.
link: https://blog.synopse.info/?post/2024/02 … hi-and-FPC

I'll put my solution here but want to ask for comment on this solution and if there are better way to do it.

function TForm2.addMember(const pmcFam: TOrmFamily;
  const pmcMbr: TMember): boolean;
var
  Jss, js, js2: RawByteString;
  val: variant;
  list,list2: IDocList;
  Dict: IDocDict;
  f: TDocDictFields;

  DocVariant: TDocVariant;
  v: variant;
  doc: TDocVariantData;
begin
  Js := RecordSaveJson(pmcMbr, TypeInfo(TMember));
  val := _JsonFast(js);
  js2 := _JsonFast(pmcFam.Members);
  list := DocList(js2);
  List.Append(val);
  v := List.AsVariant;
    if list.Len > 0 then
    while list.PopItem(v) do
    begin
      assert(list.Count(v) = 0); // count the number of appearances
      assert(not list.Exists(v));
      Listbox1.Items.Add(v.Name); // late binding
      dict := DocDictFrom(v); // transtyping from variant to IDocDict
      // enumerate the key:value elements of this dictionary
      for f in dict do
      begin
        Listbox2.Items.Add(f.Key);
        Listbox3.Items.Add(f.Value);
      end;
    end;
end;

Super that worked! I easily get confused when there are so many options.

Now I have:

  Server := TRestServerDB.Create(fModel);
  fDBserver := Server.server;

and thats it!

Sorry I forgot to tell that I also added the static library. Here is what I got there:

larand@larand-VirtualBox:~$ ls fpc-library/mORMot2/static
crc32c64.o  libdeflatepas.a  quickjs.o  sha512-x64sse4.o
dev.sha256  liblizard.a      README.md  sqlite3.o
larand@larand-VirtualBox:~$ 

I'm not sure I understand the last sentence. I can show you the last part of the jsonfile if that helps.

            "DetaljReferens": [
              {
                "Referens": null, 
                "Referens_ReferensLista": "BSAB96:PR", 
                "Referens_ReferensKod": ""
              },
              {
                "Referens": null, 
                "Referens_ReferensLista": "SBEF:Byggdel", 
                "Referens_ReferensKod": "90"
              },
              {
                "Referens": null, 
                "Referens_ReferensLista": "PRODKOD", 
                "Referens_ReferensKod": ""
              }
            ]
          }
        }
      ]
    }
  }
}

Please see my updated reply above.

It seems that it only works once after that I erase the user table first and then start the slave.
The data is copied from master to the slave just after the call:

fSlave.RecordVersionSynchronizeSlaveStart(TOrmUser, fMasterClient, nil);

But not after.

Very strange or...?

Hello ab,
I've already checked out that code and I did a new attempt with a small testproject but still fail.
I have this project available as a zip-file but I don't find any way to share that. PasteBin doesn't seem to to be used with anything but sourcefiles.
Any idea how I can share this file?

I have the project on GITLAB if it could work?
https://gitlab.com/GIT-Testing/test_mor … cation.git

I made a small program that more or less copies the code you have in your test suite.

https://paste.ee/p/cZ9sA

That code works but the difference is that I don't use services here. When simulating changes in the master table I do it directly through the TRestServerDB instance.

But in the real world I need to use services and then I need 2 different http-channels, one for update the table on the master and one for the replication.
And this case don't work for me. See the the GITLAB-project above.
I'm sure that I have misunderstood how to do this correct but I'm also sure it must be someone, that have a working solution of a similar system like mine, that could see what I've done wrong or..?

Otherwise I have to develop a compleatly different solution on my own :-(
Please help.

Thanks Thomas, excelent solution even though it didn't help eliminate the invalid pointer operation.

Thanks ab, your comment woke me up, I asked myself why I use the whole objects in the parameter list when I only need the ID:s.
So I replaced those parameters with the id:s of the objects and now everything is alright again.

Oh, I got your answer while I was writing.

Yea, I can see now!

Maybe I was not completely wrong about the parameter..?
I took the code from an example just to get a kickstart for testing.
I should be more careful.

Thank's a lot!

To make a simple test client I added the following code:

procedure TForm4.FormCreate(Sender: TObject);
begin
  Model := TOrmModel.Create([],SYSTEMLocalROOT);
  HttpClient := TRestHttpClient.Create(IP_Local, HTTP_PORT, Model);
  HttpClient.ServiceDefine([IDHSLocalService], sicShared, DHS_LOCAL_CONTRACT);
  HttpClient.Services[DHS_LOCAL_CONTRACT].Get(fDHS_LocalService);
end;

In the function "TServiceContainerClientAbstract" the parameter aInterfaces contains one interface "IDHSLocalService" which is correct here. I' only use one interface so far.

The call "fHash.FindOrNew(fHash.HashOne(@Item), @Item, nil);" with Item as 'DHS_LOCAL_CONTRACT' returns -161.
This lead to that he interface pointer will be nil.
I'm not sure how to reproduce with a RawUTF8 list of interface. Where should I put the call?

I solved it by replacing IList with an ordinary dynamic array for the service. It requires some more coding but it works. I kept using IList in the repository though as I can initiate the collection in the service before calling the repository methods.

It seems to require too much effort to be worth solving ?

That looks good, I will soon test it.

Beutifull! Thanks!

This is the result:

function TDHSSyncRepository.GetAllArticles(var aArts: TOrmArticles):TSyncRepoError;
var
  ormArt: TOrmArticle;
begin
  result := srNotFound;
  FRestOrm.RetrieveIList(TOrmArticle, aArts);
  if aArts.Count < 1 then
    exit;
  result := srSuccess;
end;

Ok, I took a snap from my code and removed a lot of irrelevant code and changed the names in hope that it would be easier to read.
The "names" is just a packed record. I included it in the snap now.

Well, your suggestion worked perfectly.
I remembered when I saw it that I used it before but my memory is just a... memory now I'm afraid.

Ok, that worked well, so many thanks.
I think there are a lot of different ways of doing this and it's hard to find out which method to use.
The project I'm working on now is a replacement of an existing function to make it much faster so the speed is the main purpose of this project.
The reason I want the data of the array stored as JSON is mainly to have better control when testing, perhaps when the application is tested and works well I might consider going back to blob-storage.
But it is still nice to have the possibility to check out the contents in the database.
Any ideas or suggestions are very welcome.

best regards
Lars

Sorry, the JSON I wrote is not a real JSON array I only typed it in by hand into the database record to test my program.
I'm not sure about how a json string should look to correspond to my class so I'm not surprised that it's not correct.

A Week is a packed record with the name TWeek and then I declared the array TWeekArray from TWeek.
This Array is contained in a class: TWeeks and this class is the one I want to persist in a sqlite3-table. In fact, later I want to have it in an IN-Memory table but in the beginning, I will have it in a database during the test.

So the question is, how can I best persist this table, TWeeks, you have it at the beginning of this thread.
Forget about the JSON string.

Where can I find TRtti? I use System.rtti but that won't help.
Ok, I found it in mormot.core.rtti.
But I couldn't use TRtti but Rtti.

So there are no plans to make a new one then?