response to save bandwidth, in TSQLRestServerURIContext.Returns/Results
    - added TSQLRestServerURIContext.ReturnFile() and ReturnFileFromFolder()
      methods, for direct fast transmission to a HTTP client, handling
      "304 Not Modified" and proper mime type recognition
    - added TSQLRestServerURIContext.Input*OrVoid[] properties
    - added TSQLRestServerURIContext.SessionRemoteIP, SessionConnectionID,
      SessionUserName and ResourceFileName properties

    - added TSQLRestServerURIContext.Redirect() method for HTTP 301 commands
    - added TSQLRestServer.ServiceMethodRegister() low-level method
    - added TSQLRestServer.ServiceMethodRegisterPublishedMethods() to allow
      multi-class method-based services (e.g. for implementing MVC model)
    - ServiceContext threadvar will now be set in all ORM and SOA process, to
      allow access to the execution context
    - to make the implicit explicit, TSQLRestServerURIContext.ID has been
................................................................................
    // some characters at decoding from UTF-8 input buffer
    // - returns Unassigned if the parameter is not found
    property InputOrVoid[const ParamName: RawUTF8]: variant read GetInputOrVoid;
    /// retrieve all input paramters from URI as a variant JSON object 
    // - returns Unassigned if no parameter was defined
    property InputAsTDocVariant: variant read GetInputAsTDocVariant;
    {$endif}



    /// retrieve an incoming HTTP header
    // - the supplied header name is case-insensitive
    // - you could call e.g. InHeader['remoteip'] to retrieve the caller IP
    property InHeader[const HeaderName: RawUTF8]: RawUTF8 read GetInHeader;
    /// retrieve an incoming HTTP cookie value
    // - the supplied cookie name is case-insensitive
    property InCookie[CookieName: RawUTF8]: RawUTF8 read GetInCookie write SetInCookie;
................................................................................
    exit; // bad ModelRoot -> caller can try another TSQLRestServer
  end;
  URI := copy(Call^.url,j+i+2,maxInt); // trim any '/root/' left side of Ctxt.URI
  ParametersPos := PosEx(RawUTF8('?'),Call^.url,1);
  if ParametersPos>0 then // '?select=...&where=...' or '?where=...'
    Parameters := @Call^.url[ParametersPos+1] else
    if Method=mPost then begin

      fInputPostContentType := FindIniNameValue(pointer(Call.InHead),HEADER_CONTENT_TYPE_UPPER);
      if IdemPChar(pointer(fInputPostContentType),'APPLICATION/X-WWW-FORM-URLENCODED') then
        Parameters := pointer(Call^.InBody);
    end; 
  // compute Table, TableID and URIBlobFieldName
  i := PosEx(RawUTF8('/'),URI,1);
  if i>0 then begin
    Par := @URI[i+1];
................................................................................
end;

function TSQLRestServerURIContext.GetInputOrVoid(const ParamName: RawUTF8): variant;
begin
  GetVariantFromJSON(pointer(GetInputUTF8OrVoid(ParamName)),false,Result);
end;

function MultiPartFormDataDecode(const MimeType,Body: RawUTF8;
  var Names,ContentTypes: TRawUTF8DynArray; var Values: TRawByteStringDynArray): boolean;
var boundary: RawUTF8;
    i: integer;
begin
  result := false;
  i := PosEx('boundary=',MimeType);
  if i=0 then
    exit;
  boundary := '--'+trim(copy(MimeType,i+9,200));
  // to be done
  raise ECommunicationException.Create('multipart/form-data not implemented yet');
end;

function TSQLRestServerURIContext.GetInputAsTDocVariant: variant;
var i: integer;
    v: variant;
    Names,ContentTypes: TRawUTF8DynArray;
    Values: TRawByteStringDynArray;
//    Variants: TVariantDynArray;
begin
  VarClear(result);
  FillInput;
  if fInput<>nil then begin
    with TDocVariantData(result) do begin
      Init(JSON_OPTIONS[true]);
      for i := 0 to (length(fInput) shr 1)-1 do begin
        GetVariantFromJSON(pointer(fInput[i*2+1]),false,v,@JSON_OPTIONS[true]);
        AddValue(fInput[i*2],v);
      end;
    end;
  end else
  if (Method=mPOST) and
     IdemPChar(pointer(fInputPostContentType),'MULTIPART/FORM-DATA') and
     MultiPartFormDataDecode(fInputPostContentType,Call^.InBody,Names,ContentTypes,Values) then begin
    //TDocVariantData(result).InitObjectFromVariants(Names,Variants);





  end;

end;

{$endif NOVARIANTS}








function TSQLRestServerURIContext.GetInHeader(const HeaderName: RawUTF8): RawUTF8;
var up: array[byte] of AnsiChar;
begin
  PWord(UpperCopy255(up,HeaderName))^ := ord(':');
  result := Trim(FindIniNameValue(pointer(Call.InHead),up));
end;

      response to save bandwidth, in TSQLRestServerURIContext.Returns/Results
    - added TSQLRestServerURIContext.ReturnFile() and ReturnFileFromFolder()
      methods, for direct fast transmission to a HTTP client, handling
      "304 Not Modified" and proper mime type recognition
    - added TSQLRestServerURIContext.Input*OrVoid[] properties
    - added TSQLRestServerURIContext.SessionRemoteIP, SessionConnectionID,
      SessionUserName and ResourceFileName properties
    - added TSQLRestServerURIContext.InputAsMultiPart() method
    - added TSQLRestServerURIContext.Redirect() method for HTTP 301 commands
    - added TSQLRestServer.ServiceMethodRegister() low-level method
    - added TSQLRestServer.ServiceMethodRegisterPublishedMethods() to allow
      multi-class method-based services (e.g. for implementing MVC model)
    - ServiceContext threadvar will now be set in all ORM and SOA process, to
      allow access to the execution context
    - to make the implicit explicit, TSQLRestServerURIContext.ID has been
................................................................................
    // some characters at decoding from UTF-8 input buffer
    // - returns Unassigned if the parameter is not found
    property InputOrVoid[const ParamName: RawUTF8]: variant read GetInputOrVoid;
    /// retrieve all input paramters from URI as a variant JSON object 
    // - returns Unassigned if no parameter was defined
    property InputAsTDocVariant: variant read GetInputAsTDocVariant;
    {$endif}
    /// decode any multipart/form-data POST request input
    // - returns TRUE and set MultiPart array as expected, on success 
    function InputAsMultiPart(var MultiPart: TMultiPartDynArray): Boolean;
    /// retrieve an incoming HTTP header
    // - the supplied header name is case-insensitive
    // - you could call e.g. InHeader['remoteip'] to retrieve the caller IP
    property InHeader[const HeaderName: RawUTF8]: RawUTF8 read GetInHeader;
    /// retrieve an incoming HTTP cookie value
    // - the supplied cookie name is case-insensitive
    property InCookie[CookieName: RawUTF8]: RawUTF8 read GetInCookie write SetInCookie;
................................................................................
    exit; // bad ModelRoot -> caller can try another TSQLRestServer
  end;
  URI := copy(Call^.url,j+i+2,maxInt); // trim any '/root/' left side of Ctxt.URI
  ParametersPos := PosEx(RawUTF8('?'),Call^.url,1);
  if ParametersPos>0 then // '?select=...&where=...' or '?where=...'
    Parameters := @Call^.url[ParametersPos+1] else
    if Method=mPost then begin
      fInputPostContentType := FindIniNameValue(
        pointer(Call.InHead),HEADER_CONTENT_TYPE_UPPER);
      if IdemPChar(pointer(fInputPostContentType),'APPLICATION/X-WWW-FORM-URLENCODED') then
        Parameters := pointer(Call^.InBody);
    end; 
  // compute Table, TableID and URIBlobFieldName
  i := PosEx(RawUTF8('/'),URI,1);
  if i>0 then begin
    Par := @URI[i+1];
................................................................................
end;

function TSQLRestServerURIContext.GetInputOrVoid(const ParamName: RawUTF8): variant;
begin
  GetVariantFromJSON(pointer(GetInputUTF8OrVoid(ParamName)),false,Result);
end;















function TSQLRestServerURIContext.GetInputAsTDocVariant: variant;
var i: integer;
    v: variant;
    MultiPart: TMultiPartDynArray;


begin
  VarClear(result);
  FillInput;
  if fInput<>nil then begin
    with TDocVariantData(result) do begin
      Init(JSON_OPTIONS[true]);
      for i := 0 to (length(fInput) shr 1)-1 do begin
        GetVariantFromJSON(pointer(fInput[i*2+1]),false,v,@JSON_OPTIONS[true]);
        AddValue(fInput[i*2],v);
      end;
    end;
  end else
  if InputAsMultiPart(MultiPart) then


    with TDocVariantData(result) do begin
      Init(JSON_OPTIONS[true]);
      for i := 0 to high(MultiPart) do
        with MultiPart[i] do begin
          RawUTF8ToVariant(Content,v);
          AddValue(Name,v);
        end;
    end;
end;

{$endif NOVARIANTS}

function TSQLRestServerURIContext.InputAsMultiPart(var MultiPart: TMultiPartDynArray): Boolean;
begin
  result := (Method=mPOST) and
     IdemPChar(pointer(fInputPostContentType),'MULTIPART/FORM-DATA') and
     MultiPartFormDataDecode(fInputPostContentType,Call^.InBody,MultiPart);
end;

function TSQLRestServerURIContext.GetInHeader(const HeaderName: RawUTF8): RawUTF8;
var up: array[byte] of AnsiChar;
begin
  PWord(UpperCopy255(up,HeaderName))^ := ord(':');
  result := Trim(FindIniNameValue(pointer(Call.InHead),up));
end;

type
  /// used by MultiPartFormDataDecode() to return one item of its data
  TMultiPart = record
    Name: RawUTF8;
    FileName: RawUTF8;
    ContentType: RawUTF8;

    Content: RawByteString;
  end;
  /// used by MultiPartFormDataDecode() to return all its data items
  TMultiPartDynArray = array of TMultiPart;

/// decode multipart/form-data POST request content
// - following RFC1867
................................................................................
  result := ExistsIniNameValue(Headers,HEADER_CONTENT_TYPE_UPPER,
    ['TEXT/','APPLICATION/JSON','APPLICATION/XML',
     'APPLICATION/X-JAVASCRIPT','IMAGE/SVG+XML']);
end;

function MultiPartFormDataDecode(const MimeType,Body: RawUTF8;
  var MultiPart: TMultiPartDynArray): boolean;
var boundary,encoding: RawUTF8;
    i,j: integer;
    P: PUTF8Char;
    part: TMultiPart;
begin
  result := false;
  i := PosEx('boundary=',MimeType);
  if i=0 then
................................................................................
  if i<>0 then
  repeat
    inc(i,length(boundary));
    if i=length(body) then
      exit; // reached the end
    P := PUTF8Char(Pointer(Body))+i-1;
    Finalize(part);
    encoding := '';
    repeat
      if IdemPCharAndGetNextItem(P,'CONTENT-DISPOSITION: FORM-DATA; NAME="',
         part.Name,'"') then
        IdemPCharAndGetNextItem(P,'; FILENAME="',part.FileName,'"') else
      if IdemPCharAndGetNextItem(P,'CONTENT-TYPE: ',part.ContentType) or
         IdemPCharAndGetNextItem(P,'CONTENT-TRANSFER-ENCODING: ',encoding) then;
      GetNextLineBegin(P,P);
      if P=nil then
        exit;
   until PWord(P)^=13+10 shl 8;
   i := P-PUTF8Char(Pointer(Body))+3; // i = just after header
   j := PosEx(Body,boundary,i);
   if j=0 then
     exit;
   part.Content := copy(Body,i,j-i);

   if (encoding<>'7bit') and (encoding<>'8bit') and (encoding<>'binary') then


     if encoding='base64' then
       part.Content := Base64ToBin(part.Content) else
       exit; // unknown encoding - e.g. "quoted-printable"
   SetLength(MultiPart,length(MultiPart)+1);
   MultiPart[high(MultiPart)] := part;
   result := true;
   i := j;
  until false;
end;

function FastLocatePUTF8CharSorted(P: PPUTF8CharArray; R: PtrInt; Value: PUTF8Char): PtrInt;
var L,i,cmp: PtrInt;
begin
  if R<0 then

type
  /// used by MultiPartFormDataDecode() to return one item of its data
  TMultiPart = record
    Name: RawUTF8;
    FileName: RawUTF8;
    ContentType: RawUTF8;
    Encoding: RawUTF8;
    Content: RawByteString;
  end;
  /// used by MultiPartFormDataDecode() to return all its data items
  TMultiPartDynArray = array of TMultiPart;

/// decode multipart/form-data POST request content
// - following RFC1867
................................................................................
  result := ExistsIniNameValue(Headers,HEADER_CONTENT_TYPE_UPPER,
    ['TEXT/','APPLICATION/JSON','APPLICATION/XML',
     'APPLICATION/X-JAVASCRIPT','IMAGE/SVG+XML']);
end;

function MultiPartFormDataDecode(const MimeType,Body: RawUTF8;
  var MultiPart: TMultiPartDynArray): boolean;
var boundary: RawUTF8;
    i,j: integer;
    P: PUTF8Char;
    part: TMultiPart;
begin
  result := false;
  i := PosEx('boundary=',MimeType);
  if i=0 then
................................................................................
  if i<>0 then
  repeat
    inc(i,length(boundary));
    if i=length(body) then
      exit; // reached the end
    P := PUTF8Char(Pointer(Body))+i-1;
    Finalize(part);

    repeat
      if IdemPCharAndGetNextItem(P,
         'CONTENT-DISPOSITION: FORM-DATA; NAME="',part.Name,'"') then
        IdemPCharAndGetNextItem(P,'; FILENAME="',part.FileName,'"') else
      if IdemPCharAndGetNextItem(P,'CONTENT-TYPE: ',part.ContentType) or
         IdemPCharAndGetNextItem(P,'CONTENT-TRANSFER-ENCODING: ',part.Encoding) then;
      GetNextLineBegin(P,P);
      if P=nil then
        exit;
    until PWord(P)^=13+10 shl 8;
    i := P-PUTF8Char(Pointer(Body))+3; // i = just after header
    j := PosEx(Body,boundary,i);
    if j=0 then
      exit;
    part.Content := copy(Body,i,j-i-2); // -2 to ignore latest #13#10
    {$ifdef UNICODE}
    if part.ContentType='' then
      SetCodePage(part.Content,CP_UTF8) else // ensure raw field value is UTF-8
    {$endif}
    if part.Encoding='base64' then // "quoted-printable" not yet handled here
      part.Content := Base64ToBin(part.Content);

    SetLength(MultiPart,length(MultiPart)+1);
    MultiPart[high(MultiPart)] := part;
    result := true;
    i := j;
  until false;
end;

function FastLocatePUTF8CharSorted(P: PPUTF8CharArray; R: PtrInt; Value: PUTF8Char): PtrInt;
var L,i,cmp: PtrInt;
begin
  if R<0 then

'1.18.922'

'1.18.923'