Added options parameter on AddHeader method (restclient)

viniciussanchez · Jan 21, 2021 · c2d2a25 · c2d2a25
1 parent d0bb5d4
commit c2d2a25
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/src/RESTRequest4D.Request.Client.pas b/src/RESTRequest4D.Request.Client.pas
@@ -52,7 +52,7 @@   TRequestClient = class(TInterfacedObject, IRequest)
     function AddBody(const AContent: TObject; const AOwns: Boolean = True): IRequest; overload;
     function AddBody(const AContent: TStream; const AOwns: Boolean = True): IRequest; overload;
     function ClearHeaders: IRequest;
-    function AddHeader(const AName, AValue: string): IRequest;
+    function AddHeader(const AName, AValue: string; const AOptions: TRESTRequestParameterOptions = []): IRequest;
     function ClearParams: IRequest;
     function ContentType(const AContentType: string): IRequest;
     function UserAgent(const AName: string): IRequest;
@@ -135,14 +135,15 @@ function TRequestClient.AddFile(const AName: string; const AValue: TStream): IRe
   {$ENDIF}
 end;
 
-function TRequestClient.AddHeader(const AName, AValue: string): IRequest;
+function TRequestClient.AddHeader(const AName, AValue: string; const AOptions: TRESTRequestParameterOptions): IRequest;
 begin
   Result := Self;
   if AName.Trim.IsEmpty or AValue.Trim.IsEmpty then
     Exit;
   if FHeaders.IndexOf(AName) < 0 then
     FHeaders.Add(AName);
   FRESTRequest.Params.AddHeader(AName, AValue);
+  FRESTRequest.Params.ParameterByName(AName).Options := AOptions;
 end;
 
 function TRequestClient.AddParam(const AName, AValue: string; const AKind: TRESTRequestParameterKind): IRequest;

diff --git a/src/RESTRequest4D.Request.Contract.pas b/src/RESTRequest4D.Request.Contract.pas
@@ -45,7 +45,9 @@ interface
     {$IF DEFINED(RR4D_INDY) or DEFINED(FPC) or DEFINED(RR4D_NETHTTP)}
     function AddParam(const AName, AValue: string): IRequest;
     function AddBody(const AContent: string): IRequest; overload;
+    function AddHeader(const AName, AValue: string): IRequest;
     {$ELSE}
+    function AddHeader(const AName, AValue: string; const AOptions: TRESTRequestParameterOptions = []): IRequest;
     function AddParam(const AName, AValue: string; const AKind: TRESTRequestParameterKind = {$IF COMPILERVERSION < 33}TRESTRequestParameterKind.pkGETorPOST{$ELSE}TRESTRequestParameterKind.pkQUERY{$ENDIF}): IRequest;
     function AddBody(const AContent: string; const AContentType: TRESTContentType = ctAPPLICATION_JSON): IRequest; overload;
     {$ENDIF}
@@ -54,7 +56,6 @@ interface
     function AddBody(const AContent: TObject; const AOwns: Boolean = True): IRequest; overload;
     function AddBody(const AContent: TStream; const AOwns: Boolean = True): IRequest; overload;
     function ClearHeaders: IRequest;
-    function AddHeader(const AName, AValue: string): IRequest;
     function ClearParams: IRequest;
     function UserAgent(const AName: string): IRequest;
     function ContentType(const AContentType: string): IRequest;