在数据库中设一字段为BLOB类型,可以存各种文件,假设字段名为picture,fname为文件名
proceture TForm1.LoadBtnClick(sender:TObject)
var
stream1:TFileStream;
begin
with query1 do
begin
close;
SQL.clear;
Sql.add('select picture from table1');
open;
edit;
end;
stream1:=TFileStream.create(fname.fmOpenRead);
try
query1picture.LoadFromStream(stream1);
finally
stream1.free;
end;
query1.post;
end;
读取时可用同样的方法,用SaveToStream函数就可以了。