在Delphi中怎样实现数据库中超长文本（包括表格与图片）字段的编辑与存取？

如不雅是图片可以用sql写入blob:

Query1.SQL.Add('

values

(:ABlobField)')

Query1.Parameters.ParamByName('ABlobField').LoadFromStream

(ABlobStream,

ftBLOB)

Query1.ExecSQL如不雅是文本也可以用sql写入memo:

Query1.SQL.Add('

insert

into

Table(BlobField)')

Query1.SQL.Add('

values

(:ABlobField)')

Query1.Parameters.ParamByName('ABlobField').LoadFromStream

(ABlobStream,

ftMemo)

Query1.ExecSQL重要都是把memo,blob(picture)转换成stream就行了

可以把你的图片框赋给ABlobStream

Query1.SQL.Add('

insert

into

Table(BlobField)')

更新之前根据数据库的存放虚拟路径去对应的文件夹删除此图片后。

file.delete("../"+dt.rows[0]["imgPath"].ToString())

然后更新图片虚拟路径即可。

update ss set imgpath='"+新的图片路径+"' where a=id

---