我用delphi6.0的多媒体组件播放.wav文件,播放第一是正常,播放下一个是出现
死机现象,而且delphi的运行不管作用,提示无法编辑一个输出文件到我的可执行程序,我是将一个blob字段存成一个文件后播放的,程序如下,请高手指点!
voice字段是blob,里面存的是wav资源,用到的多媒体组件是MediaPlayer
with cds do
begin
      open;
      if cds.FieldByName('voice').AsString<>'' then
      begin
        TBlobField(cds.FieldByName('voice')).SaveToFile('c:\play1.wav');
        MediaPlayer1.Close;
        MediaPlayer1.FileName:='c:\play1.wav';
        MediaPlayer1.Open;
        MediaPlayer1.Play;
      end else showmessage('没有录音内容!');
    end;
  finally
     if fileexists('c:\play.wav') then
        deletefile('c:\play.wav');
     MediaPlayer1.Close;
end;