因为我想保存图片,到数据库中(access)可是在access中没有找到那种图片的格式(问一下应该用那个格式?)
所以我没有办法只得将图片保存到运行程序所在的一个文件夹下,用getcurrentdirector得到当前的目录,而在数据库中保存图片的名称,这样也解决了问题,可以吗?
如果我想直接保存到数据库中,应该怎么做啊,用数据流的形式不知道怎么写

解决方案 »

  1.   

    ACCESS中字段用OLE对象可以保存图片格式!
      

  2.   

    procedure TfrmStaff.LoadPhoto(fn:string);
    var
      bmp1:Tbitmap;
      stream1:TMemorystream;
    begin
      bmp1:= Tbitmap.Create;
      bmp1.LoadFromFile(fn);
      stream1 := TMemorystream.Create;
      bmp1.SaveToStream(stream1);
      dm1.qryStaff.Edit;
      TBlobField(dm1.qryStaff.fieldbyname('photo')).LoadFromStream(stream1);
      bmp1.free;
    end;
      

  3.   

    你也可以使用TDBImage来保存与显示,具体看一看帮助文件就可以了.