fix requests encoding

casamagalhaes · Nov 8, 2019 · 8cf164c · 8cf164c
1 parent 69d7a39
commit 8cf164c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/PanamahSDK.Client.pas b/PanamahSDK.Client.pas
@@ -230,7 +230,7 @@ function TPanamahClient.MakeRequest(const ARequest: IPanamahRequest): IPanamahRe
             end;
             mtPOST:
             begin
-              RequestContent := TStringStream.Create(ARequest.Content);
+              RequestContent := TStringStream.Create(ARequest.Content, TEncoding.UTF8);
               try
                 ResponseContent := HTTP.Post(ARequest.URL, RequestContent);
               finally
@@ -239,7 +239,7 @@ function TPanamahClient.MakeRequest(const ARequest: IPanamahRequest): IPanamahRe
             end;
             mtPUT:
             begin
-              RequestContent := TStringStream.Create(ARequest.Content);
+              RequestContent := TStringStream.Create(ARequest.Content, TEncoding.UTF8);
               try
                 ResponseContent := HTTP.Put(ARequest.URL, RequestContent);
               finally