图片文件转换(100分)

各位大侠怎样通过程序将JPG格式文件转换成BMP格式文件

function Jpg2Bmp(Jpg: TJpegImage): TBitmap;
begin
Result := nil;
if Assigned(Jpg)
then begin
Result := TBitmap.Create;
Jpg.DIBNeeded; {Key method...}
Result.Assign(Jpg); {Its all folks...}
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
(*压缩MBP为JPEG;但是没有提供压缩比可选项
凑合用吧，大概1/3 ^_^:
Note:必须加上JPEG到Uses单元
*)
var
MyJPEG : TJPEGImage;
MyBMP : TBitmap;
begin
MyBMP := TBitmap.Create;
with MyBMP do
try
LoadFromFile('e:/lm.BMP'); //你的图片位置
MyJPEG := TJPEGImage.Create;
with MyJPEG do begin
Assign(MyBMP);
CompressionQuality:=10; //压缩比例
Compress;
SaveToFile('e:/lm01.JPEG');//保存路径……
Free;
end;
finally
Free;
end;
end;



--------------------------------------------------------------------------------


By Luiz Vaz - luiz.vaz@arinso.com.br

function Bmp2Jpg(Bmp: TBitmap; Quality: Integer = 100): TJpegImage;

begin

Result := nil;

if Assigned(Bmp)

then begin

Result := TJpegImage.Create;

Result.Assign(Bmp); {Its all folks...}

Result.CompressionQuality := Quality;

Result.JPEGNeeded; {Key method...}

Result.Compress;

end;

end;



function Jpg2Bmp(Jpg: TJpegImage): TBitmap;

begin

Result := nil;

if Assigned(Jpg)

then begin

Result := TBitmap.Create;

Jpg.DIBNeeded; {Key method...}

Result.Assign(Jpg); {Its all folks...}

end;

end;



注意：JPEGNeeded过程转换并存储图像数据到内部的JPEG数据。我们无法直接存取JPEG 内部数据，因为D5并没有提供jpeg.pas单元的源码。但是可以通过JPEGNeeded和DIBNeeded过程来操作它。

///Bitmap 和 JPEG 格式间的快速转换
function BmpToJpg(Bmp: TBitmap; Quality: Integer = 100): TJpegImage;
begin
Result := nil;
if Assigned(Bmp)
then begin
Result := TJpegImage.Create;
Result.Assign(Bmp); {It′s all folks...}
Result.CompressionQuality := Quality;
Result.JPEGNeeded; {Key method...}
Result.Compress;
end;
end;
function JpgToBmp(Jpg: TJpegImage): TBitmap;
begin
Result := nil;
if Assigned(Jpg)
then begin
Result := TBitmap.Create;
Jpg.DIBNeeded; {Key method...}
Result.Assign(Jpg); {It′s all folks...}
end;
end;

接受答案了.