xe5 android tts(Text To Speech) [转]

TTS是Text To Speech的缩写，即“从文本到语音”，是人机对话的一部分，让机器能够说话。

以下代码实现xe5 开发的文本转语音的方法

和访问蓝牙一样，这里用javaclass的接口实现

接口声明部分：

{*******************************************************}

{                                                       }

{           CodeGear Delphi Runtime Library             }

{ Copyright(c) 2013 Jeff Overcash                       }

{                                                       }

{*******************************************************}

{ Delphi trnslation for TTS Android Java classes from                            }

{ http://developer.android.com/reference/android/speech/tts/package-summary.html }

unit Androidapi.JNI.TTS;

interface

uses Androidapi.JNIBridge,

  Androidapi.JNI.JavaTypes,

  Androidapi.JNI.Os,

  Androidapi.JNI.App,

  Androidapi.JNI.GraphicsContentViewText;

type

  {Forward declarations}

  JSynthesisCallback = interface; // android.speech.tts.SynthesisCallback

  JSynthesisRequest = interface; // android.speech.tts.SynthesisRequest

  JTextToSpeech = interface; // android.speech.tts.TextToSpeech

  JTextToSpeech_Engine = interface; // android.speech.tts.TextToSpeech$Engine

  JTextToSpeech_EngineInfo = interface; //android.speech.tts.TextToSpeech$EngineInfo

  JTextToSpeech_OnInitListener = interface; // android.speech.tts.TextToSpeech$OnInitListener

  JTextToSpeech_OnUtteranceCompletedListener = interface; // android.speech.tts.TextToSpeech$OnUtteranceCompletedListener

  JTextToSpeechService = interface; // android.speech.tts.TextToSpeechService

  JUtteranceProgressListener = interface; // android.speech.tts.UtteranceProgressListener

  JSynthesisCallbackClass = interface(IJavaClass)

    ['{3B30766E-A43B-4005-BE92-472CD075F325}']

  end;

  [JavaSignature('android/speech/tts/SynthesisCallback')]

  JSynthesisCallback = interface(IJavaInstance)

    ['{190C13DE-BC7E-44CE-94F6-4AF1A84A4612}']

    function audioAvailable(buffer: TJavaArray<byte>; offset: Integer; length: Integer): Integer; cdecl;

    function done: Integer; cdecl;

    procedure error; cdecl;

    function getMaxBufferSize: Integer; cdecl;

    function start(sampleRateInHz: Integer; audioFormat: Integer;  channelCount: Integer): Integer; cdecl;

  end;

  TJSynthesisCallback = class(TJavaGenericImport<JSynthesisCallbackClass, JSynthesisCallback>) end;

  JSynthesisRequestClass = interface(JObjectClass)

    ['{AE41459D-42C6-4E66-B174-F6FA5216A1DA}']

    { Method }

    function init(text: JString; params: JBundle): JSynthesisRequest;

  end;

  [JavaSignature('android/speech/tts/SynthesisRequest')]

  JSynthesisRequest = interface(JObject)

    ['{1963DAD8-C58F-4868-BF8A-B43AE7A14145}']

    function getCountry: JString; cdecl;

    function getLanguage: JString; cdecl;

    function getParams: JBundle; cdecl;

    function getPitch: Integer; cdecl;

    function getSpeechRate: Integer; cdecl;

    function getText: JString; cdecl;

    function getVariant: JString; cdecl;

  end;

  TJSynthesisRequest = class(TJavaGenericImport<JSynthesisRequestClass, JSynthesisRequest>) end;

  JTextToSpeechClass = interface(JObjectClass)

    ['{0E2C5E49-95BE-4F19-BCCD-21960D03E957}']

    { Property Methods }

    function _GetACTION_TTS_QUEUE_PROCESSING_COMPLETED: JString;

    function _GetERROR: Integer;

    function _GetLANG_AVAILABLE: Integer;

    function _GetLANG_COUNTRY_AVAILABLE: Integer;

    function _GetLANG_COUNTRY_VAR_AVAILABLE: Integer;

    function _GetLANG_MISSING_DATA: Integer;

    function _GetLANG_NOT_SUPPORTED: Integer;

    function _GetQUEUE_ADD: Integer;

    function _GetQUEUE_FLUSH: Integer;

    function _GetSUCCESS: Integer;

    { Methods }

    function init(contect: JContext; listener: JTextToSpeech_OnInitListener) : JTextToSpeech; cdecl; overload;

    function init(context: JContext; listener: JTextToSpeech_OnInitListener; engine: JString): JTextToSpeech; overload;

    { Properties }

    property ACTION_TTS_QUEUE_PROCESSING_COMPLETED: JString read _GetACTION_TTS_QUEUE_PROCESSING_COMPLETED;

    property ERROR: Integer read _GetERROR;

    property LANG_AVAILABLE: Integer read _GetLANG_AVAILABLE;

    property LANG_COUNTRY_AVAILABLE: Integer read _GetLANG_COUNTRY_AVAILABLE;

    property LANG_COUNTRY_VAR_AVAILABLE: Integer read _GetLANG_COUNTRY_VAR_AVAILABLE;

    property LANG_MISSING_DATA: Integer read _GetLANG_MISSING_DATA;

    property LANG_NOT_SUPPORTED: Integer read _GetLANG_NOT_SUPPORTED;

    property QUEUE_ADD: Integer read _GetQUEUE_ADD;

    property QUEUE_FLUSH: Integer read _GetQUEUE_FLUSH;

    property SUCCESS: Integer read _GetSUCCESS;

  end;

  [JavaSignature('android/speech/tts/TextToSpeech')]

  JTextToSpeech = interface(JObject)

    ['{E1D06364-F967-4381-B178-EEDD42C203C7}']

    function addEarcon(earcon: JString; filename: JString): Integer; cdecl; overload;

    function addEarcon(earcon: JString; packagename: JString; resourceID: Integer): Integer; cdecl; overload;

    function addSpeech(text: JString; filename: JString): Integer; cdecl; overload;

    function addSpeech(text: JString; packagename: JString; resourceID: Integer) : Integer; cdecl; overload;

    function areDefaultsEnforced: Boolean; cdecl;

    function getDefaultEngine: JString; cdecl;

    function getEngines: JList; cdecl;

    function getFeatures(locale: JLocale): JSet; cdecl;

    function getLanguage: JLocale; cdecl;

    function isLanguageAvailable(loc: JLocale): Integer; cdecl;

    function isSpeaking: Boolean; cdecl;

    function playEarcon(earcon: JString; queueMode: Integer; params: JHashMap) : Integer; cdecl;

    function playSilence(durationInMs: Int64; queueMode: Integer; params: JHashMap): Integer; cdecl;

    function setEngineByPackageName(enginePackageName: JString): Integer; cdecl;

    function setLanguage(loc: JLocale): Integer; cdecl;

    function setOnUtteranceCompletedListener(listener: JTextToSpeech_OnUtteranceCompletedListener): Integer; cdecl;

    function setOnUtteranceProgressListener(listener: JUtteranceProgressListener): Integer; cdecl;

    function setPitch(pitch: Single): Integer; cdecl;

    function setSpeechRate(speechRate: Single): Integer; cdecl;

    procedure shutdown; cdecl;

    function speak(text: JString; queueMode: Integer; params: JHashMap) : Integer; cdecl;

    function stop: Integer; cdecl;

    function synthesizeToFile(text: JString; params: JHashMap; filename: String) : Integer; cdecl;

  end;

  TJTextToSpeech = class(TJavaGenericImport<JTextToSpeechClass, JTextToSpeech>) end;

  JTextToSpeech_EngineClass = interface(JObjectClass)

    ['{8516EA75-A410-4EEE-8281-9ABCE1577F46}']

    { Property Methods }

    function _GeCHECK_VOICE_DATA_PASS: Integer;

    function _GetACTION_CHECK_TTS_DATA: JString;

    function _GetACTION_INSTALL_TTS_DATA: JString;

    function _GetACTION_TTS_DATA_INSTALLED: JString;

    function _GetCHECK_VOICE_DATA_BAD_DATA: Integer;

    function _GetCHECK_VOICE_DATA_FAIL: Integer;

    function _GetCHECK_VOICE_DATA_MISSING_DATA: Integer;

    function _GetCHECK_VOICE_DATA_MISSING_VOLUME: Integer;

    function _GetDEFAULT_STREAM: Integer;

    function _GetEXTRA_AVAILABLE_VOICES: JString;

    function _GetEXTRA_CHECK_VOICE_DATA_FOR: JString;

    function _GetEXTRA_TTS_DATA_INSTALLED: JString;

    function _GetEXTRA_UNAVAILABLE_VOICES: JString;

    function _GetEXTRA_VOICE_DATA_FILES: JString;

    function _GetEXTRA_VOICE_DATA_FILES_INFO: JString;

    function _GetEXTRA_VOICE_DATA_ROOT_DIRECTORY: JString;

    function _GetINTENT_ACTION_TTS_SERVICE: JString;

    function _GetKEY_FEATURE_EMBEDDED_SYNTHESIS: JString;

    function _GetKEY_FEATURE_NETWORK_SYNTHESIS: JString;

    function _GetKEY_PARAM_PAN: JString;

    function _GetKEY_PARAM_STREAM: JString;

    function _GetKEY_PARAM_UTTERANCE_ID: JString;

    function _GetKEY_PARAM_VOLUME: JString;

    function _GetSERVICE_META_DATA: JString;

    { Methods }

    function init: JTextToSpeech_Engine;

    { Properties }

    property ACTION_CHECK_TTS_DATA: JString read _GetACTION_CHECK_TTS_DATA;

    property ACTION_INSTALL_TTS_DATA: JString read _GetACTION_INSTALL_TTS_DATA;

    property ACTION_TTS_DATA_INSTALLED: JString read _GetACTION_TTS_DATA_INSTALLED;

    property CHECK_VOICE_DATA_BAD_DATA: Integer read _GetCHECK_VOICE_DATA_BAD_DATA;

    property CHECK_VOICE_DATA_FAIL: Integer read _GetCHECK_VOICE_DATA_FAIL;

    property CHECK_VOICE_DATA_MISSING_DATA: Integer read _GetCHECK_VOICE_DATA_MISSING_DATA;

    property CHECK_VOICE_DATA_MISSING_VOLUME: Integer read _GetCHECK_VOICE_DATA_MISSING_VOLUME;

    property CHECK_VOICE_DATA_PASS: Integer read _GeCHECK_VOICE_DATA_PASS;

    property DEFAULT_STREAM: Integer read _GetDEFAULT_STREAM;

    property EXTRA_AVAILABLE_VOICES: JString read _GetEXTRA_AVAILABLE_VOICES;

    property EXTRA_CHECK_VOICE_DATA_FOR: JString read _GetEXTRA_CHECK_VOICE_DATA_FOR;

    property EXTRA_TTS_DATA_INSTALLED: JString read _GetEXTRA_TTS_DATA_INSTALLED;

    property EXTRA_UNAVAILABLE_VOICES: JString read _GetEXTRA_UNAVAILABLE_VOICES;

    property EXTRA_VOICE_DATA_FILES: JString read _GetEXTRA_VOICE_DATA_FILES;

    property EXTRA_VOICE_DATA_FILES_INFO: JString read _GetEXTRA_VOICE_DATA_FILES_INFO;

    property EXTRA_VOICE_DATA_ROOT_DIRECTORY: JString read _GetEXTRA_VOICE_DATA_ROOT_DIRECTORY;

    property INTENT_ACTION_TTS_SERVICE: JString read _GetINTENT_ACTION_TTS_SERVICE;

    property KEY_FEATURE_EMBEDDED_SYNTHESIS: JString read _GetKEY_FEATURE_EMBEDDED_SYNTHESIS;

    property KEY_FEATURE_NETWORK_SYNTHESIS: JString read _GetKEY_FEATURE_NETWORK_SYNTHESIS;

    property KEY_PARAM_PAN: JString read _GetKEY_PARAM_PAN;

    property KEY_PARAM_STREAM: JString read _GetKEY_PARAM_STREAM;

    property KEY_PARAM_UTTERANCE_ID: JString read _GetKEY_PARAM_UTTERANCE_ID;

    property KEY_PARAM_VOLUME: JString read _GetKEY_PARAM_VOLUME;

    property SERVICE_META_DATA: JString read _GetSERVICE_META_DATA;

  end;

  JTextToSpeech_Engine = interface(JObject)

    ['{5BAC3048-CB0C-4DC4-AF62-D0D9AE4394CF}']

  end;

  TJTextToSpeech_Engine = class(TJavaGenericImport<JTextToSpeech_EngineClass, JTextToSpeech_Engine>) end;

  JTextToSpeech_EngineInfoClass = interface(JObjectClass)

  ['{8297AD59-5A6F-4867-A185-CA09BAD90159}']

  {Methods}

    function init : JTextToSpeech_EngineInfo;

  end;

  JTextToSpeech_EngineInfo = interface(JObject)

  ['{204B30D8-6E25-4531-847D-18588D48D9BF}']

  {property Methods}

    function _Geticon: integer;

    function _Getlabel: JString;

    function _Getname: JString;

    procedure _Seticon(const Value: integer);

    procedure _Setlabel(const Value: JString);

    procedure _Setname(const Value: JString);

  {Properties}

    property icon : integer read _Geticon write _Seticon;

    property _label : JString read _Getlabel write _Setlabel;

    property name : JString read _Getname write _Setname;

  end;

  TJTextToSpeech_EngineInfo = class(TJavaGenericImport<JTextToSpeech_EngineInfoClass, JTextToSpeech_EngineInfo>) end;

  JTextToSpeech_OnInitListenerClass = interface(IJavaClass)

    ['{58D32EFB-6528-4EC6-BA4F-28B22FE8E573}']

  end;

  [JavaSignature('android/speech/tts/TextToSpeech$OnInitListener')]

  JTextToSpeech_OnInitListener = interface(IJavaInstance)

    ['{027DA109-680A-4A69-905D-F62E2BD1282F}']

    procedure onInit(status: Integer); cdecl;

  end;

  TJTextToSpeech_OnInitListener = class(TJavaGenericImport<JTextToSpeech_OnInitListenerClass,JTextToSpeech_OnInitListener>) end;

  JTextToSpeech_OnUtteranceCompletedListenerClass = interface(IJavaClass)

    ['{0A608BB9-A6BF-4746-8419-9317AD625DFA}']

  end;

  [JavaSignature('android/speech/tts/TextToSpeech$OnUtteranceCompletedListener')]

  JTextToSpeech_OnUtteranceCompletedListener = interface(IJavaInstance)

    ['{00439F2B-E73C-4B93-A9E3-832AE3CC1D5F}']

    procedure onUtteranceCompleted(utteranceID: JString); cdecl;

  end;

  TJTextToSpeech_OnUtteranceCompletedListener = class(TJavaGenericImport<JTextToSpeech_OnUtteranceCompletedListenerClass, JTextToSpeech_OnUtteranceCompletedListener>) end;

  JTextToSpeechServiceClass = interface(JServiceClass)

  ['{6BCC6ADC-CBCB-4515-A5C3-E33F9787EEC2}']

    function init : JTextToSpeechService;

  end;

  [JavaSignature('android/speech/tts/TextToSpeechService')]

  JTextToSpeechService = interface(JService)

  ['{EE3943B6-88DC-488B-9E10-E0FA9914708D}']

    function onGetFeaturesForLanguage(lang : JString; country : JString; variant : JString) : JSet; cdecl;

    function onGetLanguage : TJavaArray<JString>; cdecl;

    function onIsLanguageAvailable(lang : JString; country : JString; variant : JString) : Integer; cdecl;

    function onLoadLanguage(lang : JString; country : JString; variant : JString) : Integer; cdecl;

    procedure onStop; cdecl;

    procedure onSynthesizeText(request : JSynthesisRequest; callback : JSynthesisCallback); cdecl;

  end;

  TJTextToSpeechService = class(TJavaGenericImport<JTextToSpeechServiceClass, JTextToSpeechService>) end;

  JUtteranceProgressListenerClass = interface(JObjectClass)

    ['{0870532F-6FD7-4B1F-9DEF-B53F0095C98A}']

    { Method }

    function init: JUtteranceProgressListener;

  end;

  [JavaSignature('android/speech/tts/UtteranceProgressListener')]

  JUtteranceProgressListener = interface(JObject)

    ['{8B03499D-0B26-4F36-90E8-F724BD78DB0C}']

    procedure onDone(utteranceID: JString); cdecl;

    procedure onError(utteranceID: JString); cdecl;

    procedure onStart(utteranceID: JString); cdecl;

  end;

  TJUtteranceProgressListener = class(TJavaGenericImport<JUtteranceProgressListenerClass, JUtteranceProgressListener>) end;

implementation

end.

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;

type

  TForm1 = class(TForm)

    Memo1: TMemo;

    Button1: TButton;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

  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;

implementation

{$R *.fmx}

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

procedure TForm1.Button1Click(Sender: TObject);

begin

  SpeakOut;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  tts := TJTextToSpeech.JavaClass.init(SharedActivityContext, ttsListener);

end;

constructor TForm1.Create(AOwner: TComponent);

begin

  inherited;

  ttsListener := TttsOnInitListener.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);

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;

end.

下载地址

http://pan.baidu.com/s/1kRuAK

xe5 android tts(Text To Speech) [转]的更多相关文章

xe5 android tts(Text To Speech)
xe5 android tts(Text To Speech) TTS是Text To Speech的缩写,即“从文本到语音”,是人机对话的一部分,让机器能够说话. 以下代码实现xe5 开发的文本转 ...
delphi xe5 android tts(Text To Speech)
TTS是Text To Speech的缩写,即“从文本到语音”,是人机对话的一部分,让机器能够说话. 以下代码实现xe5 开发的文本转语音的方法和访问蓝牙一样,这里用javaclass的接口实现接 ...
第二篇：TTS（Text To Speech）语音合成
TTS(Text To Speech)语音合成: 百度AI语音合成SDK文档--python SDK: https://ai.baidu.com/docs#/TTS-Online-Python-SDK ...
音频(3)Android TTS技术支持朗读英文
Android对TTS技术的支持 Android 1.6开始支持TTS(Text To Speech)技术,通过该技术可以将文本转换成语音.目前2015-09-06只支持朗读英文. TTS技术的核心是 ...
解读 Android TTS 语音合成播报
随着从事 Android 开发年限增加,负责的工作项目也从应用层开发逐步过渡到 Android Framework 层开发.虽然一开始就知道 Android 知识体系的庞大,但是当你逐渐从 Appli ...
XE5 ANDROID通过webservice访问操作MSSQL数据库
上接XE5 ANDROID平台调用 webservice 一.服务端在ro里添加函数(在impl上添加阿东connection,adoquery,dataprovider) function TN ...
必应语音API(Bing text to speech API)
前言 Link : Microsoft Speech API overview 通过这个链接,大致了解Bing speech API的语音识别和语音合成两部分, 这次是需要用到TTS,所以就直接看TT ...
delphi xe5 android 服务端和手机端的源码下载
xe5 android的服务端和手机客户端的源代码下载地址 http://files.cnblogs.com/nywh2008/AndroidTest.rar
xe5 android 手机上使用sqlite [转]
在android手机上怎样使用sqlite数据库,这里用Navigator实现增删改查. 1.新建firemonkey mobile application 2.选择blank applicatio ...

随机推荐

第七十七课最小生成树（Kruskal）
添加kruskal算法: #ifndef GRAPH_H #define GRAPH_H #include "Object.h" #include "SharedPoin ...
【转载】强化学习（五）用时序差分法（TD）求解
原文地址: https://www.cnblogs.com/pinard/p/9529828.html ------------------------------------------------ ...
php算法面试案例（转）
有5个人偷了一堆苹果,准备在第二天分赃.晚上,有一人遛出来,把所有菜果分成5份,但是多了一个,顺手把这个扔给树上的猴了,自己先拿1/5藏了.没想到其他四人也都是这么想的,都如第一个人一样分成5份把多的 ...
JAVA基础部分复习(二、集合类型)
对于这些常用的集合,建议还是需要先了解一下底层实现原理,这样在不同的使用场景下才能选择更好的方案. Set介绍以及对比,常用方法: package cn.review.day02; import ja ...
P2157 [SDOI2009]学校食堂（dp+状态压缩）
题目链接:传送门题目: 题目描述小F 的学校在城市的一个偏僻角落,所有学生都只好在学校吃饭.学校有一个食堂,虽然简陋,但食堂大厨总能做出让同学们满意的菜肴.当然,不同的人口味也不一定相同,但每个人 ...
P2216 [HAOI2007]理想的正方形（dp+单调队列优化）
题目链接:传送门题目: 题目描述有一个a*b的整数组成的矩阵,现请你从中找出一个n*n的正方形区域,使得该区域所有数中的最大值和最小值的差最小. 输入输出格式输入格式: 第一行为3个整数,分别表 ...
PTA——四舍五入
PTA 7-18 出租车计价 (15 分) #include<stdio.h> int main() { double s,w; int t; scanf("%lf %d&quo ...
django -----分页器组件
分页器组件本文目录 1 Django的分页器(paginator)简介 2 应用View层 3 模版层 index.html 4 扩展回到目录 1 Django的分页器(paginator)简介 ...
java 8大数据类型
第一类:逻辑型boolean 第二类:文本型char 1.JAVA中,char占2字节,16位.可在存放汉字 2.char赋值 char a='a'; //任意单个字符,加单引号. char a=' ...
shell 修改工作路径
import os os.getcwd() #查看现路径 os.chdir('新路径') #修改路径

xe5 android tts(Text To Speech) [转]

http://pan.baidu.com/s/1kRuAK

xe5 android tts(Text To Speech) [转]的更多相关文章

随机推荐

热门专题