Speech on Windows Source


Deprecated: The each() function is deprecated. This message will be suppressed on further calls in /kunden/macsw.de/webseiten/monkeybreadsoftware-video/rbformat/rbcode.php on line 244
Class App
Inherits Application
// Constants
Const kFileQuitShortcut = Ctrl+Q
Const kFileQuit = E&xit
Const kEditClear = &Delete
End Class

Class Window1
Inherits Window
// Controls
ControlInstance
End ControlInstance
ControlInstance
Sub Action() Handles Event
dim text as string

text=ConvertEncoding(EditField1.text,encodings.utf16)

speech.Speak text

End Sub
End ControlInstance
ControlInstance
Sub Action() Handles Event
dim text as string
dim file as FolderItem

text=ConvertEncoding(EditField1.text,encodings.utf16)

file=GetSaveFolderItem("","test.wav")
if file<>nil then
speech.SpeakFile file,text
end if

End Sub
End ControlInstance
ControlInstance
Sub Action() Handles Event
speech.pause

End Sub
End ControlInstance
ControlInstance
End ControlInstance

// Properties
Dim speech As WinSpeechMBS

// Event implementations
Sub Open()
Speech=new WinSpeechMBS

if Speech.ListVoices then

dim v as WinVoiceMBS

v=speech.NextVoice
while v<>nil

listbox1.AddRow v.Description

v=speech.NextVoice
wend
end if

End Sub
End Class



Watch other Xojo videos:

ThumbnailMBS Xojo Plugin, June 2021 News

(English)

27:58 minutes
ThumbnailMBS Xojo Plugins 21.1

(English)

23:12 minutes
ThumbnailInstalling a Xojo Web App Server

(English)

28:19 minutes
ThumbnailMBS Plugin Installation Win

(English)

22:03 minutes
ThumbnailMBS Plugin Installation Mac

(English)

25:17 minutes
ThumbnailXDC 2020 MBS Plugins Presentation

(English)

38:59 minutes




Links
MBS Xojo PDF Plugins

Start Chat