delphi+access 在开发MIS时如何存储图片?字段类型是什么了,能否给个示例!!!谢谢了,

解决方案 »

  1.   

    ole类型的就可以了,上google搜一下,有这样的例子
      

  2.   

    var
      bmp1,bmp2,bmp3,bmp4,bmp5,bmp6,bmp7 : Tbitmap;
      stream1,stream2,stream3,stream4,stream5,stream6,stream7 : TMemorystream;begin
      bmp1:= Tbitmap.Create;
      bmp1.LoadFromFile('E:\This Week\惠州无线资源管理项目\pictures\zuhezaixian2.bmp');  stream1 := TMemorystream.Create;
      bmp1.SaveToStream(stream1);
      adoquery1.Edit;
      TBlobField(adoquery1.Fields[0]).LoadFromStream(stream1);
      adoquery1.Post;end;