怎样把jpg图像再压缩,最好有详细一点的说明,up有分
有没有相应的空件?
有没有相应的空件?
解决方案 »
- 如何设计这样的功能:1分种内如果CPU利用率一直低于3%就认为机器已经处于空闲状态了,然后发出警报信息。
- 修改delphi英文报错提示问题(在线等待!)
- 急,请问怎样将一些控件放入一个TGroupbox中去,比如说一个button,其中button先放到一个Form里,当我把Groupbox放进去时,button被盖住了.
- delphi中如何將MENO清空,賦值
- 高级字符串问题
- 怎么将一个图象文件保存到另外一个文件夹里?
- 倾家荡产严重抗议, 我今天升的一个星怎么变成一个三角裤了
- 程序运行时,如果用户按下Ctrl+Alt+ Del 看不到我运行的程序如何实现??
- 菜问题:如何让hint显示文本框里的文字?
- 有什么方法可获得一个目录下面的全部文件名呢?
- 有什么方法可以向edit中添加年、月、日、几点、几分,而且是用户选择?
- ClassName为TStringGrid的控件(网格控件)我想用SendMessage(hwnd, WM_GETTEXT,length, 0)得到它内部单元格的值
然后重新调用压缩bmp文件为jpg的函数设置其压缩比率,进行压缩
然后重新调用压缩bmp文件为jpg的函数设置其压缩比率,进行压缩
如果想要继续压缩的话,嘿嘿,我是没办法的.
TJPEGImage *jp = new TJPEGImage();
Graphics::TBitmap *bit=new Graphics::TBitmap;
bit->Assign(Image1->Picture->Graphic);
jp->Assign(bit);
delete bit;
jp->CompressionQuality=20;//调节JPEG的图像质量,一般为65%,调节到20%时文件会小很多,但图像质量很差。:)
jp->Compress();
jp->SaveToStream(ms);
delete jp;
呵呵,瞎说的
如果既可以把文件压缩的很小,又能保证图像的质量,就不是JPG格式了。