下面的代码是把图片在装入dbimage 中 并修改他的大小
(ExtractFileExt(opendialog.filename)='.JPG') then
begin
ajpeg:=Tjpegimage.Create ;
ajpeg.PixelFormat :=jf24Bit;
ajpeg.LoadFromFile(opendialog.filename);
if ajpeg.Width >dbimager1.Width then
begin
bmp2:=Tbitmap.Create ;
bmp2.Assign(ajpeg); //把jpeg 图像转入bmp中
bmp:=Tbitmap.Create ;
bmp.Width :=round(bmp2.Width/1.2);
bmp.Height :=round(bmp2.Height/1.2); //1.2是你想改变的比例
StretchBlt(bmp.Canvas.Handle,0,0,bmp.Width,bmp.Height,bmp2.Canvas.Handle,0,0,bmp2.Width,bmp2.Height,SRCCOPY);
ajpeg.Assign(bmp); //栽入
dbimager1.Picture.bitmap.assign(ajpeg); //show
bmp2.Free;
bmp.Free;