Fixed Stream Encoding

HashLoad · Mar 31, 2023 · a2ffdd9 · a2ffdd9
1 parent 3a21cff
commit a2ffdd9
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;