Memanfaatkan library microsoft speech untuk mengubah tulisan menjadi suara

5min-speech1

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
[pascal]
uses
Comobj;

procedure TForm1.Button1Click(Sender: TObject);
var
voice: OLEVariant;
begin
voice := CreateOLEObject(‘SAPI.SpVoice’);
voice.Speak(‘Hello World!’, 0);
end;
[/pascal]
contoh, download di sini

2 comments

Leave a Reply

Your email address will not be published. Required fields are marked *