Update Horse.OctetStream.pas

HashLoad · Aug 23, 2022 · 38c4e07 · 38c4e07
1 parent 4503ff4
commit 38c4e07
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);