zoukankan      html  css  js  c++  java
  • 将图片压缩后转Base64函数

    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;
    
  • 相关阅读:
    Flex 布局
    vue学习之用 Vue.js + Vue Router 创建单页应用的几个步骤
    vue学习起步:了解下
    vue学习一:新建或打开vue项目(vue-cli2)
    adb环境变量配置
    数据类型判断和数据类型转换代码工具
    日期工具集合
    postman变量的使用和设置
    浮点数运算和金额处理
    07- Linux常用命令
  • 原文地址:https://www.cnblogs.com/studypanp/p/5025864.html
Copyright © 2011-2022 走看看