用dbExpress组件在数据库中存取文件

准备步骤：

1。添加名为conn1的TSQLConnection和名为sqlqry的TSQLQuery这两个组件。设置conn1的Connection Name属性为OracleConnection（我用的是Oracle数据库)，设置DataBase为数据库所在服务器ip,如：192.168.1.100，User_name为数据库的用户,还有Password。

2。把sqlqry的SQLConnection属性设置为conn1。

————开始文件的存取————

1. 存到数据库：

{1。创建文件流: }
fs := TFileStream.Create('c:/1.doc',fmOpenRead);

{2。   写SQL语句:}
sqlqry.sql.text := 'insert into mytable (xh,docFile) values (1,:wj)';

{3。  把文件流导入:}
sqlqry.parambyname('wj').LoadFromStream(fs,ftBlob);

{4。   运行SQL语句:}
sqlqry.ExecSQL;

2.从数据库取：

//1。写SQL语句：
sqlqry.sql.text := 'select docwj from mytable where xh = ''1''';

//2。运行SQK语句：
sqlqry.Open;

//3。写入文件：
TBlobField(sqlqry1.FieldByName('docFile')).SaveToFile('c:/2.doc');