将数据库中bmp图片显示在image上

Question

如何将数据库中bmp图片显示在image上,手头没有任何资料,所以具体代码忘记了.我用adocommand控件查找对象:
datamodule1.ADOCommand1.commandtext:='select from original where number='+5;
后续代码请赐教!

Answer 1

或用dxdbgrid控件,可以grid中显示图像

Answer 2

用dbimage必须点击数据行,然后才能显示相对应图像,我想在formcreate时自动显示一行数据里的图像信息,要直接用代码如何实现?

Answer 3

用dbimage
或者用image picture的loadstream (或者是loadfromstream,忘了)

Answer 4

var    bs: Tstream;
        jpg: Tjpegimage;begin
  //从数据库中读取
  .....
        bs := createblobstream(fieldbyname('面像'), bmRead);
        bs.Position :=0;
        if bs.size > 0 then
        begin
            jpg := Tjpegimage.Create;
            jpg.LoadFromStream(bs);
            ImgFace.Picture.Bitmap.Assign(jpg);
            jpg.Free;
        end
        else
        begin
            imgface.Picture.Bitmap := nil;
            imgface.Refresh;
        end;
        bs.Free;  
  
  end;

Answer 5

datamodule1.ADOQuery1.Close;
      datamodule1.ADOQuery1.SQL.Clear;
      datamodule1.ADOQuery1.SQL.Add('select * from originality where number='+reg2.readstring('backframe'));
      datamodule1.ADOQuery1.Open ;
      image1.Picture.bitmap.assign(datamodule1.ADOquery1.fieldbyname('picture'));