Bug fix

HashLoad · Jan 9, 2024 · 2e83e9c · 2e83e9c
1 parent d668457
commit 2e83e9c
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/samples/delphi/samples.dpr b/samples/delphi/samples.dpr
@@ -38,6 +38,8 @@ begin
     var
       LType: string;
     begin
+      if not MatchText(Req.RawWebRequest.ContentType, THorseOctetStreamConfig.GetInstance.AcceptContentType.ToArray) then
+        raise EHorseException.New.Error('Unknown Content-Type: ' + Req.RawWebRequest.ContentType).Status(THTTPStatus.BadRequest);
       // here you could get the Req.ContentType and save the file based on that
       LType := Copy(Req.RawWebRequest.ContentType, Pos('/', Req.RawWebRequest.ContentType) + 1, Req.RawWebRequest.ContentType.Length);
       Req.Body<TBytesStream>.SaveToFile(ExtractFilePath(ParamStr(0)) + 'horse-post.' + LType);

diff --git a/src/Horse.OctetStream.pas b/src/Horse.OctetStream.pas
@@ -102,9 +102,7 @@ procedure OctetStream(Req: THorseRequest; Res: THorseResponse; Next: {$IF DEFINE
       LContentTMemoryStream :=  TMemoryStream(LContent);
       GetAllDataAsStream(Req, LContentTMemoryStream);
       Req.Body(LContent);
-    end
-    else
-      raise EHorseException.New.Error('Unknown Content-Type: ' + Req.RawWebRequest.ContentType).Status(THTTPStatus.BadRequest);
+    end;
   end;
 
   Next;