从access中取出流形式的.jpg图片在quickrep中用qrdbimage显示,大家帮我看看为什么没有图片显示出来???
f_view.QuickRep1.DataSet:= adoq1;
adoq1.Close;
adoq1.SQL.Clear;
adoq1.SQL.Add('select * from plant where zt=1');//取出图片不为空的记录集
adoq1.Open;
adoq1.First;
while not adoq1.Eof do
begin
jpg:= TJpegImage.Create;
bmp:=tbitmap.Create;
FMemoryStream:= TMemoryStream.Create;
TBlobField(ADOq1.FieldByName('pic')).SaveToStream(FMemoryStream);
FMemoryStream.Position:= 0;
jpg.LoadFromStream(FMemoryStream);
bmp.Assign(jpg); //把图片转化为bmp格式
f_view.QRDBImage1.Picture.Assign(bmp); //在QRDBImage1中显示图片(QRDBImage1是不是只能显示bmp的图片,不能显示jpg图片???)
jpg.Free;
bmp.free;
FMemoryStream.Free;
adoq1.Next;
end;
f_view.QuickRep1.DataSet:= adoq1;
adoq1.Close;
adoq1.SQL.Clear;
adoq1.SQL.Add('select * from plant where zt=1');//取出图片不为空的记录集
adoq1.Open;
adoq1.First;
while not adoq1.Eof do
begin
jpg:= TJpegImage.Create;
bmp:=tbitmap.Create;
FMemoryStream:= TMemoryStream.Create;
TBlobField(ADOq1.FieldByName('pic')).SaveToStream(FMemoryStream);
FMemoryStream.Position:= 0;
jpg.LoadFromStream(FMemoryStream);
bmp.Assign(jpg); //把图片转化为bmp格式
f_view.QRDBImage1.Picture.Assign(bmp); //在QRDBImage1中显示图片(QRDBImage1是不是只能显示bmp的图片,不能显示jpg图片???)
jpg.Free;
bmp.free;
FMemoryStream.Free;
adoq1.Next;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货