خواندن متن(speech)

[Beginner2013]

می خوام برنامم یه رشته رو بخونه،چی کار باید بکنم؟
با تشکر فراوان

[Felony]

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]

البته

uses

  ComObj

[Beginner2013]

SavedCW := Get8087CW;

Set8087CW(SavedCW or $4);

Set8087CW(SavedCW);

با سلام.ببخشید من این دو خط کدو برداشتم و برنامم کار میکنه.می تونید بگید نقش اینها چیه؟

[Felony]

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