mORMot Open Source

In order to improve system security and project reliability, a user audit function is added to record user behavior logs. One method is to use TSynLog, another method is to intercept method events from the interface, and finally the framework's time machine.
I hope everyone can help improve the plan and provide key suggestions.

Behind NGINX in the HTTPS protocol, there is our TRestHttpServer in the HTTP protocol. How can our TRestHttpClient connect to this server? What protocol does the client use?

In the new stable version, I found that there are static files with the aarch64 Linux directory. Does this support cross compiling to this situation in the new version?

I attempted to compile under CodeTyphon under Win64 and encountered an error while linking. Master, can you tell me the relevant solutions?
follow the res file

stripped

使用接口建立服务，我设计了一个TInterfacedObjectWithCustomCreate为基类的ImplementationClass。现在，我有两个不同root的DB，aDB,bDB.分别注册了这个ImplementationClass。在ImplementationClass的方法里，我怎么分别这是运行在aDB或者是bDB？或者说，我在方法的运行期间，怎么样获取它注册的工厂类和TRESTSERVERDB

Using an interface to create a service, I designed an ImplementationClass with TInterfacedObjectWithCustomCreate as the base class. Now, I have two different root DBs, aDB and bDB. Each has registered this ImplementationClass. In the ImplementationClass method, how can I distinguish whether this is running on aDB or bDB? In other words, how do I obtain the registered factory class and TRESTSERVERDB of a method during its operation

Guys, I want to add a scheduled service method to the rest server. This method mainly completes the functions of statistics, backup, synchronization, etc. These functions need to call the interface methods on the server. I hope to get some advice.

Hi, Master!
   I have some strings code Different in client and server 。I want change some UTF8char（CJK） to ansichar. In client it do ok, and the length of strings is 285. but in server it make Garbled code, and the length of strings is 190。
Can I get any suggest?

function fullToHalf(aStr: rawutf8): rawutf8;
var
 str0,str1,str2:strings;
  strcnw:strings;
 Flags: TReplaceFlags;
 n,iCount:Integer;
const
 strcn:string='ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ‘１２３４５６７８９０－＝＼～！＃＄％＾＆（）＿＋｜〔〕｛｝；’：，。／＜＞？【】“”';
 stren:string='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ`1234567890-=\~!#$%^&()_+|[]{};'':,./<>?[]""';
begin
 try
 strcnw:=utf8String(strcn);
 str0:=astr;
         with tsynlog.Enter() do
        begin
          log(sllinfo,str0);
         log(sllinfo,inttostr(length(strcn))+' char');  //190 or 285 
         log(sllinfo,inttostr(length(strcnw))+' wchar');   //190 or 285 
         log(sllinfo,inttostr(length(stren))+' echar'); //95
        end;
 for n:=1 to 93 do
 begin
 str1:=copy(strcnw,n*2-1,2); // copy(strcnw,n*3-2,3);
 str2:=copy(stren,n,1);

 Flags:=[rfReplaceAll];
 str0:=StringReplace(str0,str1,str2,iCount);
 if iCount>0 then
 begin
   with tsynlog.Enter() do
   begin
        log(sllinfo,str1+' '+str2 +' '+inttostr(iCount));
        //log(sllinfo,);
   end;
 end;
 end;
 Result:=str0;
 with tsynlog.Enter() do
begin
 log(sllinfo,' result: ');
 log(sllinfo,Result);
end;

  except
     on E:exception do
     begin
        with tsynlog.Enter() do
        begin
          log(sllinfo,' half error:  '+E.Message);

        end;
     end;
  end;
end;