Merge pull request #13 from elvisbayerl/Compatabilidade-XE-7

Update Horse.OctetStream.pas (Compatibilidade Delphi XE 7)
HashLoad · Aug 23, 2022 · c57c5ed · c57c5ed
2 parents 82cbea4 + e5dd87a
commit c57c5ed
Showing 1 changed file with 11 additions and 7 deletions.
diff --git a/src/Horse.OctetStream.pas b/src/Horse.OctetStream.pas
@@ -45,14 +45,18 @@ procedure GetAllDataAsStream(ARequest: THorseRequest; AStream: TMemoryStream);
 begin
   AStream.Clear;
   {$IF DEFINED(FPC)}
-   LStringStream := TStringStream.Create(ARequest.RawWebRequest.Content);
-   try
-     LStringStream.SaveToStream(AStream);
-   finally
-     LStringStream.Free;
-   end;
+  LStringStream := TStringStream.Create(ARequest.RawWebRequest.Content);
+  try
+    LStringStream.SaveToStream(AStream);
+  finally
+    LStringStream.Free;
+  end;
+  {$ELSE}
+  {$IF CompilerVersion <= 28}
+    Assert(Length(ARequest.RawWebRequest.RawContent) = ARequest.RawWebRequest.ContentLength);
   {$ELSE}
-  ARequest.RawWebRequest.ReadTotalContent;
+    ARequest.RawWebRequest.ReadTotalContent;
+  {$ENDIF}
 
   ContentLength := ARequest.RawWebRequest.ContentLength;
   while ContentLength > 0 do