盒子论坛 v2.1

不知怎么弄了,请高人有空出手

{setSpeechRate : 设置语速。1.0正常语速；0.5慢一半的语速；2.0；快一倍的语速。
setPitch : 设置音调。1.0正常音调；低于1.0的为低音；高于1.0的为高音。
speak : 开始对指定文本进行语音朗读。
synthesizeToFile : 把指定文本的朗读语音输出到文件。
stop : 停止朗读。
shutdown : 关闭语音引擎。
isSpeaking : 判断是否在语音朗读。
getLanguage : 获取当前的语言。
getCurrentEngine : 获取当前的语音引擎。
getEngines : 获取系统支持的所有语音引擎。
tts.setPitch()          //音调
tts.getEngines ;         //取得引擎
tts.setDefaultEngine(10);  //设置引擎
tts.setSpeechRate()      //语速
          //音量 .Volume
}
unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  Androidapi.JNI.TTS, FMX.StdCtrls, FMX.Layouts, FMX.Memo, AndroidAPI.JNIBridge,
  FMX.Controls.Presentation, FMX.ScrollBox,

  Androidapi.JNI.JavaTypes, FMX.Helpers.Android, Androidapi.JNI.GraphicsContentViewText,
  Androidapi.Helpers;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Memo2: TMemo;
    Button4: TButton;

    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button4Click(Sender: TObject);

   type
    TttsOnUtteranceCompletedListener = class(TJavaLocal, JTextToSpeech_OnUtteranceCompletedListener)
    private
      [weak] FParent : TForm1;
    public
      constructor Create(AParent : TForm1);
      procedure onUtteranceCompleted(utteranceID: JString); cdecl;
    end;

  type
    TttsOnInitListener = class(TJavaLocal, JTextToSpeech_OnInitListener)
    private
      [weak] FParent : TForm1;
    public
      constructor Create(AParent : TForm1);
      procedure onInit(status: Integer); cdecl;
    end;

  private
    { Private declarations }

    ttsListener : TttsOnInitListener;
    tts : JTextToSpeech;
    procedure SpeakOut;
  public
    { Public declarations }
    constructor Create(AOwner : TComponent); override;
    destructor Destroy; override;

  end;

var
  Form1: TForm1;
  CListener:JTextToSpeech_OnUtteranceCompletedListener;
  uID,J:JString;
  ttsOptions: JHashMap;
implementation

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
begin
  SpeakOut;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  tts := TJTextToSpeech.JavaClass.init(SharedActivityContext, ttsListener);
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  EnginesList:JList;
  I: Integer;
begin
  J:=tts.getDefaultEngine;
  Memo1.Lines.Add('默认Engine:'+JStringToString(J));

  EnginesList := TTS.getEngines;
  for I := 0 to EnginesList.size - 1 do
  begin
    Memo1.Lines.Add(JStringToString(EnginesList.get(I).toString));
  end
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
   //ttsOptions.put(TextToSpeech.Engine.KEY_PARAM_UTTERANCE_ID, "utterance");
end;

constructor TForm1.Create(AOwner: TComponent);
begin
  inherited;
  ttsListener := TttsOnInitListener.Create(self);
  CListener := TttsOnUtteranceCompletedListener.Create(self);
end;

destructor TForm1.Destroy;
begin
  if Assigned(tts) then
  begin
    tts.stop;
    tts.shutdown;
    tts := nil;
  end;
  ttsListener := nil;
  inherited;
end;

procedure TForm1.SpeakOut;
var
  text : JString;
begin
  text := StringToJString(Memo1.Lines.Text);
  tts.speak(text, TJTextToSpeech.JavaClass.QUEUE_FLUSH, nil); //JHashMap
  tts.setOnUtteranceCompletedListener(CListener);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
end;

{ TForm1.TttsOnInitListener }

constructor TForm1.TttsOnInitListener.Create(AParent: TForm1);
begin
  inherited Create;
  FParent := AParent
end;

procedure TForm1.TttsOnInitListener.onInit(status: Integer);
var
  Result : Integer;
begin
  if (status = TJTextToSpeech.JavaClass.SUCCESS) then
  begin
   result := FParent.tts.setLanguage(TJLocale.JavaClass.US);
   if (result = TJTextToSpeech.JavaClass.LANG_MISSING_DATA) or
      (result = TJTextToSpeech.JavaClass.LANG_NOT_SUPPORTED) then
     ShowMessage('This Language is not supported')
   else
   begin
     FParent.Button1.Enabled := true;
     FParent.button2.Enabled := false;
   end;
  end
  else
    ShowMessage('Initilization Failed!');
end;

constructor TForm1.TttsOnUtteranceCompletedListener.Create(AParent: TForm1);
begin
  inherited Create;
  FParent := AParent
end;

procedure TForm1.TttsOnUtteranceCompletedListener.onUtteranceCompleted(utteranceID: JString);
var
  Result : Integer;
begin
  //这里怎么写。。。
  form1.memo2.lines.add('Speak Over!');
end;

end.

此帖子包含附件:lyp8899_20181130124947.rar 大小:10.7K

----------------------------------------------
▄︻┻┳═

作者：

lyp8899 (lyp8899)	★☆☆☆☆	-
	盒子活跃会员

2018/11/30 12:51:56

1楼：

可参考这里:https://www.cnblogs.com/FKdelphi/p/4633779.html
----------------------------------------------
▄︻┻┳═

信息

登陆以后才能回复