我想把图片文件写到数据库的image字段(数据类型是image类型)中。

解决方案 »

  1.   

    参数说明:
    img:你要显示图片的image。
    adoq:数据集。
    field:包含图片的字段。procedure savepicture(img: Timage; ADOQ: TADOQuery; field: string);
    var photo: Tmemorystream;
    begin
       photo := Tmemorystream.create;
       img.Picture.graphic.savetoStream(photo);
       Tblobfield(ADOQ.FieldByName(field)).loadfromstream(photo);
       photo.Clear;
    end;
      

  2.   

    也可参考:http://expert.csdn.net/Expert/topic/1226/1226344.xml?temp=8.094424E-02