سلام دوستان عزیز
در سایت آقای بابک احدی عزیز طریقه استفاده از موتور text to speech مایکروسافت آمده است.
میتوانید در مورد تغییر engine و voice selection در این برنامه راهنمایی کنید؟
در واقع هدف من این است که روی چند زبان مختلف در برنامه سوییچ کنم.
این هم سورس برنامه آقای احدی:
procedure TForm1.Button1Click(Sender: TObject);
var
voice: OLEVariant;
begin
voice := CreateOLEObject('SAPI.SpVoice');
if not(trim(Edit1.Text)='') then
voice.Speak(trim(Edit1.Text), 0);
end;
با تشکر
پاسخ با نقل قول