#52002/5/30 16:51:26
试试下面这段代码
global gXSound --Audio Xtra的一个实例
global soundFileName --录制声音的文件位置
on CreateXSoundInstance --建立一个实例
if objectp(gXSound) then gXSound = 0 --判断实例是否存在,如果存在,将他删除
-- The creates an instance of the xtra
gXSound = new(xtra "audio", 0) --新建一个Audio Xtra的实例
soundFilename = the moviepath & "temp.wav" --将声音文件名设置为影片目录下的temp.wav
-- Clear any old scratch files
deleteSound(gXSound, "file", soundFilename) --将原有文件删除
r = setSoundType(gXSound, "file", soundFilename, "record") --以录音的方式打开文件
-- Set the color of the waveplot
-- Background = black, foreground = green
setForegroundColor(gXSound, 0, 255, 0) --设置声音数据分析图的前景色为绿色
setBackgroundColor(gXSound, 0, 0, 0) --设置声音数据分析图的前景色为黑色
end
on RecordSound
setSoundType(gXSound, "file", soundFilename, "record") --以录音的方式打开文件
record(gXSound) --录音
end
on PlaySound
setSoundType(gXSound, "file", soundFilename, "play")
play(gXSound)
end
on StopSound
stop(gXSound)
end
on PauseSound
pause(gXSound)
end
on ResumeSound
resume(gXSound)
end
on PlotSound
resolution = 0
timebase = 0
normalize = false
PlotWaveForm(gXSound, member "plotBitmap", 500, 200, resolution, timebase, normalize)
end