Delphi 位图bmp存为jpg +文件转Base64

小提示：

下面返回的Base64是不带头的，在网页里面打开需要带上头

如 jpg 的头：data:image/jpeg;base64,

既然是头那就是需要放在Base64的最前面

uses

Vcl.Graphics, Vcl.Imaging.jpeg, System.Classes, Soap.EncdDecd;

位图bmp存为jpg：

/// <summary>

/// 位图保存为jpg文件

/// </summary>

/// <param name="bmp">位图信息</param>

procedure mBmpToJpegFile(bmp: TBitmap);

var

  mJpg: TJPEGImage;

begin

  mJpg := TJpegImage.Create;

  mJpg.Assign(bmp);

  mJpg.Compress;

  // 压缩质量

  mJpg.CompressionQuality := 80;

  // 文件保存位置

  mJpg.SaveToFile('d:/xiaoyin.jpg');

  mJpg.Free;

end;

文件转Base64

/// <summary>

/// 文件转Base64

/// </summary>

/// <returns>文件的Base64</returns>

function mFileToBase64(): string;

var

  MemoryStream: TMemoryStream;

begin

  Result := '';

  MemoryStream := TMemoryStream.Create;

  try

    MemoryStream.LoadFromFile('d:/xiaoyin.jpg');

    Result := string(EncodeBase64(MemoryStream.Memory, MemoryStream.Size));

  finally

    MemoryStream.Free;

  end;

end;

————————————————

原文链接：https://blog.csdn.net/qq_44111597/article/details/112946442