mORMot Open Source

20240808 15472828  $  -    00.173.691
20240808 15472846  ( trace mormot.net.async.THttpAsyncConnections(7fdee4439bd0) DoGC #1=0 #2=1 free=0 client=0
20240808 15472915  ( trace mormot.net.async.THttpAsyncConnections(7fdee4439bd0) DoGC #1=0 #2=1 free=0 client=0
20240808 15472946  ( trace mormot.net.async.THttpAsyncConnections(7fdee4439bd0) DoGC #1=0 #2=1 free=0 client=0
20240808 15473015  ( trace mormot.net.async.THttpAsyncConnections(7fdee4439bd0) DoGC #1=0 #2=0 free=1 client=0
20240808 15473161  $  +    mormot.rest.sqlite3.TRestServerDB(7fdee549b550).URI GET orp/ORP.listresPlan?aFields=ORPPlan&aresID=1557&aWhere=&session_signature=00085cbe0030f50dc8c151c4 in=0 B
20240808 15473161  $ call  	mormot.rest.sqlite3.TRestServerDB(7fdee549b550) ORP.listresPlan["ORPPlan",1557,"",false]
20240808 15473210  $ SQL   	mormot.rest.sqlite3.TRestServerDB(7fdee549b550) 182.20ms returned 4 rows as 1.9 KB select a.* ,resID from orpPlan a  left outer JOIN (select PID,ResID FROM ORPPlanSource where resID = 1557 ) b on b.PID=a.ID 
20240808 15473210  $ res   	mormot.db.raw.sqlite3.TSqlDatabase(7fdee5522a80) [{"ID":1,"typeCode":"","GUID":"","PID":"",... (truncated) length=1950
20240808 15473210  $  +    	
20240808 15473210  $ info  		[{"ID":1,"typeCode":"","GUID":"","PID":"",...] //result log , correct
20240808 15473210  $  -    	00.000.004
20240808 15473210  $ EXCOS 	EAccessViolation (dcbd5f40) [R1:orp] at 4327f0 orpDaemon.lpr  (535) ../../src/core/mormot.core.interfaces.pas  (6948) 
20240808 15473210  $ debug 	mormot.rest.sqlite3.TRestServerDB(7fdee549b550) TRestServerRoutingRest.Error: {  "errorCode":500,  "error":  {"EAccessViolation":  {   "ClassName": "EAccessViolation",   "Address": "7fdedcbd6400",   "Message": "Access violation"  }}  }
20240808 15473210  $ srvr  	  Interface GET orp/ORP.listresPlan=500 out=157 B in 182.55ms
20240808 15473210  $ ret   	mormot.rest.server.TRestServerRoutingRest(7fdedd052530) {  "errorCode":500,  "error":  {"EAccessViolation":  {   "ClassName": "EAccessViolation",   "Address": "7fdedcbd6400",   "Message": "Access violation"  }}  }
20240808 15473210  $  -    00.182.581
20240808 15473215  ( trace mormot.net.async.THttpAsyncConnections(7fdee4439bd0) DoGC #1=0 #2=1 free=0 client=0
20240808 15473246  ( trace mormot.net.async.THttpAsyncConnections(7fdee4439bd0) DoGC #1=0 #2=1 free=0 client=0
20240808 15473315  ( trace mormot.net.async.THttpAsyncConnections(7fdee4439bd0) DoGC #1=0 #2=1 free=0 client=0
20240808 15473346  ( trace mormot.net.async.THttpAsyncConnections(7fdee4439bd0) DoGC #1=0 #2=0 free=1 client=0

stripped

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;