1.请问怎样将音频文件写入数据库字段中,然后读出
2.请问怎样将一个word文档存入数据库字段中,然后读出
(它们应该是同一个问题,不懂,向高手求救)
2.请问怎样将一个word文档存入数据库字段中,然后读出
(它们应该是同一个问题,不懂,向高手求救)
解决方案 »
- 这一段代码用Delphi如何实现?
- 欢迎大家下载使用GCI32(General Communication Interface的缩写)
- ★★★ 庆祝结婚,散分纪念,欢迎捧场,谢谢! ★★★
- Delphi7如何卸载控件!?
- 请问按shift键和按ctrl键的事件分别是什么?
- 如何用ole技术实现两个word文档的合并?
- 如何使用DBGrid显示与之相连的DataSource中的一部分字段而不是全部?在线等待
- 请帮看一看,语法那里有错误!!!!
- 关于Dlphi网络编程中的TCustomWinSocket.SendStream的问题!!!!!!!
- InsideDelphi(ID)请回答:
- 随便看看吧。用delphi如何连接sql server7.0的数据库文件(*.mdf)?
- 程序优化问题
var
FStrm:TFileStream;
begin//把要入库文件(音频文件)存进数据库
if OpenDialog1.Execute then
begin
FStrm:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead);
if Not(Table1.State in [dsInsert,dsEdit]) then
Table1.Edit;
TBlobField(Table1.FieldByName('BlobFld')).LoadFromStream(FStrm);
Table1.Post;
FStrm.Free;
end;
end;procedure TForm1.SaveFileClick(Sender: TObject);
var
MStrm:TMemoryStream;
begin //把数据库存放的文件读出,并回存成一个文件以备操作!
if SaveDialog1.Execute then
begin
MStrm:=TMemoryStream.Create;
TBlobField(Table1.FieldByName('BlobFld')).SaveToStream(MStrm);
MStrm.SaveToFile(SaveDialog1.FileName);
MStrm.Free;
end;
end;