B4A TTS使用小米"小爱同学语音引擎"进行文字转语音

https://vbee.lanzoui.com/iEbVFpv7lqf

#Region Module Attributes
  #FullScreen: False
  #IncludeTitle: True
  #ApplicationLabel: B4A文字转语音
  #VersionCode: 1
  #VersionName: 
  #SupportedOrientations: portrait
#End Region

Sub Process_Globals
  Dim TTS1 As TTS
End Sub

Sub Globals
  Private btnOk As Button
  Private Pch As SeekBar
  Private Sellang As Spinner
  Private SpR As SeekBar
  Private txt_str As EditText
End Sub

Sub Activity_Create(FirstTime As Boolean)
  Activity.LoadLayout("1")
  Sellang.AddAll(Array As String("cn","en"))
End Sub

Sub TTS1_Ready (Success As Boolean)
  If Success Then
    For i = 0 To Activity.NumberOfViews - 1
      Activity.GetView(i).Enabled = True
    Next
    btnOk_Click
  Else
    ToastMessageShow("初始化TTS引擎时失败", "")
  End If
End Sub

Sub Activity_Resume
  If TTS1.IsInitialized = False Then
    TTS1.Initialize("TTS1")
  End If
End Sub

Sub Activity_Pause (UserClosed As Boolean)
  TTS1.Release
End Sub

Private Sub SpR_ValueChanged (Value As Int, UserChanged As Boolean)
  If UserChanged Then
    TTS1.SpeechRate = Value / 10
  End If
End Sub

Private Sub Sellang_ItemClick (Position As Int, Value As Object)
  If btnOk.Enabled = False Then Return
  If TTS1.SetLanguage(Value, "") = False Then
    ToastMessageShow("找不到该语言", True)
    Return
  End If
End Sub

Private Sub Pch_ValueChanged (Value As Int, UserChanged As Boolean)
  If UserChanged Then
    TTS1.Pitch = Value / 10
  End If
End Sub

Private Sub btnOk_Click
  If txt_str.Text.Length > 0 Then
    TTS1.Speak(txt_str.Text, True)
    txt_str.SelectAll
  End If
End Sub