mORMot Open Source

You make the same mistake again. If you do your own initializations in the constructor of an ORM object, you can NEVER take the overloaded constructors as long as Arnaud solved the problem with InternalCreate function. The overridden constructor is not called and thus the own variable classes are not initialized and all calls go to nothing. I think that this change of Arnaud was very unfortunate, but currently it is as it is. Change it as follows:

procedure TTestData.TestCreateAndFillPrepare;
...
  Order := TOrmOrderBook.Create;  // AndFillPrepare(TestClient.Orm, '', []);
  try
    Order.FillPrepare(TestClient.Orm, '', []);


procedure TTestData.TestCreate;
...
  Order := TOrmOrderBook.Create;  // (TestClient.Orm, 'OrderNo = ?', ['Order1']);
  try
    TestClient.Orm.Retrieve(FormatUtf8('OrderNo = ?', [], ['Order1']), Order);

I think if you want changes, you need to push Arnaud a little bit.

With best regards
Thomas

As described in the documentation: "Note that before Delphi 2006, you will need to download and install FastMM4 heap memory manager".

With best regards
Thomas

I think your upload is not complete. The file Test1.json is missing.

With best regards
Thomas

I use TRecordVersion. Since I haven't noticed anything negative yet, I haven't looked for a bug either. Can you give us any more information, such as:

Delphi 11.3, mORMot2 GitHub commit 5186

Or a whole example, as Martin Doyle has done here. Then it is easier to search for the error.

With best regards
Thomas

I use it in conjunction with SOA and WebApps (TMcvApplication) when records are mostly just read, and can recommend it. This saves many JOINs when combining the data from different tables of the DB. As an example, you have events with presentations. In the overview are displayed: Date, topic, location, room, speaker, etc. Only the date comes from the schedule table. Everything else are foreign keys into other tables. Having an extra field here that contains all the data from other tables needed for display reduces the effort considerably and makes viewing fast. And because the data composition changes very rarely and everything is handled via SOA functions, it is practically no effort to maintain this field.

With best regards
Thomas

This is not necessary because AddFile() does not include a locked file. See following example:

var fileStream: THandleStream := Nil;
try
  var testFile: TFileName := 'c:\mORMot2\src\lib\mormot.lib.win7zip.pas';
  fileStream := TFileStreamEx.Create(testFile, fmOpenRead);

  var skippedFiles: TFileNameDynArray;
  var libWriter: I7zWriter := New7zWriter(fh7z);
  libWriter.SetCompressionLevel(3);
  if libWriter.AddFile(testFile, StringToUtf8(ExtractFileName(testFile))) then
    libWriter.SaveToFile(MakePath([Executable.ProgramFilePath, 'TestData.7z']))
  else
    AddString(TStringDynArray(skippedFiles), testFile);

  for var fileName: TFileName in libWriter.AddFiles('c:\mORMot2\src\', '', '*.pas;*.inc', True) do
    AddString(TStringDynArray(skippedFiles), fileName);

  ShowMessage(Format('File(s) could not be added! Count: %d', [Length(skippedFiles)]));
finally
  fileStream.Free;
end;

With best regards
Thomas

Yes, you can write it like this:

TPerson = class(TOrm)
private
  ...
  function GetFullName: RawUTF8;
public
  property FullName: RawUTF8 read GetFullName;
published
  property FirstName: RawUTF8 index 50 read fFirstName write fFirstName;
  property SurName: RawUTF8 index 50 read fSurName write fSurName;
end;

But for clarity, I would write it this way:

TCustomPerson = class(TOrmBaseRecord)
private
  fFirstName, fSurName: RawUTF8;
published
  property FirstName: RawUTF8 index 50 read fFirstName write fFirstName;
  property SurName: RawUTF8 index 50 read fSurName write fSurName;
end;

TPerson = class(TCustomPerson)
private
  function GetFullName: RawUTF8;
public
  property FullName: RawUTF8 read GetFullName;
end;

Then, if necessary, you can derive the ORM object TOrmBaseRecord on the server or client from different base objects using a compiler switch. On the server derived from the class TOrm and on the client from the class TObjectWithID. All TCustom... classes could be shared between server and client. The specializations are done only in the final classes. I have already described the technique here in the forum.

With best regards
Thomas

For me, the following looks clearer:

procedure TSubProject.AddArticle(pmArticle: TArticle);
begin
  if pmArticle <> Nil then
    ObjArrayAdd(FArticles, pmArticle);
end;

function TDHSSyncRepository.AddArticleToSubProject(pmSubProject: TSubProject; out pmoArticle: TArticle): TSyncRepoError;
begin
  Result := srNotFound;
  if pmSubProject = Nil then Exit; //=>
  if RetrieveArticle(pmoArticle) <> srSuccess then Exit; //=>

  pmSubProject.AddArticle(pmoArticle);
  Result := srFound;
end;

With best regards
Thomas

Or an additional wish, the function AddFiles would have as return a list of files that could not be packed.

With best regards
Thomas

Commit 5434 (e4a5ff6) works as expected. All my tests passed. Thanks for this.

With best regards
Thomas

With my modification for function SaveToFile, it works for this test:

procedure SaveFolderTo7Zip(const pmcFolder, pmc7ZipFileName: TFileName;
  const pmc7ZipInternalDir: TFileName = ''; const pmcFileMask: TFileName = '*';
  pmNew7Zip: Boolean = False; const pmOnProgress: T7zProgressCallback = Nil);
var
  libWriter: I7zWriter;
begin
  if not pmNew7Zip
    and FileExists(pmc7ZipFileName) then
  begin
    libWriter := New7zWriter(pmc7ZipFileName, fh7z)
  end
  else
    libWriter := New7zWriter(fh7z);

  libWriter.SetCompressionLevel(3);
  if Assigned(pmOnProgress) then
    libWriter.SetProgressCallback(pmOnProgress);

  libWriter.AddFiles(pmcFolder, pmc7ZipInternalDir, pmcFileMask, True);
  libWriter.SaveToFile(pmc7ZipFileName);
end;

Call then as follows:

var
  zipFileName: TFileName;
begin
  zipFileName := MakePath([Executable.ProgramFilePath, 'TestMultiData.7z']);
  SaveFolderTo7Zip('c:\mORMot2\src\', zipFileName, 'mORMot_2023-05-01', '*.pas;*.inc', {pmNew7Zip=}False, ProgressCallback);
  SaveFolderTo7Zip('c:\mORMot2\src\', zipFileName, 'mORMot_2023-05-02', '*.pas;*.inc', {pmNew7Zip=}False, ProgressCallback);
  SaveFolderTo7Zip('c:\mORMot2\src\', zipFileName, 'mORMot_2023-05-03', '*.pas;*.inc', {pmNew7Zip=}False, ProgressCallback);
  SaveFolderTo7Zip('c:\mORMot2\src\', zipFileName, 'mORMot_2023-05-04', '*.pas;*.inc', {pmNew7Zip=}False, ProgressCallback);
  SaveFolderTo7Zip('c:\mORMot2\src\', zipFileName, 'mORMot_2023-05-05', '*.pas;*.inc', {pmNew7Zip=}False, ProgressCallback);
end;

The result in TestMultiData.7z file looks as expected:

mORMot_2023-05-01\app
mORMot_2023-05-01\core
...
mORMot_2023-05-02\...
mORMot_2023-05-03\...
mORMot_2023-05-04\...
mORMot_2023-05-05\...

I have checked with a tool that compares directories, everything is OK for me.

With best regards
Thomas

Now these tests have been passed:

libWriter.AddFiles('c:\mORMot2\src\', '', '*', True);
libWriter.AddFiles('c:\mORMot2\src\', 'mORMot_2023-05-05', '*', True);
libWriter.AddFiles('c:\mORMot2\src\', 'mORMot_2023-05-05', '*.pas', True);
libWriter.AddFiles('c:\mORMot2\src\', 'mORMot_2023-05-05', '*.pas;*.inc', True);

With this it works as expected. Thanks for this.

With best regards
Thomas

With Commit 5420 (e4ccc8e), it behaves as expected in my tests. Thanks a lot for that.

With best regards
Thomas

That was the reason I asked. I prefer to answer questions in a forum about programming problems with concrete source code. Most with reference to mORMot. The new functions, which are unknown, often discourage, although the solution, thanks to mORMot, is better. If it was more similar to actual Delphi source code, it could be easier to teach. Rarely you get such a concrete feedback how good the result has become by using mORMot.

With best regards
Thomas

I have published my seventh article with the topic mORMot here (forum Delphi-PRAXIS). The title is: Realize a JSON-Viewer with DocVariant and Virtual TreeView. The text is written in German, the sourcecode uses english names. Sourcecode and program can be found in the appendix.

The program is a simple JSON-Viewer. With the example code you get:

• A document can be loaded from a file or imported via the clipboard. It can be saved again in packed format as a file.

• Individual branches of a document can be saved as a file or exported to the clipboard as an object with extension root node as an attribute.

• Each branch can be displayed in a separate view window and closed by double-clicking on the tab. In multiple view the delete function is locked.

• A simple editor to edit values of attributes or to delete entries or whole branches.

Here is the translation into English with Google Translator. The result is not perfect (rather not so good), also some formatting is destroyed, but it is readable.

With best regards
Thomas

You are right. When I look at it in Delphi 11.3, it is highlighted correctly. I had looked at it with another editor and there the display was misleading. I think the spelling {$else OSWINDOWS} confused me because I just write {$else}. Sorry for the wrong warning.

With best regards
Thomas

You do not register the default helper, so "IF" is not available to you. You have to write it like this:

mustache.RenderJSON(Context, Nil, TSynMustache.HelpersGetStandardList)

All in all, I would not solve this during generation, but calculate it outside and then pass it. How to use Mustache is described in this article with source code.

With best regards
Thomas

When I look at your profile, you've only asked questions here, never really helped others, and yet you've always been answered. When I read your comment, I think: Find the mistake!

If you want help, you should allow it. A good start would be to answer my first question. The following start, for example, would be helpful:

If someone has something suitable, they will help you. It has worked for thousands of others.

If no one has an answer, then follow my second recommendation. Look at the respective implementation in the units mormot.rest.server and mormot.rest.client. In the unit mormot.rest.client you will find the class TRestClientAuthenticationDefault. Set a breakpoint in the relevant functions (ClientComputeSessionKey etc.) and follow the further steps.

With best regards
Thomas

Look closely at my source code from Post #4 and extend your service function with the one shown there for loading TPaineis here. You will get the desired result only with a DTO. A direct generation from the ORM is not possible with your specifications.

With best regards
Thomas

FastReport can work with many sources, DataSets are just one of them. Read this article. This type of connection is much more flexible.

It does not have to be stored in a blob field. It can also be stored as JSON. SQLite, for example, can execute queries directly on these fields. Read this article for more information.

We don't know your requirements. mORMot can be operated in many ways and is not limited to one. The help is extensive, many questions have already been answered in the forum and there are articles to be found on the internet. The best is to create a small example for each possibility and see if it fits for your own application.

With best regards
Thomas

I don't really understand your description. The problem is that there are several ways to solve it. If it is necessary for you to have the phone numbers in a separate table, you can use one of the following options (there are even more possibilities):

type
  TOrmPersonID = type TID;

  TOrmPhone = class(TOrm)
  private
    FPersonID: TOrmPersonID;
  published
    property PersonID: TOrmPersonID
      read FPersonID write FPersonID;

  TOrmPerson = class(TOrm)
  public
    property Phones: TOrmPhoneObjArray

procedure TOrmPerson.GetAllPhones(out pmoList: TOrmPhoneObjArray);
const
  _SQL_WHERE = '(PersonID=?)';
begin
  RestServer.Server.RetrieveListObjArray(pmoList, TOrmPhone, _SQL_WHERE, [IDValue]);
end;

Or another option:

type
  TOrmPerson = class(TOrm)
  private
    FPhones: TIDDynArray;
  public
    function AddPhone(const pmPhoneID: TID): Integer;
    procedure DeletePhone(const pmPhoneID: TID);
  published
    property Phones: TIDDynArray
      read FPhones;

function TOrmPerson.AddPhone(const pmPhoneID: TID): Integer;
begin
  Result := AddInt64Once(TInt64DynArray(FPhones), pmPhoneID);
end;

procedure TOrmPerson.DeletePhone(const pmPhoneID: TID);
var
  idx: Integer;
begin
  idx := Int64ScanIndex(Pointer(FPhones), Length(FPhones), pmPhoneID);
  if idx >= 0 then
    DeleteInt64(TInt64DynArray(FPhones), idx);
end;

It is easier if you save the phone numbers in the people table as a list (TObjectList<TPhone>), without creating a Phone table. If you have been working with databases for a while, you have to get used to this technique.

With best regards
Thomas