2015年12月7日
将图片压缩后转Base64函数
摘要： function CutImgToBase(fn: string): string; // 压缩图片只能压缩bmp：将jpg转换成bmp再压缩var m1: TMemoryStream; m2: TStringStream; jpg: TJPEGImage; bmp: TBitmap;begin ... 阅读全文
posted @ 2015-12-07 13:41 王云盼 阅读(1003) 评论(0) 推荐(0) 编辑