将image控件中的图片保存为JPEG格式(200分)

如题？？？？

用倥件吧

Image1.Picture.SaveToFile('c:/1.jpeg')
Image1.Picture.SaveToFile('c:/1.jpg')

简单例子：
uses Jpeg;
Var
JPEGImage: TJPEGImage;
begin
JPEGImage := TJPEGImage.Create;
JPEGImage.Assign(Image1.Picture.Bitmap);
JPEGImage.Compress;
JPEGImage.SaveToFile('你的文件');
JPEGImage.Free;
end;

to:sword_liu
这样保存的结果只是文件扩展名的变化，实际图片内容没有压缩，
to: all
尽量少用第三方控件

[]，我的代码用第三方控件了吗？
况且我的是举例，其它参数应该你自己去设置了。

yostgxf 的方法是正确的 可以使用

这有一个将其它任意格式图片转为BMP的例子，你请参考一下，或许有用：
摘自《中文开发在线》www.codelphi.com
-------------------------------------------------------------------------
把任意格式图象转化为windows位图格式
zoluo


摘　要：用最最简单的函数使TPicture类中注册的任意格式图象转化为windows位图格式
关键字：图象格式转换
类　别：图形


一个最最简单的函数把任意格式图象转换为Windows位图格式:


function GraphicToBitmap(P :TPicture) :TBitmap;begin Result :=TBitmap.Create; with Result do begin Width :=P.Width; Height :=P.Height; Canvas.Draw(0,0,P.Graphic); end;end;


使用该函数,可以把所有注册到Delphi的TPicture类中的任意格式图象转换为Windows位图格式,
使你永远不用再操心图标文件(.Ico)、元文件(.wmf或.emf文件)等等何转换为.bmp格式了。
我喜欢这样做，不喜欢人家告诉我.ico如何转化为.bmp以及.wmf、.emf、.gif、.jpg等等如何
转化为.bmp。实际上，读者可以编写类似的其他图象转换函数,实现多对一的图象转换函数。
试试吧，不会让你失望的。

投稿人：zoluo　投稿日期：2001-11-14 3:23:00
-------------------------------------------------------------------------

多人接受答案了。

yostgxf的方法就是了....
但記得要uses jpeg啊