procedure TForm1.FormCreate(Sender: TObject); 

  var 

  MyStream:Tmemorystream; 

  MyJPEG:TJpegImage; 

  begin 

  MyStream:=Tmemorystream.Create; 

  MyJPEG:=TJpegImage.Create; 

  try 

  TBlobField(adoquery1.FieldByName('img')).SaveToStream(MyStream); 


  MyStream.Position:=0; 

  MyJPEG.LoadFromStream(MyStream); 

  Image1.Picture.Assign(MyJPEG); 

  cxImage1.Picture.Assign(MyJPEG); 

  finally 

  MyStream.Free; 

  MyJPEG.Free; 

  end; 

  end; 


end. 


用了 两个图片控件，Timage，TcxImage。 

另外， 

注意： 

网上搜到的代码，对我都没有用，真的很受伤。 

它们在 

  Image1.Picture.Assign(MyJPEG); 

  cxImage1.Picture.Assign(MyJPEG);
 
这段代码上，是这样的 

 
  Image1.Picture.Graphic.Assign(MyJPEG);//对jpeg 

  cxImage1.Picture.Bitmap.Assign(MyJPEG);//对bmp

上面的代码没有对bmp图片试用。