如何把声音录到数据库中 我要用录音机(或随生听)把磁带里的内容保存到数据库中,应该怎么做请各位不吝赐教 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 OLE先录好在放进数据库,然后删除录的文件就是借用一下临时文件而已 先保存录音文件,然后再var sCommandLine: string; bCreateProcess: boolean; lpStartupInfo: TStartupInfo; lpProcessInformation: TProcessInformation; MemSize: Integer; Buffer: PChar; MyFile: TFileStream; Stream: TADOBlobStream; RegF:TRegistry;begin dataset.Close; dataset.commandtext:='select * from 二进制文档 where 来源=''' +sourcetablename+''' and 来源id='+inttostr(sourceid); dataset.open; if not dataset.eof then dataset.Edit else begin dataset.close; dataset.commandtext:='select * from 二进制文档'; dataset.open; dataset.append; end; dataset.FieldValues['来源']:=sourcetablename; dataset.FieldValues['来源id']:=sourceid; MyFile:=TFileStream.Create(ExtractFilePath(Application.EXEName)+'temp.wav',fmOpenRead); Stream := TADOBlobStream.Create(dataset.FieldByName('内容') as TBlobField, bmWrite);{‘Doc’为BLOB字段名} MemSize := MyFile.Size; Inc(MemSize);//增加的一字节给结尾的null Buffer := AllocMem(MemSize); try Stream.Seek(0, soFromBeginning);//流指针位置放到最前 MyFile.Read(Buffer^,MemSize); Stream.Write(Buffer^,MemSize); finally MyFile.Free; Stream.Free; end; dataset.post; dataset.close;end; 服务进程接收消息通知 请教StringGrid问题 为什么新建的 Access表 会查不到? 咨询关于DELPHI进行WEB SERVICE客户端编程的问题 如何用DELPHI代码实现创建SQL SERVER 数据库及表 啊~~~~~~ 散分 如何用delphi来对word文档进行分割? 怎样在 win2000 下调用系统拨号连接 求助有关FastReport报表问题,致谢重谢!!! 一个多层数据库方面的怪问题! Kingron(单身走我路……) ,你给我听着..... 各位不好意思,前段时间大紧,所以有的贴没有及时结,请大家原谅。现在全结散分100
先录好在放进数据库,然后删除录的文件
就是借用一下临时文件而已
sCommandLine: string;
bCreateProcess: boolean;
lpStartupInfo: TStartupInfo;
lpProcessInformation: TProcessInformation;
MemSize: Integer;
Buffer: PChar;
MyFile: TFileStream;
Stream: TADOBlobStream;
RegF:TRegistry;
begin
dataset.Close;
dataset.commandtext:='select * from 二进制文档 where 来源=''' +sourcetablename+''' and 来源id='+inttostr(sourceid);
dataset.open;
if not dataset.eof then
dataset.Edit
else begin
dataset.close;
dataset.commandtext:='select * from 二进制文档';
dataset.open;
dataset.append;
end;
dataset.FieldValues['来源']:=sourcetablename;
dataset.FieldValues['来源id']:=sourceid;
MyFile:=TFileStream.Create(ExtractFilePath(Application.EXEName)+'temp.wav',fmOpenRead);
Stream := TADOBlobStream.Create(dataset.FieldByName('内容') as TBlobField, bmWrite);{‘Doc’为BLOB字段名}
MemSize := MyFile.Size;
Inc(MemSize);//增加的一字节给结尾的null
Buffer := AllocMem(MemSize);
try
Stream.Seek(0, soFromBeginning);//流指针位置放到最前
MyFile.Read(Buffer^,MemSize);
Stream.Write(Buffer^,MemSize);
finally
MyFile.Free;
Stream.Free;
end;
dataset.post;
dataset.close;
end;