Question

Delphi 如何用dbimage加载图片并压缩保存到SQL中？

我反复测试：把一张像素为1800*1200的JPG图片（文件大小为162KB）存入数据库时，通过更改像素为800*600，仍然要占用2MB多的空间，请教各位大虾：如何处理才能达到储存空间小于或等于162KB？

Answer 1

通过减小图片的DPI值，会大幅度降低存储空间。用PS处理一次。

追问

谢谢。能简单分享下实现源码吗？

追答

我现在不搞Delphi了，所以代码不方便。这样：
1、先建立一个空的jpeg，并且配置参数将DPI设置为72；
2、将现在的图片copy过去；
3、保存

追问

好，重在思路。已非常感谢！

追答

1、这个应该比较好实现，这个在CSDN里面去看看：“Jpeg图片属性读取EXIF ”
2、
jpg : TJpegImage;
begin
jpg :=
TJpegImage.Create;
jpg.xxx看看这里能设PDI吗？
jpg.LoadFromFile ( 'a.jpeg' );
jpg.save();