加入jpeg 单元
uses jpeg;
var
jpg: TJPEGImage;
bmp: TBitmap;
begin
bmp := Tbitmap.Create;
bmp.assign(image1.Picture.Bitmap);
jpg := TJPEGImage.Create;
Jpg.assign(bmp);//jpg assign (‘复制‘)bmp图
jpg.SaveToFile('temp.jpg');//就是jpg格式
jpg.Free;
bmp.Free;
uses jpeg;
var
jpg: TJPEGImage;
bmp: TBitmap;
begin
bmp := Tbitmap.Create;
bmp.assign(image1.Picture.Bitmap);
jpg := TJPEGImage.Create;
Jpg.assign(bmp);//jpg assign (‘复制‘)bmp图
jpg.SaveToFile('temp.jpg');//就是jpg格式
jpg.Free;
bmp.Free;
解决方案 »
- 动态调用dll释放内存的问题
- 我公司赞助个人编程网站
- 大家认为together for delphi什么时候会出?欢迎讨论,人人有分
- 为何delphi6的demo--MailClient无法发送附件
- 请问如何在不提示的情况下安装Activex组件
- 有没有人用Virtual Treeview
- 在直接继承TImage的自定义控件中override Paint事件,为什么在paint中陷入循环?
- 初登宝地有一问困惑良久。
- 再次鼓励delphi fans与盒饭s ,发图一张,里程碑纪念一下
- 各位DELPHI爱好者,我用stringgrid编辑数据,当单击某个单元格时在dbgrid中显示出有关这个单元格数据的详细信息,我该怎么做?大家帮帮我,谢谢!
- 可否将INI文件的某一小节的字段和值删除?
- pascal到底是一种什么语言?
如果要改变图片分辨率,可以搜索一下,我以前有一个贴子。