[httpClient] Fixed UTF8 json

Author: exilon

Quick.HttpClient.pas

@@ -147,9 +147,9 @@ function TJsonHttpClient.Get(const aURL : string) : IHttpRequestResponse;
   bodycontent : TStringStream;
   responsecontent : TStringStream;
 begin
-  bodycontent := TStringStream.Create;
+  bodycontent := TStringStream.Create('',TEncoding.UTF8);
   try
-    responsecontent := TStringStream.Create;
+    responsecontent := TStringStream.Create('',TEncoding.UTF8);
     try
       {$IFDEF DELPHIXE8_UP}
       resp := fHTTPClient.Get(aURL,responsecontent,nil);
@@ -185,7 +185,7 @@ function TJsonHttpClient.Post(const aURL, aInContent : string; aHeaders : TPairL
   postcontent := TStringStream.Create(Utf8Encode(aInContent));
   try
     //postcontent.WriteString(aInContent);
-    responsecontent := TStringStream.Create;
+    responsecontent := TStringStream.Create('',TEncoding.UTF8);
     try
       {$IFDEF DELPHIXE8_UP}
       if aHeaders <> nil then
@@ -238,7 +238,7 @@ function TJsonHttpClient.Post(const aURL : string; aInContent : TStream) : IHttp
   responsecontent : TStringStream;
 begin
   //postcontent.WriteString(aInContent);
-  responsecontent := TStringStream.Create;
+  responsecontent := TStringStream.Create('',TEncoding.UTF8);
   try
     {$IFDEF DELPHIXE8_UP}
     resp := fHTTPClient.Post(aURL,aInContent,responsecontent);
@@ -290,7 +290,7 @@ function TJsonHttpClient.Put(const aURL, aInContent : string) : IHttpRequestResp
   postcontent := TStringStream.Create(Utf8Encode(aInContent));
   try
     //postcontent.WriteString(aInContent);
-    responsecontent := TStringStream.Create;
+    responsecontent := TStringStream.Create('',TEncoding.UTF8);
     try
       {$IFDEF DELPHIXE8_UP}
       resp := fHTTPClient.Put(aURL,postcontent,responsecontent);