mORMot Open Source

  //original decoded value
  name "time >="  value "1715497685"

  //encoded form value
  time%20%3C%3D=1715497685

  // UrlDecodeNextNameValue(time%20%3C%3D=1715497685) result
  // name "time >"    value "=1715497685"
  
  // Expected
  // name "time >="    value "1715497685"

// mormot.core.buffers 
// Line 8290 has been changed
...
      #0:
        exit;
      '=':
        begin
          result := U + 1;
          break;
        end;
      '%':
        if HexToCharValid(pointer(U + 1) {$ifndef CPUX86NOTPIC}, tab{$endif}) then
          inc(U, 3)
        else
          inc(U);
...

  with TSynLog.Family do
    begin
      //AutoFlushTimeOut:=10;
      RotateFileCount:=100;
      RotateFileSizeKB:=20; //test size
      Level := LOG_VERBOSE;
      PerThreadLog := ptIdentifiedInOnFile;
      EchoToConsole := LOG_VERBOSE;
      FileExistsAction:=acAppend;
      CustomFileName:='project_test';
      OnArchive:=mormot.core.zip.EventArchiveZip;
    end;

// mormot.core.zip

function EventArchiveZip(const aOldLogFileName, aDestinationPath: TFileName): boolean;
var
  n: integer;
begin
  result := false;
  if aOldLogFileName = '' then   <<<  This function fired but, "aOldLogFileName" is empty string.
    FreeAndNilSafe(EventArchiveZipWrite)
  else
  begin
    if not FileExists(aOldLogFileName) then
      exit;
    if EventArchiveZipWrite = nil then
      EventArchiveZipWrite := TZipWrite.CreateFrom(
        copy(aDestinationPath, 1, length(aDestinationPath) - 1) + '.zip');
    n := EventArchiveZipWrite.Count;
    EventArchiveZipWrite.AddDeflated(aOldLogFileName, {removepath=}true);
    if (EventArchiveZipWrite.Count = n + 1) and
       DeleteFile(aOldLogFileName) then
      result := true;
  end;
end;

mormot.rest.core.pas

procedure TRest.OnBeginCurrentThread(Sender: TThread);
begin
  fOrmInstance.BeginCurrentThread(Sender);  <<< fOrmInstance has not been created; Access Violation
end;

...
type
  TSampleServer = class(TRestServer)
  published
    procedure test(Ctxt: TRestServerUriContext);
  end;
...
FApiServer:TSampleServer;
FHttpServer:TRestHttpServer;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  FApiServer:=TSampleServer.Create('api');

  FHttpServer := TRestHttpServer.Create('80', [FApiServer], '+', HTTP_DEFAULT_MODE, 4);
  FHttpServer.AccessControlAllowOrigin := '*';
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FHttpServer.Free;
  FApiServer.Free;
end;

procedure TSampleServer.test(Ctxt: TRestServerUriContext);
begin
  Ctxt.Returns('{"result":null}');
end;