我原来在ACCESS数据库存放的图片是BMP格式，如何把它转换为JPG格式，用DBIMAGE显示JPG图片需要加些什么代码？ (50分)

我原来在ACCESS数据库存放的图片是BMP格式，如何把它转换为JPG格式，用DBIMAGE显示
JPG图片需要加些什么代码？

来自：vine, 时间：2002-11-26 15:52:00, ID：1461394
--------------------------------------------------------
//直接保存到JPG文件
//iQuality指图片质量
procedure SaveSrcToJPEGFile(const FileName:String;iQuality:integer);
var SrcWidth,SrcHeight:integer;
DC:HDC;
FBitmap:TBitmap;
FJPEGImage:TJPEGImage;
begin
DC:=GetDC(0);
FBitmap:=TBitmap.Create;
FJPEGImage:=TJPEGImage.Create;
try
SrcWidth:=Screen.Width;
SrcHeight:=Screen.Height;
FBitmap.Width :=SrcWidth;
FBitmap.Height:=SrcHeight;
BitBlt(FBitmap.Canvas.Handle,0,0,SrcWidth,SrcHeight,DC,0,0,SRCCOPY);
FJPEGImage.Assign(FBitmap);
FJPEGImage.CompressionQuality:=iQuality;
FJPEGImage.Compress;
FJPEGImage.SaveToFile(FileName);
finally
FBitmap.Free;
FJPEGImage.Free;
end;
end;

读出来,转换,存进去

http://懒虫007.delphibbs.com->资料

接受答案了.

我有一些尺寸各异的图片，用DBImage显示。如何使DBImage显示出全图，而又不变形？