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, ak dpt ini dari tmn bwtnya pake delphi... dan berikut ini codingnya

uses
Comobj;

procedure TForm1.Button1Click(Sender: TObject);
var
voice: OLEVariant;
begin
voice := CreateOLEObject('SAPI.SpVoice');
voice.Speak('Hello World!', 0);
end;

klo pengen nyoba donload di
Download

2 komentar:

he3x logatnya aneh ya...

Poskan Komentar