Jump to content

Yazıyı Okutmak Ve Kaydetmek


MostWanted

Recommended Posts

; Speak Object and save to wav file
; Author - SolidSnake
; ilk değer okunacak yazı, ikinci değer okunan yazının kaydedileceği yer
_SpeakToWAV("TEST",@ScriptDir&"\respond.wav")

Func _SpeakToWAV($sText,$sFile)
    $ObjVoice=ObjCreate("Sapi.SpVoice")
    $ObjFile=ObjCreate("SAPI.SpFileStream.1")
    $objFile.Open($sFile,3)
    $objVoice.AudioOutputStream = $objFile
    $objVoice.Speak ($sText)
EndFunc[/CODE]

Tabiki ingilizceyi desteklemektedir fakat Türkçe kelimeler içinde kullanabilirsiniz..

Link to comment
Share on other sites

Direk okuyanı :)

; voice read text
; Author erifash ( and others )

_TalkOBJ("Microsoft Windows 7")

Func _TalkOBJ($s_text)
    Local $o_speech
    $o_speech = ObjCreate("SAPI.SpVoice")
    $o_speech.Speak ($s_text)
    $o_speech = ""
EndFunc;==>_TalkOBJ[/CODE]

Link to comment
Share on other sites

  • 2 hafta sonra ...
  • 2 ay sonra...

Archived

This topic is now archived and is closed to further replies.

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...