Added Req.Host, Req.PathInfo, Req.ContentType

netxing · Feb 14, 2023 · ae4b30f · ae4b30f
1 parent 413a104
commit ae4b30f
Showing 1 changed file with 18 additions and 0 deletions.
diff --git a/src/Horse.Request.pas b/src/Horse.Request.pas
@@ -48,6 +48,9 @@   THorseRequest = class
     function Cookie: THorseCoreParam;
     function ContentFields: THorseCoreParam;
     function MethodType: TMethodType;
+    function ContentType: string;
+    function Host: string;
+    function PathInfo: string;
     function RawWebRequest: {$IF DEFINED(FPC)}TRequest{$ELSE}TWebRequest{$ENDIF};
     property Sessions: THorseSessions read FSessions;
     constructor Create(const AWebRequest: {$IF DEFINED(FPC)}TRequest{$ELSE}TWebRequest{$ENDIF});
@@ -128,6 +131,21 @@ function THorseRequest.Headers: THorseCoreParam;
   result := FHeaders;
 end;
 
+function THorseRequest.Host: string;
+begin
+  Result := FWebRequest.Host;
+end;
+
+function THorseRequest.ContentType: string;
+begin
+  Result := FWebRequest.ContentType;
+end;
+
+function THorseRequest.PathInfo: string;
+begin
+  Result := FWebRequest.PathInfo;
+end;
+
 procedure THorseRequest.InitializeContentFields;
 const
   CONTENT_DISPOSITION = 'Content-Disposition: form-data; name=';