请问如何在初始化的时候重数据库中读取这个图片，给我代码？如果可以我马上结贴！

Question

请问如何在初始化的时候重数据库中读取这个图片，给我代码？如果可以我马上结贴！如何从数据库中读取图片并让其在image1上显示。我给50分

Answer 1

数据集的AfterScroll中写上Image1.Picture.Assign(TBlobField(Table1.FieldByName('Photo')));

Answer 2

procedure TmainForm.LoadPicFromDB;
var
   Jpgpic:TJPEGImage;
   photostream:TMemoryStream;
begin
   if not adotable1.FieldByName('img').IsNull then
   begin
      try
      Jpgpic:=TJPEGImage.Create ;
      photostream:=TMemoryStream.Create ;
      TBlobField(adotable1.FieldByName('img')).SaveToStream(photostream);
      photostream.Seek(0,soFromBeginning);
      Jpgpic.LoadFromStream(photostream);
      image1.Picture.Assign(Jpgpic);
      photostream.Free ;
      Jpgpic.Free;
      except
      photostream.Free ;
      Jpgpic.Free;
      image1.Picture:=image2.Picture ;   //image2里放的是一个空白jpg图片
      end;
   end
   else
      image1.Picture:=image2.Picture ;

Answer 3

老兄们我要的是窗体初始化时，image1中可以显示数据库中的第一条记录中的CorpSign字段
类型为image，怎么读取，我给100分，快点，快点