procedure TForm1.Button1Click(Sender: TObject);
var
st:tmemorystream;
begin
aq1.SQL.Text:='select id,wav from wen where id=1';
aq1.Active:=true; if aq1.FieldValues['id']=null then aq1.Insert else aq1.Edit; st:=tmemorystream.Create;
st.Clear;
st.LoadFromFile(ExtractFilePath(paramstr(0))+'1.wav'); tblobfield(Aq1.FieldByName('wav')).LoadFromStream(st); //写音频流到数据库 st.Free;
aq1.Post;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
st:tmemorystream;
begin
st:=tmemorystream.Create; //
st.Clear;
aq1.SQL.Text:='select wav from wen where id=1';
aq1.Active:=true; tblobfield(Aq1.FieldByName('wav')).SaveToStream(st); //读数据音频到流 //我的问题在这里开始------------------------------------------------ sndplaysound(pchar(st),SND_MEMORY and SND_ASYNC); //如何才能播放呢?如何才能播放呢?如何才能播放呢?我快疯了!!!
//当然不写入临时文件,在内存中播放声音的其它的方法也可以,拜托了!!!
//我的问题结束,谢谢----------------------------------------------
st.Free;
end;
var
st:tmemorystream;
begin
aq1.SQL.Text:='select id,wav from wen where id=1';
aq1.Active:=true; if aq1.FieldValues['id']=null then aq1.Insert else aq1.Edit; st:=tmemorystream.Create;
st.Clear;
st.LoadFromFile(ExtractFilePath(paramstr(0))+'1.wav'); tblobfield(Aq1.FieldByName('wav')).LoadFromStream(st); //写音频流到数据库 st.Free;
aq1.Post;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
st:tmemorystream;
begin
st:=tmemorystream.Create; //
st.Clear;
aq1.SQL.Text:='select wav from wen where id=1';
aq1.Active:=true; tblobfield(Aq1.FieldByName('wav')).SaveToStream(st); //读数据音频到流 //我的问题在这里开始------------------------------------------------ sndplaysound(pchar(st),SND_MEMORY and SND_ASYNC); //如何才能播放呢?如何才能播放呢?如何才能播放呢?我快疯了!!!
//当然不写入临时文件,在内存中播放声音的其它的方法也可以,拜托了!!!
//我的问题结束,谢谢----------------------------------------------
st.Free;
end;
解决方案 »
- 高分诚恳请教关于Delphi调java做的Webservice 的问题!!!
- 想实现在 cxGrid 中,能够动态控制列是否显示,代码有点问题
- 请教高手用Delphi如何把WORD格式文件中的数据到如到EXCEL中
- 在SQL数据库查询过程中如何ProgressBar进度条显示查询过程
- FxCube就是DecisionCube2。0怎么用啊,分不够再加啊
- 请问为数据库增加记录时,DBGrid自动换行的问题?
- 创建表的问题!
- 窗体采用ShowModal属性的时候有些东西没办法实现
- 请教:怎样判断一个菜单是处于“打开”还是“关闭”的状态?
- 请问哪位大侠知道如何使用TeamSource??谢谢!!
- Delphi有什么控件可以放大缩小图片?
- 在一个程序里控制另一个程序最大化和最小化的问题?
var hFind, hRes: THandle;
Song: PChar;
begin
hFind := FindResource(HLib, PChar(SoundName), 'WAVE');
if (hFind <> 0) then begin
hRes := LoadResource(HLib, hFind);
if (hRes <> 0) then begin
Song := LockResource(hRes);
if Assigned(Song) then SndPlaySound(Song, snd_ASync or snd_Memory);
UnlockResource(hRes);
end;
FreeResource(hFind);
end;
tblobfield(Aq1.FieldByName('wav')).SaveTofile('d:\a.wav');
PlaySound('d:\a.wav',0, SND_ASYNC);