如何将Timage控件中的图像储存到Access数据中去?

解决方案 »

  1.   

    var
      msStream:TMemoryStream;
    begin
      msStream := TMemoryStream.Create;
      msStream.Position := 0;
      Image1.Picture.Bitmap.SaveToStream(msStream);
      self.ADODataSet1.Append;
      (AdoDataSet1.FieldByName('CImage') as TBlobField).LoadFromStream(msStream);
      AdoDataSet1.Post;
      msStream.free;end;
      

  2.   

    存入数据库:Field.Assign(Picture.Graphic);
    读取图像:Picture.Assign(Field);
    建议使用<*.BMP>文件