Adicionado suporte para versões que não possuem helper que disponibil…

…iza Trim;
HashLoad · Aug 7, 2020 · 5b2cee0 · 5b2cee0
1 parent aa56ae6
commit 5b2cee0
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;