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

RAD Studio 10.2.3 测试√

---

小提示：
下面返回的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;

---

一点点笔记，以便以后翻阅。