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
|
0 1 2 3 4 5 6 7 8 9 |
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
wuih..
ky gini trnyt bs toh..
bisa noh bung..