- Correção de parse para params x-www-form-urlencoded cujo value é vazio

 - Pequena otimização do parse melhorando um pouco o tempo de resposta dos servers
 + Adição de função para devolver os params como um JSONObject: Params.AsJSON

Author: mobius1qwe

src/base/RALParams.pas

@@ -190,6 +190,8 @@   TRALParams = class
     function URLEncodedToList(ASource: StringRAL): TStringList;
     /// returns all the params in a comma separated UTF8string.
     function AsString: StringRAL;
+    /// returns all the params in a JSON UTF8string format.
+    function AsJSON: StringRAL;
 
     /// Grabs only the body kind of params, excluding headers and cookies.
     property Body: TList read GetBody;
@@ -214,6 +216,9 @@ implementation
 
 { TRALParam }
 
+uses
+  RALJson;
+
 procedure TRALParam.Clone(ASource: TRALParam);
 begin
   ASource.ContentDisposition := Self.ContentDisposition;
@@ -735,6 +740,26 @@ procedure TRALParams.AssignParams(ADest: TStringList; AKind: TRALParamKind;
   AssignParams(TStrings(ADest), AKind, ASeparator);
 end;
 
+function TRALParams.AsJSON: StringRAL;
+var
+  I: IntegerRAL;
+  JSON: TRALJSONObject;
+begin
+  Result := '';
+  if (FParams <> nil) and (FParams.Count > 0) then
+  begin
+    JSON := TRALJSONObject.Create;
+    try
+      for I := 0 to Pred(FParams.Count) do
+        JSON.Add(TRALParam(FParams.Items[I]).ParamName, TRALParam(FParams.Items[I]).AsString);
+
+      Result := JSON.ToJSON;
+    finally
+      JSON.Free;
+    end;
+  end;
+end;
+
 procedure TRALParams.AssignParams(ADest: TStrings; AKind: TRALParamKind;
   ASeparator: StringRAL);
 var
@@ -1135,12 +1160,14 @@ function TRALParams.FindNameSeparator(const ASource: StringRAL): StringRAL;
 begin
   vMin := Length(ASource);
   vPos := Pos('=', ASource);
-  if (vPos > 0) and (vPos < vMin) then
-    Result := '=';
-
-  vPos := Pos(StringRAL(': '), ASource);
-  if (vPos > 0) and (vPos < vMin) then
-    Result := ': ';
+  if (vPos > 0) and (vPos <= vMin) then
+    Result := '='
+  else
+  begin
+    vPos := Pos(StringRAL(': '), ASource);
+    if (vPos > 0) and (vPos <= vMin) then
+      Result := ': ';
+  end;
 end;
 
 procedure TRALParams.AppendParamLine(const ALine, ANameSeparator: StringRAL;
@@ -1166,7 +1193,8 @@ procedure TRALParams.AppendParamLine(const ALine, ANameSeparator: StringRAL;
     if vParam = nil then
       vParam := NewParam;
     vParam.ParamName := vName;
-    vParam.AsString := vValue;
+    if vValue <> '' then
+      vParam.AsString := vValue;
     vParam.ContentType := rctTEXTPLAIN;
     vParam.Kind := AKind;
   end;

src/base/RALRoutes.pas

@@ -196,10 +196,10 @@ function TRALBaseRoute.GetAllowMethods: StringRAL;
 
 procedure TRALBaseRoute.SetRoute(AValue: StringRAL);
 var
-  vList : TStringList;
-  vInt, vPos : IntegerRAL;
-  vStr : StringRAL;
-  vParam : TRALRouteParam;
+  vList: TStringList;
+  vInt, vPos: IntegerRAL;
+  vStr: StringRAL;
+  vParam: TRALRouteParam;
 begin
   AValue := FixRoute(Trim(AValue));