我要把*.jpg图片文件转化为*.bmp 文件(100分)

我要把*.jpg图片文件转化为*.bmp 文件

procedure TForm1.Button1Click(Sender: TObject);
var
BMP:TBitmap;
JPG:TJPEGImage;
begin
JPG:=TJPEGImage.Create;
try
JPG.LoadFromFile('c:/aa.jpg');
BMP:=TBitmap.Create;
try
BMP.Assign(JPG);
BMP.SaveToFile('c:/aa.bmp');
finally
BMP.Free;
end;
finally
JPG.Free;
end;
end;

另外,要在uses中加入JPEG單元.

procedure TForm1.Button1Click(Sender: TObject);
var
MyJpeg: TJpegImage;
Mybmp: Tbitmap;
MyImage1: string;
begin
MyJpeg := TJpegImage.Create;
Mybmp := Tbitmap.Create;
if not FileExists(Edit1.Text)
then
begin
Application.MessageBox('您没有选择,或所选择的.JPEG(JPG)文件不存在，请重新选择!', '信息', MB_ICONINFORMATION + MB_OK);
exit {如果不能打开.JPEG图像文件则报告错误,并退出,不在进行下面的操作}
end
else
begin
if (Edit2.Text = '') then
begin
Application.MessageBox('您没有给这个新的.BMP文件起名,程序将自动为它命名', '信息', MB_ICONINFORMATION + MB_OK);
{如果发现Edit4的Text属性为空,则则报给出提示信息,但将继续执行}
MyImage1 := ChangeFileExt(Edit1.Text, '.bmp'); {新文件取Eeit1.Text为文件名}
end
else
MyImage1 := copy(edit2.text, 1, pos('.jpg', edit2.text)) + '.bmp'; {新文件名取Eeit4的TEXT做为文件名}
end;
try
MyJpeg.LoadFromFile(Edit1.Text);
Mybmp.Assign(myjpeg);
Mybmp.SaveToFile(MyImage1);
finally
Mybmp.free;
MyJpeg.free;
end;
end;

agree

同意

bitmap对象.assign(TjpegImage对象)
就ok了

看一下我的源码：
http://www.playicq.com/dispdocnew.php?t=27&id=3701

同意

谢谢，我明白了，就是不知道
BMP:TBitmap;
JPG:TJPEGImage;
MyJpeg := TJpegImage.Create;
Mybmp := Tbitmap.Create;
是怎么解释的？

這是調用對像的構造方法,用來創建對像.基礎的東西.

gif是什么图象类型???