[Fix] SendDocument присылает tmp #46. Но это не точно

Author: rareMaxim

Source/TelegAPI.Utils.Params.pas

@@ -88,7 +88,7 @@ procedure TtgParamLoader.AddClass_TtgFileToSend(var AFormData: TMultipartFormDat
 begin
   LFileToSent := AValue.AsType<TtgFileToSend>;
   if Assigned(LFileToSent.Content) then
-    AFormData.AddStream(AKey, LFileToSent.Content)
+    AFormData.AddStream(AKey, LFileToSent.Content, LFileToSent.FileName)
   else
     AFormData.AddFile(AKey, LFileToSent.FileName);
 end;

Source/TelegAPi.Helpers.pas

@@ -30,7 +30,17 @@   TtgTMultipartFormDataHelper = class helper for TMultipartFormData
     /// <summary>
     ///   Add a form data Stream
     /// </summary>
-    procedure AddStream(const AFieldName: string; Data: TStream);
+    /// <param name="AFieldName">
+    ///   Field Name
+    /// </param>
+    /// <param name="Data">
+    ///   Stream
+    /// </param>
+    /// <param name="AFileName">
+    ///   file name: "File.ext"
+    /// </param>
+    procedure AddStream(const AFieldName: string; Data: TStream; const AFileName: string = '');
+
   end;
 
   TtgMessageHelper = class helper for TTgMessage
@@ -89,12 +99,15 @@ function TAllowedUpdatesHelper.ToString: string;
 
 { TtgTMultipartFormDataHelper }
 
-procedure TtgTMultipartFormDataHelper.AddStream(const AFieldName: string; Data: TStream);
+procedure TtgTMultipartFormDataHelper.AddStream(const AFieldName: string; Data: TStream; const AFileName: string);
 var
   lFileName: string;
   LFileStream: TFileStream;
 begin
-  lFileName := TPath.GetTempFileName;
+  if AFieldName.IsEmpty then
+    lFileName := TPath.GetTempFileName
+  else
+    lFileName := TPath.Combine(TPath.GetTempPath, AFieldName);
   try
     LFileStream := TFileStream.Create(lFileName, fmCreate);
     try

Source/TelegAPi.Types.pas

@@ -1060,7 +1060,7 @@   TtgFileToSend = class
     FileName: string;
     Content: TStream;
     constructor Create(const AFileName: string); overload;
-    constructor Create(AContent: TStream); overload;
+    constructor Create(AContent: TStream; const AFileName: string = ''); overload;
     destructor Destroy; override;
   end;
 
@@ -1629,9 +1629,9 @@ constructor TtgFileToSend.Create(const AFileName: string);
     raise EFileNotFoundException.CreateFmt('File %S not found!', [AFileName]);
 end;
 
-constructor TtgFileToSend.Create(AContent: TStream);
+constructor TtgFileToSend.Create(AContent: TStream; const AFileName: string);
 begin
-  FileName := string.Empty;
+  FileName := AFileName;
   Content := AContent;
   if not Assigned(AContent) then
     raise EStreamError.Create('Stream not assigned!');