Selamat Datang Di Weblog http://delphiscript.blogspot.com, Mari Kita Belajar Bersama Tentang Blogging, dan Internet Marketing
"Dan di antara manusia (ada) orang yang mempergunakan perkataan yang tidak berguna untuk menyesatkan (manusia) dari jalan Allah tanpa pengetahuan dan menjadikan jalan Allah itu olok-olokan. Mereka itu akan memperoleh azab yang menghinakan" [Q.S Luqman : 6]

Cara Mudah Membuat Aplikasi Text To Speech Bahasa Inggris (TTS English) menggunakan Delphi

Pada artikel sebelumnya sebenarnya telah dibahas bagaimana membuat aplikasi TextToSpeech Bahasa Inggris, namun ternyata cara itu terlalu sulit sebenarnya untuk membuatnya kita bisa menggunakan cara yang lebih gampang lagi dan kode yang lebih pendek.

Sebagai info aplikasi ini aku buat pada Borland Delphi 7 dan Sistem Operasi MS Windows XP SP 2 tanpa instalasi komponen apapun.

Baik sekarang buka Delphi kamu dan buat sebuah projek baru.
1. Pada unit 1 tambahkan klausa uses ComObj; tepat dibawah klausa Implementation
2. Lalu buatlah deklarasi variabel global SpVoice: Variant; pada kalusa var atau tepat diatas klausa implementation

Berikut ini potongan kode header dari Unit1


public
{ Public declarations }
end;

var
Form1: TForm1;
SpVoice: Variant;

implementation
uses ComObj;

{$R *.dfm}

Buat procedure onCreate pada form (caranya double klik form1 maka Anda akan dibawa ke jendela kode editor) hingga kode lengkap untuk procedure ini sbb :

procedure TForm1.FormCreate(Sender: TObject);
begin
SpVoice := CreateOleObject('SAPI.SpVoice')
end;

Pada Form masukkan komponen Memo dan Button yang terletak pada Component Palette tab standard

Lalu buatlah procedure onClick pada komponen Button tersebut (caranya double klik Button maka Anda akan dibawa ke jendela kode editor) hingga kode lengkap untuk procedure ini sbb :

procedure TForm1.Button1Click(Sender: TObject);
begin
SpVoice.Speak(memo1.Text)
end;

Lalu jalankan dengan menekan F9. Selesai.

Testing. Masukkan teks dalam bahasa inggris pada memo1 lalu tekan Button1. maka aplikasimu sudah bisa ngomong. Gimana lebih mudah bukan?

Kalau ada yang mudah ngapain bikin susah?





Artikel yang berhubungan..