Memanfaatkan library microsoft speech untuk mengubah tulisan menjadi suara
Iseng-seng ni, ingin mengubah tulisan teks menjadi suara.. Haloo teman-teman, pernah kepikir ngga, mbuat aplikasi yang bs ngubah tulisan menjadi suara. He2x ternyata mudah dan berikut ini sourcecode nya
1 2 3 4 5 6 7 8 9 10 | uses Comobj; procedure TForm1.Button1Click(Sender: TObject); var voice: OLEVariant; begin voice := CreateOLEObject('SAPI.SpVoice'); voice.Speak('Hello World!', 0); end; |
contoh, download di sini