mORMot Open Source

I tried
TAppLog.Family.StackTraceUse := stOnlyManual;
and
TAppLog.Family.LevelStackTrace := [];

with not success!

Is there a way to set TSynLog that don't capture exceptions?

Solved with this commit.
Thank you so much

EchoFrame method:

procedure TForm2.EchoFrame(Sender: TWebSocketProcess; const Frame: WebSocketFrame);
begin
  case Frame.opcode of
    focContinuation:
    begin
      TThread.Synchronize(nil, procedure
      begin
        Memo1.Lines.Add('connected');
      end);
    end;
  end;
end;

Is this bug or abnormal behaviour?

Why you don't share it in github. It can help mormot community and make it popular farmework.

Yes. Solved. thanks alot
for creating multiple file I am using multiple classes:

  TDbLog = class(TSynLog);   // Log for database operations
  TApiLog = class(TSynLog);  // Log for API calls

Is this correct ?

I am using FK allways but for show message to end user I use information schema table to find all fk's and then create my own message. It is so easy and it is one function for checking refrential integrity.

this is for mysql:

      select REFERENCED_TABLE_NAME,CONSTRAINT_NAME,group_concat(COLUMN_NAME) COLUMN_NAME,
      group_concat(REFERENCED_COLUMN_NAME) REFERENCED_COLUMN_NAME,
      group_concat(COLUMN_NAME,'=',REFERENCED_COLUMN_NAME) col_ref
      from INFORMATION_SCHEMA.KEY_COLUMN_USAGE
      where TABLE_SCHEMA = :TABLE_SCHEMA
      and TABLE_NAME = :TABLE_NAME
      and referenced_column_name is not NULL
      group by REFERENCED_TABLE_NAME,CONSTRAINT_NAME

parsing error message can not create understandable message. when user want to delete product number 1  I show this message:

product 1 used in invoice 123 and can not deleted.

invoice 123 is first invoice that used product number 1.

order is not matter. suppose json = {"a": 1,"b":2}

fdocdict := DocDict (json);

what is the problem with:

fdocdict[0].key
fdocdict[0].value

or somthing like that.
maybe conevrting docdict to varinat can help?

Thank You

Sorry for the stupid question.
Using StringToUtf8 solved the problem:

msg := StringToUtf8(Edit1.Text);

Thank you so much.
solved ❤️

This one works.
I don't know is it right or not.

  RegisterOpenSsl;

  var aa := CryptAsymOpenSsl[caaPS512].Create('secp256r1'); 
//secp192r1 ,secp224r1 ,secp256r1 = prime256v1 ,secp384r1 ,secp521r1 , brainpoolP256r1 ,brainpoolP384r1 ,brainpoolP512r1
  var prv,pub: RawUtf8;

  prv := Memo1.Lines.Text;  
  aa.Sign(msg,prv,sig);

  pub := Memo2.Lines.Text;
  if aa.Verify(msg,pub,sig) then
    ShowMessage('verified');

There is no mormot.core.rsa but mormot.crypt.rsa was in uses clause.

Result is empty string:
key = '-----BEGIN RSA PRIVATE KEY-----    ...'

  var pub := TCryptPublicKeyEcc.Create;
  pub.Load(ckaEcc256, Memo2.Lines.Text);

  var key := TCryptPrivateKeyEcc.Create;
  key.Load(ckaEcc256,pub,Memo1.Lines.Text,'');
  var s := key.Sign(caaRS256,'1'); // s = ''

I confused with woDontStoreVoid because of documentation in mormot.core.text:
  // - woDontStoreVoid will avoid serializing numeric properties equal to 0 and
  // string properties equal to '' (replace both deprecated woDontStore0 and

behaviour is different:
when numeric field has 0 value or string has '' it serialize it to {"num":0,"str":""}. but when it is null doesn't serialize it.
I think documentation need to be correct?

Yes it works.
But when the field is of arrayof  class type and is not assigned, it will also delete it.

type
  TMyCalss = class
  private
    fid: integer;
    fqty:TNullableInteger;
    FOtherClass:TArrayOfOtherClass;
  published
    property id: integer read fid write fid;
    property qty: TNullableInteger read fqty write fqty;
    property OtherClass: TArrayOfOtherClass read FOtherClass write FOtherClass;
end;

In many cases api report this as error and expect [] for nil array.

2,147,483,647 for id field can be reah quickly.
I prefer bigint over integer for this reason.
I had previously used integer ids for a few clients. Then I set up a replication. Since the id was autoinc, it quickly exceeded the maximum integer and I had to change the id to bigint.
The reason why integer fills up quickly is that I had to use auto_increment_offset and auto_increment_increment to avoid duplicate ids. For example, considering the number of branches, set auto_increment_increment to 100 and auto_increment_offset to the branch number
In this case, branch number one will be 1,101,201,... and branch number two will be 2,102,202, ...
When numbering, the database assigns the first available number after the last number to the branch.
That is, if branch number one has created number 101, the first number of branch number two will be 102.
That is why integer will quickly reach its maximum value

I have identified the location of the error in the source below.

https://gist.github.com/a-nouri/cb11785 … c11425d05c

And I call it :

procedure TForm1.Button1Click(Sender: TObject);
var
  MyCryptAndHash: TMyCryptAndHash;
  Enc: string;
begin
  MyCryptAndHash := TMyCryptAndHash.Create;
  Enc := MyCryptAndHash.AESEncrypt('111', '01234567890123456789012345678912');
  MyCryptAndHash.Free;
end;

After adding mormot.crypt.rsa to the uses section, the problem is solved.

In mormot.crypt.secure function Cipher return nil. Function can't resolve algoname because it is not initilized

I just wanted to make sure that what I was doing was correct and that I had done a standard and proper encryption. And I needed your confirmation.
Which seemed to be correct. Thank you.

TCryptAesCipher in mormot.crypt.secure is not visible?!
I can't use it

Hi,
when I set ResultAsJsonObjectWithoutResult  = true in server side, in client side I got only first record. Json is ok in rest dbugger!

var
  I: IAttachmentService;
  json: RawJson;
begin
  if HttpClient.Services['AttachmentService'].get(I) then
  begin
    json := I.GetAttachTypeList();  // json contains first record only! 
   end;
end;