大大： 参考了论坛上一些资料，我尝试把数据库中BLOB字段中存储的位图显示在image中，执行后为什么没有显示？  

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    ADOConnection1: TADOConnection;
    ADODataSet1: TADODataSet;
    Image1: TImage;
    ADODataSet1OBJBMP: TBlobField;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.BitBtn1Click(Sender: TObject);
var
  Stream1: TMemoryStream;
  ObjBmp: TBitMap;
begin
  stream1 := TMemoryStream.Create;
  ObjBmp := TBitMap.Create;
  ADODataSet1OBJBMP.SaveToStream(stream1);
//     TBlobField(ADODataSet1OBJBMP as TBlobField).SaveToStream(stream1);
  objbmp.LoadFromStream(stream1);
  image1.Picture.Assign(objbmp);
  objbmp.Free;
  Stream1.Free;
end;
 

谢谢！

Hi zzmbeyond01,    不知你是用何種型態的圖形，若是 JPEG，請參考站長大作:    http://delphi.ktop.com.tw/topic.php?TOPIC_ID=19505 若是 BMP 檔，直接使用 DBImage 元件即可。 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

oracle数据库中是以bmp位图形式存储的图片 DBImage 元件可以实现显示 我主要目的是想将数据库中的图片作为Combobox下拉框中各条目的图片进行显示，或者是在位图bitbtn按钮中的位图显示。 發表人 - zzmbeyond01 於 2004/06/25 18:18:32

大大：    为什么我把图片保存为本地bmp图片后，才可以显示出来，而用内存流的 方法却没有显示呢？  

     procedure TForm1.BitBtn1Click(Sender: TObject);
var
  Stream1: TMemoryStream;
  ObjBmp: TBitMap;
  pic: TPicture;
begin
  stream1 := TMemoryStream.Create;
  ObjBmp := TBitMap.Create;
  ADODataSet1OBJBMP.SaveToFile('.\onusingbuild.bmp');
  objbmp.LoadFromFile('.\onusingbuild.bmp');
  image1.Picture.Assign(objbmp);

用TADOBlobStream即可！