yazıyı bilgisayara okutmak

[mucar]

İlk önce Project -> Import Type Library'ye tıklıyoruz.
Microsoft Speech Object Library'yi seçip Install ediyoruz.
ActiveX tabına yeni bileşenler ekleniyor.
Buradan projeye bir tane SPVoice nesnesi ekliyoruz (ActiveX tabından).
Bir edit koyuyoruz, bir de buton.
Butona tıklandığında da şu kodlar çalışacak;

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
SpVoice1.Speak(edit1.Text, SVSFDefault);
end;

Dezavantajı: İngilizce olarak telaffuz ediyor.

[kelaynak2]

Ben bunu Word makrosuyla da yapıyorum.
Visual Basic düzenleyicisinden Tools-Refarences den Microsoft Voice Texti işaretliyorum.
Aşağıdaki kodu yazıyorum:

Kod: Tümünü seç

Dim sec As String
Sub konus()
Dim ben As New TextToSpeech
sec = Selection.Text
ben.Speak (sec)

End Sub

harhangi bir satıra Breakpoint koyup adım adım çalıştırısam Seçili olan texti okuyor.Fakat doğrudan çalıştırısam okumuyor.Threat ile ilgili bir sorun var sanırım.