我用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;
死机现象,而且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;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货