كيفية نطق كلمة أو جملة في الدلفي

كيفية نطق كلمة أو جملة في الدلفي

نبدأ على بركة الله
نفتح و واجهة الدالفي ونكب مايلي :

uses comobj;

var calam: olevariant;
begin
calam := createoleobject('sapi.spvoice');
calam.speak('thank you');
end;

calam.speak('الكلمة أو الجملة التي تريد نطقها تكتب بين القوسين');

يتبع.......

--------------------------
من القائمة
Composant
وضمن الشريط. اختر
Inportor un controle ActiveX ...
من
Inport ActiveX
حدد هذه الاداة
Microsoft Direct Text-to-Speech(Version 1.0)
وهي تابعة الى هذه المكتبة
C:\Windows\speech\XVoice.dll
انقر الزر
Installer
ثم
OK
ثم
Oui

Compiler

اذا لم تنجح لك عملية النطق أو لم تجد الاداة قم بتثبيت احد القواميس الناطقة بالانجليزية

ثم اعد العملية من جديد.

ضع الاداة على الفورم

procedure TForm1.Button1Click(Sender: TObject);
begin
// دالة النطق
DirectSS1.Speak('الكلمةالمراد نكقها');
end

شكرا جزيلا