الشبكة العربية لمطوري الألعاب

  Harlequin مشاركة 1

هذه المقالة مهمة جداً لمبرمجي Delphi بكل إصداراته
ولأهميتها نقلتها عن
http://www.delphi3000.com/articles/article_4394.asp?SK=let%20messages
وها هي :

الرجاء إعطاء آرائكم وإذا كان هناك طرق أسهل يرجى المشاركة

USES ComObj; 

procedure Speak(const sText : String; bWithVoice : Boolean = True); 
const 
          SVSFDefault = $00000000; 
          SVSFlagsAsync = $00000001; 
var 
          oVoice: OLEVariant; 
begin 
          if bWithVoice then begin 
             oVoice := CreateOLEObject('SAPI.SpVoice'); 
             oVoice.Speak(sText, SVSFlagsAsync); 
          end; 

          Showmessage(sText); 

          oVoice := Unassigned; 
end; 

Examples: 

//With voice. 
Speak('Hello people'); 

//Without voice. 
Speak('Hello people', False);

صدق السيف حاكما وحكيما وحده السيف يادمشق اليقين

محترف مشرف عبد اللطيف حاجي علي مشاركة 2

حسناً، أنا لا أعرف الكثير عن الـ Delphi ولكن هذه الطريقة ليست من أصل اللغة لذلك يمكن تطبيقها في أي لغة...
كل ما يفعله هذا الـ Code هو استدعاء مكتية خارجية هي الـ MS SAPI اختصاراً لـ Microsoft Speech API... لا أعتقد أن هناك أسهل من هكذا طريقة☺
ولكن يجب أن تكون حذراً هنا، فليست كل الأنظمة مزودة بهذا الـ API. فإن لم تخني الذاكرة يستطيع المستخدم الإختيار بين إعدادها من عدمه. و كما ألاحظ فإن الـ Code لا يأخذ هذه الحالة بعين الاعتبار

أخيراً أحب أن أنوه إلى أن الانترنت مليئة بالمكتبات التي تحول النص إلى كلام فقط إبحث عن Speech to Text في محرك البحث المفضل لديك

عبد اللطيف حاجي علي
مبرمج
In|Framez

  Harlequin مشاركة 3

عزيزي .... إذا اعتقدت أنني مبرمج دلفي خبير جدا جدا جدا فأنا لست كذلك.
وكلامك صحيح مئة بالمئة .
المشكلة هي أن هذه الطريقة هي أسهل طريقة وتستلزم المكتبة المذكورة Text to speech
وأنا آسف فعلا لأنني لم أورد ذلك في مقالتي لأنني افترضت أن جميع مبرمجي الذين تهمهم هذه العملية قد جربوا مسبقا تنزيل هذه المكتبة والأكثر من ذلك أنهم قد تركوها على نسخة برنامج التشغيل خاصتهم.
ولك أن تعلم يا صديقي ....أنني أشكر مشاركتك جملة وتفصيلا لأنها تشجعني على الإستمرار حيث أن هذه هي أول مرة أحاول نقل تجاربي إلى مجتمع دلفي بشكل عام وعلى نطاق واسع.شكرا مرة أخرى.

صدق السيف حاكما وحكيما وحده السيف يادمشق اليقين

خبير  سعيد بسيوني مشاركة 4

هو عموماً دي مشكلة الأكتيف إكس بالويندوز... يعني عاوز تستخدم وحدة أكتيف إكس لازمك تتأكد يا إما انها تكون موجودة بشكل افتراضي في النظام، يا إما تضيف برنامج التثبيت بتاعها مع برنامج التثبيت بتاعك عشان تضمن وجودها...
بالمناسبة، أنا مع هزه الطريقة للتكست تو سبيتش لأن لو عاوز تعملها بإيدك حتاخد منك العمر كلو في أبحاث مكلفة قوي قوي...