PDA

View Full Version : مبتدی: خواندن متن(speech)


Beginner2013
پنج شنبه 24 فروردین 1391, 18:15 عصر
می خوام برنامم یه رشته رو بخونه،چی کار باید بکنم؟
با تشکر فراوان
Felony
پنج شنبه 24 فروردین 1391, 19:34 عصر
var
SpVoice: variant;
SavedCW: Word;
begin
SpVoice := CreateOleObject('SAPI.SpVoice');
SavedCW := Get8087CW;
Set8087CW(SavedCW or $4);
SpVoice.Speak('This is a text.');
Set8087CW(SavedCW);
end;
Mask
پنج شنبه 24 فروردین 1391, 20:20 عصر
البته

uses
ComObj
Beginner2013
دوشنبه 28 فروردین 1391, 21:26 عصر
SavedCW := Get8087CW;
Set8087CW(SavedCW or $4);
Set8087CW(SavedCW);

با سلام.ببخشید من این دو خط کدو برداشتم و برنامم کار میکنه.می تونید بگید نقش اینها چیه؟
Felony
چهارشنبه 30 فروردین 1391, 00:08 صبح
تو چه سیستم عاملی تست کردید ؟
در SAPI ویندوز 7 باگی وجود داره که در صورتی که کدهای بالا رو ننویسی با خطای Division by zero مواجه میشی ، من خودم اون کد رو بدون اون 3 خط قبلا در ویندوز XP نوشته بودم ، وقتی خواستم برای شما قرارش بدم دیدم خطا میده و با جست و جو تو گوگل فهمیدم SAPI در ویندوز 7 باگ داره و برای حل این مشکل باید اون 3 خط اضافه بشه .