导入 SAPI.dll (不用手工寻找,直接已经在 import type library 列表中),
这个 DLL 在列表中的名字是 :Microsoft Speech Object Library [Version 5.1]。
点 inatall... Delphi 让你选择包的名字和存放位置,我选择 /bpl/Sapi_V51.dpk
然后 Delphi 自动建立 SpeechLib_TLB.pas 和编译这个包,默认将这个库中的 19 个
控件装到 ActiveX 页。19 个元件的注册情况如下:
procedure Register;
begin
RegisterComponents('ActiveX',[TSpObjectTokenCategory, TSpObjectToken, TSpMMAudioIn, TSpMMAudioOut,
TSpVoice, TSpSharedRecoContext, TSpInprocRecognizer, TSpSharedRecognizer, TSpLexicon,
TSpUnCompressedLexicon, TSpPhoneConverter, TSpTextSelectionInformation, TSpPhraseInfoBuilder, TSpAudioFormat,
TSpWaveFormatEx, TSpInProcRecoContext, TSpCustomStream, TSpFileStream, TSpMemoryStream]);
end;
建一个新项目,上面放一个TSpVoice 、Memo 和一个按钮,在 Memo 中写‘小雨哥’,在 Button 的 onClick 里写
procedure TForm1.Button1Click(Sender: TObject);
begin
SpVoice1.Speak(memo1.Lines.Text,0);
end;
就读出来了呀。