Merge pull request #18 from davisouzatb/patch-1

fix() problema com carácter especial usando toString não estava tratando ...
HashLoad · Jun 4, 2024 · d2f97b2 · d2f97b2
2 parents 47346d5 + db3441c
commit d2f97b2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Horse.Jhonson.pas b/src/Horse.Jhonson.pas
@@ -65,7 +65,7 @@ procedure Middleware(Req: THorseRequest; Res: THorseResponse; Next: {$IF DEFINED
       {$IF DEFINED(FPC)}
       Res.RawWebResponse.ContentStream := TStringStream.Create(TJsonData(Res.Content).AsJSON);
       {$ELSE}
-      Res.RawWebResponse.Content := TJSONValue(Res.Content).ToString;
+      Res.RawWebResponse.Content := TJSONValue(Res.Content).ToJSON;
       {$ENDIF}
       Res.RawWebResponse.ContentType := 'application/json; charset=' + Charset;
     end;