Merge pull request #6 from josiasmaceda/master

Adicionado suporte para versões mais antigas do delphi
HashLoad · Aug 7, 2020 · 78789d3 · 78789d3
2 parents aa56ae6 + 5b2cee0
commit 78789d3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Horse.OctetStream.pas b/src/Horse.OctetStream.pas
@@ -67,7 +67,7 @@ procedure OctetStream(Req: THorseRequest; Res: THorseResponse; Next: TProc);
 
   if Assigned(LContent) and LContent.InheritsFrom(TStream) then
   begin
-    if LWebResponse.ContentType.Trim.IsEmpty then
+    if Trim(LWebResponse.ContentType).IsEmpty then
     begin
       LWebResponse.ContentType := CONTENT_TYPE;
     end;
@@ -80,7 +80,7 @@ procedure OctetStream(Req: THorseRequest; Res: THorseResponse; Next: TProc);
 
   if Assigned(LContent) and LContent.InheritsFrom(TFileReturn) then
   begin
-    if LWebResponse.ContentType.Trim.IsEmpty then
+    if Trim(LWebResponse.ContentType).IsEmpty then
     begin
       LWebResponse.ContentType := CONTENT_TYPE;
     end;