mORMot Open Source

A wizard would definitely aide in adopting lots of mORMots .

Where is the like button ...

Great videos, if only they played a littel bit slower ...

So this snippet of code should change the password of the default user?

  fServer := TSQLRestServerFullMemory.Create(fModel,'.\test.json',false,true);
  fServer.CreateMissingTables(0);
  aMormotUser := TSQLAuthUser.Create(fServer, 'Name=?', ['User']);
  aMormotUser.PasswordPlain := 'NewPasswd';
  assert( fServer.Update(aMormotUser), 'Default User password not changed!');

Unfortunately, the assert fails. What else needs to be done, so the password is changed? Or is this not the way to go?

hi MPV, thanks for clarifying.

I have noticed that the EOSError only occurs when running 'this' Project04client in Delphi and not when running the executable. When I run a Project04client from
a different sample then also no problem.
I then decided to remove Project04Client from the project group, delete all files generated by Delphi (.dproj, .res) and added the project back to the project group.
And then no problem ...

When running only the executables, everything is fine. When running the client in IDE, the EOSError (Systemerror, Code 12002) appears.

ahaa, so that is why the field Grouprights in table authuser has such a big number instead of the value 3. (Learned something new again, usage of MainFieldID)
allright, so now i have made the suggested changes and now I see the value 3 in the grouprights field.
The new code looks like:

procedure TForm1.Button2Click(Sender: TObject);
var
  aNewUser:TSQLAuthUser;
begin
  aNewUser := TSQLAuthUser.Create;

  try
    aNewUser.PasswordPlain := edit2.Text;
    aNewUser.LogonName := edit1.Text;
    aNewUser.DisplayName := edit1.Text;

    aNewUser.Grouprights := pointer(DB.MainFieldID(TSQLAuthGroup,'User'));

    if DB.Add(aNewUser, true)<>0 then begin
      showmessage('User '+ aNewUser.LogonName + ' added.');
    end;
  finally
    aNewUser.Free;
  end;

end;

Now the issue is that when I add a new user to the database and in the client I use SetUser('User', 'synopse') everything works according to plan. But, when
I use SetUser('wai', 'test') I cannot add any data with the client. When running the client in Delphi I see that an EOSError (message 'System error. Code 12002') occurs.
Tracing the call I see that this happens at

lineno 21572.        aNonce := CallBackGetResult('auth',['UserName',U.LogonName]);

in unit mORMot.

Nice video.
An example on how to implement authentication in mORMot is much appreciated.

That did the trick.

Kudos for the fast response ...

Merci beaucoup for the tip. This one has put me on route again .

To connect a HTTP client I need to pass a TSQLModel as one of the arguments:

   client := TSQLHTTPClient.create(ServerAddres, ServerPort, Model)

Can I simply pass nil as Model?

As for JSON, I will be using the JSONtoDataset routines.

Hi Eraldo,

The solution is already explained in post #6 and #7 in this thread.

Cheers,
Wai

I just discovered that the following statements produces the error:

  fTableJSON := fService.GetCountries;
  aTable := TSQLTableJSON.Create([],'',pointer(fTableJSON),Length(fTableJSON));
  TSQLTableToGrid.Create(StringGrid1, aTable,fClient);
  DataSource1.DataSet := JSONToDataSet(Self, fTableJSON, fClient);

Whereas :

  fTableJSON := fService.GetCountries;
  DataSource1.DataSet := JSONToDataSet(Self, fTableJSON, fClient);

gives no error and produces the correct output i.e. the dbgrid connected to Datasource1 showing the
correct data.

The JSON data looks like this:

[{"Country_code":"AUS","name":"Australia","currency":"AUD"},{"Country_code":"CAN","name":"Canada","currency":"CAD"},{"Country_code":"CN","name":"China","currency":"RMD"},{"Country_code":"DE","name":"Germany","currency":"EUR"},{"Country_code":"FR","name":"France","currency":"EUR"},{"Country_code":"HK","name":"Hong Kong ","currency":"HKD"},{"Country_code":"JP","name":"Japan","currency":"YEN"},{"Country_code":"NL","name":"The Netherlands","currency":"EUR"},{"Country_code":"UK","name":"Great Britain","currency":"PND"},{"Country_code":"US","name":"The United States of America","currency":"US"}]

I have also tried the code from example 16:

  aTable := TSQLTableJSON.Create([],'',pointer(fTableJSON),Length(fTableJSON));
  TSQLTableToGrid.Create(StringGrid1, aTable, fClient);

The data is displayed nicely in the grid.

Hi Arnaud,

My compliments for the excellent mORMot Framework and the documentation.

Going through the SAD pdf document, what I missed the most in the functionality of the documentation is
the lack of hyperlinks in the documentation. I find it helpful to go deeper into a subject that I was reading and
be able to jump back.
Is there any chance some kind of a Wiki Doc being setup in the future?

Just my two cents ...

Thanks,
Wai