摘自
http://www.delphibbs.com/delphibbs/dispq.asp?lid=737517
五、从数据库读取文件到本地硬盘和从本地硬盘读取文件到数据库
在数据库上使用Image二进制字段保存，使用Stream流的方式。
创建文件流：
Word_FileStream:=TFileStream.Create(Target_Name,fmOpenWrite or fmCreate);
Word_FileStream.Position:=0;
保存到数据库的Image字段：
TBlobField(AdoQuery1.FieldByName(Column_Name)).SaveToStream(Word_FileStream);
从数据库读取文件到本地硬盘：
TBlobField(ADOQuery1.FieldByName(Column_Name)).loadfromStream(Word_FileStream);
释放文件流：
Word_FileStream.Free;
