本文整理自网络，侵删。
function CutImgToBase(fn: string): string; // 压缩图片只能压缩bmp：将jpg转换成bmp再压缩
var
m1: TMemoryStream;
m2: TStringStream;
jpg: TJPEGImage;
bmp: TBitmap;
begin
jpg := TJpegImage.Create;
bmp := TBitmap.Create;
m1 := TMemoryStream.Create;
m2 := TStringStream.Create;
jpg.LoadFromFile(fn);
bmp.Width := jpg.Width div 2;
bmp.Height := jpg.Height div 2;
bmp.Canvas.StretchDraw(bmp.Canvas.ClipRect, jpg);
jpg.Assign(bmp);
jpg.CompressionQuality := 30;
jpg.Compress; // 先指定大小再压缩
jpg.SaveToStream(m1);
m1.Position := 0; // 一定要还原指针，才能base64
EncdDecd.EncodeStream(m1, m2);
result := m2.DataString.Replace(#13, '').Replace(#10, '');
bmp.Free;
jpg.Free;
m1.Free;
m2.Free;
end;
调用函数：
procedure TForm2.Button4Click(Sender: TObject); // 调用函数 压缩并编码
var
m: TStringStream;
s: string;
begin
s := CutImgToBase('test.jpg');
FilePutContents('mm.txt', s);
m := TStringStream.Create(s);
Memo1.Lines.Add(m.DataString);
m.SaveToFile('base64.txt');
end;
解码Base64测试：
procedure TForm2.DecodeBaseClick(Sender: TObject); // 解码
var
m1: TStringStream;
m2: TMemoryStream;
begin
m1 := TStringStream.Create;
m2 := TMemoryStream.Create;
m1.LoadFromFile('base64.txt');
EncdDecd.DecodeStream(m1, m2);
m2.SaveToFile('1.jpg');
m1.Free;
m2.Free;
end;
相关阅读 >>
Delphi winapi: writeprivateprofilestring、getprivateprofilestring - 简单读写 ini 文件
Delphi xp 之后, Delphi 动注册表不方便了...逼出来一个办法:
Delphi 执行一个外部程序，当外部程序结束后言主程序立即响应
Delphi 获取动态创建的image与scrollbox的相对位置
Delphi d10.x安卓app开发中简单使用原生toast
更多相关阅读请进入《Delphi》频道 >>
