Merge pull request #14 from mateusvicente100/master

Set stream position to zero
HashLoad · Aug 23, 2022 · 82cbea4 · 82cbea4
2 parents 4503ff4 + 38c4e07
commit 82cbea4
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/Horse.OctetStream.pas b/src/Horse.OctetStream.pas
@@ -89,6 +89,8 @@ procedure OctetStream(Req: THorseRequest; Res: THorseResponse; Next: {$IF DEFINE
 
   if Assigned(LContent) and LContent.InheritsFrom(TStream) then
   begin
+    TStream(LContent).Position := 0;
+
     if Trim(Res.RawWebResponse.ContentType).IsEmpty then
       Res.ContentType(CONTENT_TYPE);
 
@@ -101,6 +103,8 @@ procedure OctetStream(Req: THorseRequest; Res: THorseResponse; Next: {$IF DEFINE
 
   if Assigned(LContent) and LContent.InheritsFrom(TFileReturn) then
   begin
+    TFileReturn(LContent).Stream.Position := 0;
+
     if Trim(Res.RawWebResponse.ContentType).IsEmpty then
       Res.ContentType(CONTENT_TYPE);