关于用Image显示图象(30分)

菜鸟的问题又来了，如何利用image显示jpg格式的文件，好象在uses里面加jpg没有，老说
有错，我用的是dephi5，请教了，能否给点源码。

不需要再uses中加东西,设置image控件的picture属性即可.

设计期间，设置image控件的picture属性即可.
运行时的话，一定要uses jpeg。

问题解决，
还有如果在另外一个form里重新加栽，是否需要释放内存？
谢了。

delphi一般form.close事件里
最好加self.release;

多人接受答案了。

1、在USES中加上JPEG

// 将JPEG文件载入并在IMAGE1上显示出来
var
myjpeg:=tjpegimage;
.....
begin
myjpeg:=tjpegimage.create;
myjpeg.loadfromfile(*.jpg);// *.jpg是一个JPEG文件

image1.picture.bitmap.assign(myjpeg);
image1.refresh;
end
//将BMP转为JPEG
var
myjpeg:tjpegimage;
......
begin
myjpeg:=tjpegimage.create;
myjpeg.assign(image1.picture.bitmap);
myjpeg.compressionqulity:=80;// 此数值越小则图象越差，但文件越小
myjpeg.compress;
myjpeg.savetofile(*.jpg); // *.jpg为你要存盘的文件名
end