将一个jpg格式的图片文件转换为bmp格式的文件，如果直接将扩展名jpg改成bmp，在XP及以上的系统中能自动识别打开bmp文件，但在2000及以下的系统中就会提示格式错误，这段代码实现了jpg格式到bmp格式的转换，转换后的bmp文件在2000以下的系统中也能正确打开
procedure TForm1.JpgToBmp(const JpgFile, BmpFile: string);
var
jpg: TJPEGImage;
Bmp: TBitmap;
begin
jpg := TJPEGImage.Create;
Bmp := TBitmap.Create;
try
jpg.LoadFromFile(JpgFile);
Bmp.Assign(jpg);
Bmp.SaveToFile(BmpFile);
finally
jpg.Free;
Bmp.Free;
end;
end;
转换例子：
procedure TForm1.BitBtn1Click(Sender: TObject);
var
SFile, DFile: string;
begin
SFile := ExtractFilePath(Application.ExeName) + ’1.jpg’;
DFile := ExtractFilePath(Application.ExeName) + ’1.bmp’;
JpgToBmp(SFile, DFile);
end;
使用这段代码需要引用单元jpeg。
责任编辑：cyth
