Bug fix: Alexandre Magno

viniciussanchez · Nov 27, 2024 · 296b8bc · 296b8bc
1 parent da2a4d4
commit 296b8bc
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/src/RESTRequest4D.Request.FPHTTPClient.pas b/src/RESTRequest4D.Request.FPHTTPClient.pas
@@ -535,6 +535,7 @@ function TRequestFPHTTPClient.AddFile(const AFieldName: string; const AFileName:
 function TRequestFPHTTPClient.AddFile(const AFieldName: string; const AValue: TStream; const AFileName: string; const AContentType: string): IRequest;
 var
   LFile: TFile;
+  LFileName: string;
 begin
   Result := Self;
   if not Assigned(AValue) then
@@ -543,7 +544,11 @@ function TRequestFPHTTPClient.AddFile(const AFieldName: string; const AValue: TS
   begin
     if not FFiles.ContainsKey(AFieldName) then
     begin
-      LFile := TFile.Create(AValue, AFileName, AContentType);
+      LFileName := AFileName;
+      if LFileName.Trim.IsEmpty then
+        LFileName := AFieldName;
+
+      LFile := TFile.Create(AValue, LFileName, AContentType);
       FFiles.AddOrSetValue(AFieldName, LFile);
     end;
   end;