zoukankan      html  css  js  c++  java
  • delphi 播放语音

    unit Unit1;
    
    interface
    
    uses
      Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
      Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,
      SpeechLib_TLB;
    
    type
      TForm1 = class(TForm)
        Edit1: TEdit;
        Button1: TButton;
        procedure Button1Click(Sender: TObject);
        procedure FormCreate(Sender: TObject);
        procedure FormDestroy(Sender: TObject);
      private
        { Private declarations }
        procedure PlaywavByStrs(pvWavStr: string; SVSFlagsAsync: Integer);
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
      fVoce: ISpeechVoice;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      PlaywavByStrs(Edit1.Text, 0);
    end;
    
    procedure TForm1.FormCreate(Sender: TObject);
    begin
      fVoce := CoSpVoice.Create;
      fVoce.Resume;
    end;
    
    procedure TForm1.FormDestroy(Sender: TObject);
    begin
      fVoce._Release;
    end;
    
    procedure TForm1.PlaywavByStrs(pvWavStr: string; SVSFlagsAsync: Integer);
    begin
      if fVoce.Status.RunningState = SRSEDone then
        fVoce.Speak(pvWavStr, SVSFlagsAsync);
    end;
    
    end.

    需要引用SpeechLib_TLB.pas 文件

  • 相关阅读:
    [BZOJ 4710] 分特产
    洛谷 P4827 [国家集训队] Crash 的文明世界
    Test 7.12 T2
    [洛谷 P1377] TJOI2011 树的序
    [洛谷 P1013] NOIP1998 提高组 进制位
    ajax2
    Ajax
    javascript下兼容都有哪些
    获取类名 封装 getStyle
    作用域
  • 原文地址:https://www.cnblogs.com/yangxuming/p/10281459.html
Copyright © 2011-2022 走看看