IMAGE与QRDBIMAGE中显示的图片大小不一样，变型了，何解？
好久没来CSDN发问题了。
if image1.picture.Graphic <> nil then //避免image1中无图像保存出错
begin
strm := tmemorystream.Create ;
try
image1.Picture.Graphic.SaveToStream(strm);
strm.Position:=0;
tblobfield(adotable1.FieldByName( '样带 ')).LoadFromStream(strm);
adotable1.FieldByName( 'isbmp ').Value := 1; //BMP型图像数据
finally
strm.Free ;
end;
将IMAGE1中的图片保存到ACCESS数据库中。以BMP的格式。
//样带显示
strm := tadoblobstream.Create(tblobfield(adotable1.fieldbyname( '样带 ')),bmread);
try //try1
strm.position :=0;
image1.Picture.Graphic := nil; //清除图像
// BMP、JPEG两种图像数据必需分别处理
if adotable1.fieldbyname( 'isbmp ').AsBoolean =true then //BMP型图像数据
begin //begin11
bitmap := tbitmap.Create ;
try //try11
bitmap.LoadFromStream(strm);
adminhome2.Form4.image1.Picture.Graphic := bitmap;
finally
bitmap.Free;
end; //end try11
end //end begin11
else
if adotable1.fieldbyname( 'isbmp ').AsBoolean =false then //JPEG型图像数据
begin //begin12
jpegimage := tjpegimage.Create ;
try //try12
jpegimage.LoadFromStream(strm);
image1.Picture.Graphic := jpegimage;
finally
jpegimage.Free ;
end; //end try12
end; //end begin12
finally
strm.Free ;
end; //end try1
将ACCESS中的图片读出到IMAGE1中。没问题。
QRDBImage1.DataField:= '样带 ';
在QREPORT中的QRDBIMAGE1中显示图片，出现图片被放大了。
在QRDBIMAGE1的CENTER：=FALSE；STRETCH：=FALSE；没问题吧。
但为什么会放大，我想在报表打印的图片是原图。因为我的图片是通过扫描的，所以要保证图片的真实性，不能被放大。。。
有人遇到这情况吗。怎么解决？
谢谢。
回复人：yonge23(东方一剑) () 信誉：100 2007-7-24 20:26:06 删除
为什么没人解答？
回复人：yonge23(东方一剑) () 信誉：100 2007-7-24 23:36:08 删除
这儿怎么人气这么差。好久没来了。
回复人：qjinshanq() () 信誉：100 2007-7-25 9:20:33 删除
看看是不是把image的stretch设置为true了,如果想要根据图片的大小来显示,可以先取得图片的尺寸,然后设置image或DBimage的大小,然后才显示
回复人：yonge23(东方一剑) () 信誉：100 2007-7-25 10:01:53 删除
image或DBimage的stretch都已经设置为false,郁闷。
回复人：yonge23(东方一剑) () 信誉：100 2007-7-25 17:24:15 删除
？
回复人：yonge23(东方一剑) () 信誉：100 2007-7-26 12:57:58 删除
郁闷都三天了，还没解决呀。
还没解决就不能连续回复三次。石沉大海了。
[解决办法]
你把QuickReport设置成按比例显示
