- Code: Select all Expand view
- #include "FiveWin.ch"
function Main()
local oVoice := TOleAuto():New( "Sapi.SPVoice" )
local voice
for each voice in oVoice:GetVoices()
MsgInfo( voice:GetDescription )
next
return nil
#include "FiveWin.ch"
function Main()
local oVoice := TOleAuto():New( "Sapi.SPVoice" )
local voice
for each voice in oVoice:GetVoices()
MsgInfo( voice:GetDescription )
next
return nil
// Listing voices
#include "FiveWin.ch"
function Main()
local oVoice := TOleAuto():New( "Sapi.SPVoice" )
local voice
for each voice in oVoice:GetVoices()
oVoice:Speak( voice:GetDescription )
next
return nil
#include "FiveWin.ch"
function Main()
local oVoice := TOleAuto():New( "Sapi.SPVoice" )
oVoice:Speak( "c:\texto.txt", 4 ) // 4 means it is an external file
return nil
<input type="text" x-webkit-speech />
#include "FiveWin.ch"
#define SSFMCreateForWrite 3
function Main()
local oVoice := TOleAuto():New( "Sapi.SPVoice" )
local oFile := TOleAuto():New( "SAPI.SpFileStream.1" )
oFile:Open( "c:\reading.wav", SSFMCreateForWrite, .F. )
oVoice:AudioOutputStream = oFile
oVoice:Speak( "c:\text.txt", 4 )
oFile:Close()
return nil
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 87 guests