Added HEAD and OPTIONS methods to TMVCRestClient. Fix #455

danieleteti · Dec 16, 2020 · dd8e11a · dd8e11a
1 parent d883f87
commit dd8e11a
Show file tree

Hide file tree

Showing 2 changed files with 46 additions and 0 deletions.
diff --git a/sources/MVCFramework.RESTClient.Intf.pas b/sources/MVCFramework.RESTClient.Intf.pas
@@ -285,6 +285,18 @@ interface
     function Get(const aResource: string): IMVCRESTResponse; overload;
     function Get: IMVCRESTResponse; overload;
 
+    /// <summary>
+    /// Execute a Head request.
+    /// </summary>
+    function Head(const aResource: string): IMVCRESTResponse; overload;
+    function Head: IMVCRESTResponse; overload;
+
+    /// <summary>
+    /// Execute a Options request.
+    /// </summary>
+    function Options(const aResource: string): IMVCRESTResponse; overload;
+    function Options: IMVCRESTResponse; overload;
+
     /// <summary>
     /// Execute a Post request.
     /// </summary>

diff --git a/sources/MVCFramework.RESTClient.pas b/sources/MVCFramework.RESTClient.pas
@@ -360,6 +360,18 @@   TMVCRESTClient = class(TInterfacedObject, IMVCRESTClient)
     function Get(const aResource: string): IMVCRESTResponse; overload;
     function Get: IMVCRESTResponse; overload;
 
+    /// <summary>
+    /// Execute a Head request.
+    /// </summary>
+    function Head(const aResource: string): IMVCRESTResponse; overload;
+    function Head: IMVCRESTResponse; overload;
+
+    /// <summary>
+    /// Execute a Options request.
+    /// </summary>
+    function Options(const aResource: string): IMVCRESTResponse; overload;
+    function Options: IMVCRESTResponse; overload;
+
     /// <summary>
     /// Execute a Post request.
     /// </summary>
@@ -1215,6 +1227,17 @@ function TMVCRESTClient.HandleRedirects: Boolean;
   Result := fHTTPClient.HandleRedirects;
 end;
 
+function TMVCRESTClient.Head: IMVCRESTResponse;
+begin
+  Result := ExecuteRequest(TMVCHTTPMethodType.httpHEAD);
+end;
+
+function TMVCRESTClient.Head(const aResource: string): IMVCRESTResponse;
+begin
+  Resource(aResource);
+  Result := Head;
+end;
+
 function TMVCRESTClient.HeaderValue(const aName: string): string;
 var
   lParam: TMVCRESTParam;
@@ -1303,6 +1326,17 @@ function TMVCRESTClient.ObjectIsList(aObject: TObject): Boolean;
   Result := fRttiContext.GetType(aObject.ClassType).GetMethod('GetEnumerator') <> nil;
 end;
 
+function TMVCRESTClient.Options: IMVCRESTResponse;
+begin
+  Result := ExecuteRequest(TMVCHTTPMethodType.httpOPTIONS);
+end;
+
+function TMVCRESTClient.Options(const aResource: string): IMVCRESTResponse;
+begin
+  Resource(aResource);
+  Result := Options;
+end;
+
 procedure TMVCRESTClient.DoValidateServerCertificate(const aSender: TObject; const aRequest: TURLRequest;
   const aCertificate: TCertificate; var aAccepted: Boolean);
 begin