matlab bytes转音频 matlab文本转语音播放

利用微软自带的TTS(txt to speech)将输入的文本转化为语音并播放的com组件，例如实现'欢迎关注工科男的Matlab学习日志’。由于调用的是微软的com组件故本程序只能在windows系统上运行。

接下来主要编写txt2speech函数

txt2speech函数

function  txt2speech(txt,voice,pace,fs)
if ~ispc, error('要求使用Microsoft Win32 SAPI .');
end
if ~ischar(txt), error('第一个参数是字符串.');
end
SV = actxserver('SAPI.SpVoice');
TK = invoke(SV,'GetVoices');
if nargin > 1
    for k = 0:TK.Count-1
        if strcmpi(voice,TK.Item(k).GetDescription)
            SV.Voice = TK.Item(k);
            break;
        elseif strcmpi(voice,'list')
            disp(TK.Item(k).GetDescription);
        end
    end
end
if nargin > 2
    if isempty(pace), pace = 0;
    end
    if abs(pace) > 10, pace = sign(pace)*10;
    end
    SV.Rate = pace;
end
if nargin < 4 || ~ismember(fs,[8000,11025,12000,...
        16000,22050,24000,32000,44100,48000]), fs = 16000;
end
if nargout > 0
    MS = actxserver('SAPI.SpMemoryStream');
    MS.Format.Type = sprintf('SAFT%dkHz16BitMono',fix(fs/1000));
    SV.AudioOutputStream = MS;
end
invoke(SV,'Speak',txt);
end