我有Delphi 10.3.2 我不了解这种情况：

1） 上传约100万张照片

image1.Bitmap.LoadFromFile('test.jpg');

然后我保存同一张照片

image1.Bitmap.SaveToFile('test_new.jpg');

和test_new.jpg约为3M。为什么???

2）

我想使用IdHTTP和POST请求从TImage（test1.jpg-1MB）对象发送照片到服务器。 我使用功能Base64_Encoding_stream对图像进行编码。 对该函数进行编码后，图像大小（字符串）为20 MB！ ？为什么原始文件有1MB？

function Base64_Encoding_stream(_image:Timage): string;
var
  base64: TIdEncoderMIME;
  output: string;
  stream_image : TStream;
begin
    try
      begin
        base64 := TIdEncoderMIME.Create(nil);
        stream_image := TMemoryStream.Create;
        _image.Bitmap.SaveToStream(stream_image);
        stream_image.Position := 0;
        output := TIdEncoderMIME.EncodeStream(stream_image);
        stream_image.Free;
        base64.Free;
        if not(output = '') then
        begin
          Result := output;
        end
        else
        begin
          Result := 'Error';
        end;
      end;
    except
      begin
        Result := 'Error'
      end;
    end;
 end;


....

img_encoded := Base64_Encoding_stream(Image1);

.....

procedure Send(_json:String );
var
  lHTTP             : TIdHTTP;
  PostData          : TStringList;
begin
  PostData := TStringList.Create;
  lHTTP := TIdHTTP.Create(nil);
  try
      PostData.Add('dane='  + _json );
      lHTTP.Request.UserAgent   :=   'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0';
      lHTTP.Request.Connection  := 'keep-alive';
      lHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
      lHTTP.Request.Charset     := 'utf-8';
      lHTTP.Request.Method      := 'POST';

    _dane := lHTTP.Post('http://......./add_photo.php',PostData);

  finally
    lHTTP.Free;
    PostData.Free;
end;