add file method

viniciussanchez · Aug 4, 2023 · a44409f · a44409f
1 parent f055a12
commit a44409f
Showing 1 changed file with 8 additions and 4 deletions.
diff --git a/src/RESTRequest4D.Request.Client.pas b/src/RESTRequest4D.Request.Client.pas
@@ -162,10 +162,12 @@ function TRequestClient.AddField(const AFieldName: string; const AValue: string)
 function TRequestClient.AddFile(const AFieldName: string; const AFileName: string; const AContentType: TRESTContentType): IRequest;
 begin
   Result := Self;
-  if not FileExists(AFileName) then
-    Exit;
   {$IF COMPILERVERSION >= 32.0}
+    if not FileExists(AFileName) then
+      Exit;
     FRESTRequest.AddFile(AFieldName, AFileName, AContentType);
+  {$ELSE}
+    raise Exception.Create('Method not implemented for your Delphi version. Try changing the engine or submitting a pull request.');
   {$ENDIF}
 end;
 
@@ -176,9 +178,9 @@ function TRequestClient.AddFile(const AFieldName: string; const AValue: TStream;
 {$ENDIF}
 begin
   Result := Self;
-  if not Assigned(AValue) then
-    Exit;
   {$IF COMPILERVERSION >= 33.0}
+    if not Assigned(AValue) then
+      Exit;
     lFileName := Trim(AFileName);
     if (lFileName = EmptyStr) then
       lFileName := AFieldName;
@@ -191,6 +193,8 @@ function TRequestClient.AddFile(const AFieldName: string; const AValue: TStream;
       Kind := TRESTRequestParameterKind.pkFILE;
       ContentType := AContentType;
     end;
+  {$ELSE}
+    raise Exception.Create('Method not implemented for your Delphi version. Try changing the engine or submitting a pull request.');
   {$ENDIF}
 end;