Merge pull request #13 from HashLoad/Fixed-Stream-Encoding

Fixed Stream Encoding
HashLoad · Apr 10, 2023 · 35ba3bf · 35ba3bf
2 parents 3a21cff + a2ffdd9
commit 35ba3bf
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Horse.Compression.pas b/src/Horse.Compression.pas
@@ -61,7 +61,7 @@ procedure Middleware(Req: THorseRequest; Res: THorseResponse; Next: {$IF DEFINED
     if Trim(Res.RawWebResponse.Content) = EmptyStr then
       LStringStream := TStringStream.Create({$IF DEFINED(FPC)}TJsonData(Res.Content).AsJSON{$ELSE}TJSONValue(Res.Content).ToJSON{$ENDIF})
     else
-      LStringStream := TStringStream.Create(Res.RawWebResponse.Content);
+      LStringStream := TStringStream.Create(Res.RawWebResponse.Content {$IF NOT DEFINED(FPC)}, TEncoding.UTF8{$ENDIF});
     if LStringStream.Size <= CompressionThreshold then
       Exit;
     LMemoryStream := TMemoryStream.Create;