如何将数据库中的图片记录分页显示出来？

Question

在数据库中存放着jpg图片，我要将图片分几页通过image组件上显示出来，其中
      Qry.Recordset.PageSize := 11;
      
      for i := 0 to Qry.Recordset.PageSize - 1 do begin                image1.Picture.Assign(Qry.RecordSet.Fields[3].value);
       ....
            Qry.Next;
            if Qry.RecordSet.EOF then exit;
        end;
[Error] Cp_Xs.pas(133): Incompatible types: 'TPersistent' and 'OleVariant'
如何转换这个类型

Answer 1

http://soft.56kc.com/FileDown.aspx?FID=168

Answer 2

你试试先将数据库中的图片写入TBlobStream中，再将该对象附给Image

Answer 3

image1.Picture.Assign(Qry.RecordSet.Fields[3].value);
===========================================================
如果没记错的话
应该是Image1.Picture.Bitmap.Assign(Qry.RecordSet.Fields[3].value.前提是：数据库中存储的类型是bmp图象，而不是jpg

Answer 4

我刚刚写完,就是左边一大堆小图片,右边一大图片,用image.picture.graphic.
分页就是用top或pagesize取了