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;

不好好看书的结果。

如何操作？