保存文件的方式:
1、存文件入数据库
with Query do
begin
Close;
Sql.Clear;
Sql.Add('INSERT INTO Table VALUE(:sFileName,:sFileContent)');
ParamByName('sFileName').AsString := OpenDialog.FileName;
ParamByName('sFileContent').LoadFromFile(OpenDialog.FileName,ftBlob);
ExecSQL;
end;2、从数据库中取出文件
with Query do
begin
Close;
Sql.Clear;
Sql.Add('SELECT * FROM Table');
Open;
(FieldByName('sFileContent') AS TBlobField).SaveToFile (FieldByName('sFileName').AsString);
end;
然后你根据文件用播放程序就可以了。。
1、存文件入数据库
with Query do
begin
Close;
Sql.Clear;
Sql.Add('INSERT INTO Table VALUE(:sFileName,:sFileContent)');
ParamByName('sFileName').AsString := OpenDialog.FileName;
ParamByName('sFileContent').LoadFromFile(OpenDialog.FileName,ftBlob);
ExecSQL;
end;2、从数据库中取出文件
with Query do
begin
Close;
Sql.Clear;
Sql.Add('SELECT * FROM Table');
Open;
(FieldByName('sFileContent') AS TBlobField).SaveToFile (FieldByName('sFileName').AsString);
end;
然后你根据文件用播放程序就可以了。。
解决方案 »
- fsAlwaysontop,setwindowpos(...hwnd_topmost) 均无效果
- 有人遇到过一个ADO的问题吗,用了ADO就报错,不用就正常
- 老问题,一个函数返回两个不同类型的值
- 高手请进,调制解调器(moden)问题
- radiogroup中如何控制可选项目
- 高手进阶
- Delphi的数据库连接控件那么多?哪个比较好一点?
- 注册表问题?
- 求助:SQL语句中采用变量的问题
- 请问 updatesql 能不能想query一样设置 params 参数,如果能,怎样设置
- 帮忙给出一个网络传输的最佳方案?
- 我打开一个TXT文本,想读取其中的内容,只有一行内容,可fileread怎么读不出内容,
要读的时候可以写一个临时文件来打开。