msAgent كيف يمكنني استعماله

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

بفرض أنك قد عرّفت الكائن على الديلفي

أولا : قم بوضع الكائن Agent الموجود في اللوح Activex على الفورم .

ثانياً : هذه بعض الأكود التي تحتاجها لتتحكم بالـ Agent

هذا الكود لتعريف الكائن وربطه مع الديلفي

var
  Form1: TForm1;
  myagent : IAgentCtlCharacterEx;
implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
Agent1.Characters.Load('myagent','D:\CLIPPIT.acs');
MyAgent := Agent1.Characters.Character('myagent');
MyAgent.Show(0);
end;

لتحديد مكان توضع الـ Agent

procedure TForm1.Button1Click(Sender: TObject);
begin
myagent.MoveTo(100,100,10);
end;

لإظهار حركة الحفظ

procedure TForm1.Button2Click(Sender: TObject);
begin
myagent.Play('save');
end;

ملاحظة : إذا قمت بتنزيل كائن Agent من الأنترنيت فقم أيضا بنسخ أسماء الحركات الخاصة به حتى تسطيع إستدعائها بشكل صحيح مثل : ( save - Print - .... )

مشكور أخي فادي الحقيقة ما قصرت

شكرا لك.........

أخوتي ....

بعد أن قمت بتجربة msagent نجحت معظم الأوامر ولكن لم تعمل الطريقة

agent.think('something');

ولا أعلم لماذا لم تعمل علماً أنها أهم إجرائية بالنسبة لي....

الرجاء ممن يعرف عن هذا الموضوع ان يساعدني فالموضوع لا يحتمل التأجيل

وهل أستطيع الحصول على tts(text to speach) للغة العربية ومن أين?????

ال Text-to-Speach من Microsoft لا يدعم اللغة العربية ولكن الاخ JProgrammer او مصعب غيلان قال انه سيزدنا بكود لهذا الكائن بالعربية و ننتظر الكود.

فعلا ياريت علماً أنه يوجد tts للغة العربية من انتاج شركة صخر وهناك بعض المحركات الأخرىوالتي تدعم العربية ولكنها قليلة جدا وهي تدعم عشرات اللغات غيرالعربية وطبعا ليست مجانية مطلقاً

ومما يسر الخاطر ان نسمع أن هناك إمكانيات عربية فردية لتصميم هكذا مكونات فعلاً أمر رائع.