?FMX下調用安卓TTS

標籤：?fmx下調用安卓tts

TextToSpeech的使用

官方Api地址：TextToSpeech

FMX下調用安卓TTS例子：

unit Main;interfaceuses  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Layouts,  FMX.Memo, FMX.StdCtrls, android.speech.tts, Androidapi.JNIBridge,  FMX.ScrollBox, FMX.Controls.Presentation;type  TFormMain = class(TForm)    ButtonSay: TButton;    Memo: TMemo;    Switch1: TSwitch;    Label1: TLabel;    procedure ButtonSayClick(Sender: TObject);    procedure FormCreate(Sender: TObject);  private    type      TOnInitListener = class(TJavaLocal, JTextToSpeech_OnInitListener)      private        [weak] FFormMain: TFormMain;      public        constructor Create(FormMain: TFormMain);        procedure onInit(Status: Integer); cdecl;      end;  private    OnInitListener: TOnInitListener;    TextToSpeech: JTextToSpeech;  public    { Public declarations }  end;var  FormMain: TFormMain;implementationuses Androidapi.Helpers, FMX.Helpers.Android;{$R *.fmx}constructor TFormMain.TOnInitListener.Create(FormMain: TFormMain);begin  inherited Create;  FFormMain := FormMain;end;procedure TFormMain.TOnInitListener.onInit(Status: Integer);begin  if Status = TJTextToSpeech_SUCCESS then    FFormMain.ButtonSay.Enabled := True;end;procedure TFormMain.ButtonSayClick(Sender: TObject);begin  if Switch1.IsChecked  then     textToSpeech.setPitch(0.1) // 設定音調，值越大聲音越尖（女生），值越小則變成男聲,1.0是常規  else     textToSpeech.setPitch(1.0); // 設定音調，值越大聲音越尖（女生），值越小則變成男聲,1.0是常規  TextToSpeech.speak(StringToJString(Memo.text), TJTextToSpeech_QUEUE_ADD, nil);end;procedure TFormMain.FormCreate(Sender: TObject);begin  OnInitListener := TOnInitListener.Create(Self);  TextToSpeech := TJTextToSpeech.JavaClass.init(SharedActivityContext, OnInitListener);end;end.

?FMX下調用安卓TTS