请问如何用image实现存取图片(sql数据库),除了dbimage外,这种方法是否可行?

Question

如题!请详细一点!谢谢!!!

Answer 1

用内存流
var
  strm:tmemorystream;
  ext:string;
begin
  if image1.picture.Graphic <> nil then //避免image1中无图像保存出错
    begin
      //取出文件的扩展名
      strm := tmemorystream.Create ;
      try
        image1.Picture.Graphic.SaveToStream(strm);
        adoquery1.append;
        strm.Position :=0;
        tblobfield(adoquery1.FieldByName('照片')).LoadFromStream(strm);
        adoquery1.Post;
      finally
        strm.Free ;
      end;

Answer 2

tblobfield是字段对象，存储2进制数据。