درس \ نطق الكلمات باللغة الأنجليزيه في دلفي

[قديم الشوق]

السلام عليكم ورحمة الله وبركاته

درس على الخفيف للمبتدئين مثلي :laugh:

تحميل الدرس من المرفقات

اتمنى لكم الفايده

[B.M.AbdelAziZ]

وعليكم السلام
درس بالصور! مشابه : Delphi & ActiveX
http://www.delphi4arab.com/forum/showthread.php?t=79
وايضا محرك "امبرولا" لنطق أكثر من لغة بما فيها اللغة العربية

[AL-MOB4RM3G]

السلام عليكم,

شآهدت الدرس ما شاء الله, جميل, اعجبني صورة الفم الذي يتحرّك مع الكلام :laugh:

مزيد من الدروس اخي الحبيب :)

ملآحظة, في المرّة القآدمة قم بوضع اسم منآسب لملف ال rar عند رفعه للمنتدى بارك الله لك, حتى يتم تنظيم المنتدى ان شاء الله,

بارك الله لكم

[kachwahed]

أحسنت أخي قديم الشوق
والآن للبحث:
ماذا لو لم يكن ActiveX مثبت على جهاز الزبون؟
كيف يمكن تضمين الملفات اللازمة لتشغيل TextToSpeech؟

[B.M.AbdelAziZ]

لو لم يكن ActiveX مثبت على جهاز الزبون؟
نختار
1- نطلب من المستخدم تثبيته (من مستلزمات عمل البرنامج)
2- نقوم نحن بتثبيته (مهم جدا اخذ الاذن من المستخدم)

كيف يمكن تضمين الملفات اللازمة لتشغيل TextToSpeech
حسب محرك TTS المراد تثبيته
ملف تنفيذي : نقوم باستدعائه اثناء التثبيت بصمت (ان به خيارsilent mode )
ملفات ومكتبات: ننسخها اثناء التثبيت (او عند أول تنفيذ للبرنامج) بالاماكن الازمة مع القيام بما يحب من تغييرات
عامة وليس فقط في حالة محرك الصوت ويبقى الامر مفتوح لمخيلة المبرمج
وبالتوفيق

[AL-MOB4RM3G]

(مهم جدا اخذ الاذن من المستخدم)

وماذا لو لم يتم أخذ الإذن ؟
ان كان المستخدم عمليّا لا يلاحظ هذا فلماذا هذا شئ مهم ؟

اعلم انه يكون تدخل في جهآز المستخدم, لكن ان فكّرنا منطقيّا فلبرنآمج بحآجة اليه, والمستخدم اختآر ان يسجّل البرنامج, فلماذا تخبره ؟ + ماذا لو انني سأخبر المستخدم عن كل التغيّرات التي ستتم على جهآزه, هل كان سيكون سعيد , ام انه يغلق التسجيل ويقول,, مالي ومال وجع الراس ؟

بارك الله لك,

[B.M.AbdelAziZ]

وماذا لو لم يتم أخذ الإذن ؟
ان كان المستخدم عمليّا لا يلاحظ هذا فلماذا هذا شئ مهم ؟
يصبح لافرق بينه وبين بعض انواع البرامج الضارة
النظام ملك لصاحبه وليس ملك للمبرمج يغير به ما يشاء
لن اتحدث احسن من الاخ خالد الشقروني (http://www.delphi4arab.com/forum/member.php?u=3189) بمقالته "فوبيا البرمجيات العربية" التي نشرت بموقع الاخ عروة عيسى

وهذا مقتطف منها

كنت مستغرقا في فرز الملفات و البرامج في حاسوبي و إعادة تنظيمها ، حتى قابلني مجلد لأحد البرامج العربية، و بدافع الفضول قررت تجريب البرنامج و تركيبه. وقبل أن أبدأ بالضغط على الملف Setup.exe و بسبب خبرات سيئة سابقة مع مثل هذه البرامج، والتخوف من أن يقوم البرنامج بالعبث بمحتويات ملفات النظام الرئيسية: أخذت احتياطاتي بالطلب من ويندوز تسجيل نقطة استرجاع حتى أضمن إرجاع حاسوبي إلى الحالة التي كان عليها قبل تركيب البرنامج.


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

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

طبعا قمت بإزالة البرنامج غير آسف.

بقية المقال بمكان نشرها

http://www.orwah.net/modules/news/article.php?storyid=130

[قديم الشوق]

مزيد من الدروس اخي الحبيب
...قم بوضع اسم منآسب لملف ال rar عند رفعه للمنتدى


وعليكم السلام ورحمة الله وبركاته
الله يجمل حالك بأذن الله ان توفرت المعرفه لن نبخل
ان شاء الله سأضع اسم مناسب في المرة القادمة للملف
ماذا لو لم يكن ActiveX مثبت على جهاز الزبون؟
كيف يمكن تضمين الملفات اللازمة لتشغيل TextToSpeech؟

جزااك الله خيراً على مرورك وتشجيعك
هناك حزمه صغيره تضاف مع البرنامج سواء تثبت مع البرنامج
او فك الضغط عنها واخذ الملفات اللازمه وارفاقها مع البرنامج بهذه الطريقه يلزم عليك ربط
الملف عن طريق الكود البرمجي والملف المستخدم هو VText.dll
لتحميل الحزمه من هنا (http://www.mediafire.com/?0h2zwwwmgzo)

وكل الشكر موصول الى الاخ عبد العزيز الذي يسعى جاهداً لأيصال المعلومه بشكل
صحيح جزاك الله عنا خير الجزاء وفقك الى مايحبه ويرضاه

تقبل فائق احترامي

[issamdnn]

فقط لإثراء الموضوع أخي العزيز .. يمكن أيضاً إستخدام توابع api لعمل ذلك دون الحاجة لإضافة عنصر activeX والكود التالي يوضح ما سبق على أي جهاز يستخدم windows كنظام تشغيل :

uses Comobj;

procedure TForm1.Button1Click(Sender: TObject);
var
voice: OLEVariant;
begin
voice := CreateOLEObject('SAPI.SpVoice');
voice.Speak('Hello World!', 0);
end;


شكراً مجدداً على الدرس وعلى موضوعك الجميل.

[mohd]

voice := CreateOLEObject('SAPI.SpVoice');




هذا الكود يعمل على وندوز xp ولا يعمل على وندوز 7 ما هو الحل... وجزاكم الله خير

[kachwahed]

السلام عليكم
@mohd
طالع هنا:
http://answers.microsoft.com/en-us/windows/forum/windows_7-sound/windows-7-64-bit-tts-voice-selection-problems/6b4153df-0ffb-4977-b26c-a313b418db96