Что нового

Изменение тембра \ пола в голосовом движке яндекса

saraconor

Новичок
Сообщения
404
Репутация
3
Код:
$STR = _UnicodeURLEncode('тестирование голосового движка яндекса')
$STR2 = 'This is a voice emulator script test'
$LANG = 'ru_RU'
$LANG2 = 'en_GB'

InetGet("http://tts.voicetech.yandex.net/tts?format=mp3&quality=hi&platform=web&application=translate&text="&$STR&"&lang="&$LANG, @TempDir & "\voicetechyandex.mp3")
SoundPlay(@TempDir & "\voicetechyandex.mp3", 1)

InetGet("http://tts.voicetech.yandex.net/tts?format=mp3&quality=hi&platform=web&application=translate&text="&$STR2&"&lang="&$LANG2, @TempDir & "\voicetechyandex2.mp3")
SoundPlay(@TempDir & "\voicetechyandex2.mp3", 1)

Func _UnicodeURLEncode($UnicodeURL)
    $UnicodeBinary = StringToBinary ($UnicodeURL, 4)
    $UnicodeBinary2 = StringReplace($UnicodeBinary, '0x', '', 1)
    $UnicodeBinaryLength = StringLen($UnicodeBinary2)
    Local $EncodedString
    For $i = 1 To $UnicodeBinaryLength Step 2
        $UnicodeBinaryChar = StringMid($UnicodeBinary2, $i, 2)
        If StringInStr("$-_.+!*'(),;/?:@=&abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890", BinaryToString ('0x' & $UnicodeBinaryChar, 4)) Then
            $EncodedString &= BinaryToString ('0x' & $UnicodeBinaryChar)
        Else
            $EncodedString &= '%' & $UnicodeBinaryChar
        EndIf
    Next
    Return $EncodedString
EndFunc


Как в этом примере можно поменять тип \ тембр голоса, или пол озвучивающего?
 
Верх