چگونگی استفاده از Office Assistant در برنامه هاي دلفي

ميدونيد Office Assistant چيه ؟ بله همون شكلك يا بهتره بگم سنجاق كه در مجموعه برنامه هاي Office هستش و گاهي با كارها و شكلك هاي عجيب غريب و و خنده دار باعث ميشه كمي از خستگي در بياي و يكم سر گرم بشي.
قصد دارم راه استفاده از اون رو در برنامه هاي دلفي آموزش بدم. البته در هر برنامه ويژوال ديگه اي هم قابل انجامه چون از توابع API استفاده ميشه كه مربوط به خود ويندوز هستش و به delphi يا VB يا VC و ... ربطي نداره.
ابتدا به شاخه windows سيستم برين و از وجود شاخه اي به اسم msagent مطمئن بشين.
(در غير اينصورت بايد msagent رو نصب كنين كه البته با نصب آفيس msagent هم نصب ميشه) در شاخه msagent يك شاخه ديگه به اسم chars وجود داره كه حاوي يك يا چند فايل با پسوند acs هستش. پيشنهاد ميكنم رو كامپيوترتون يك سرچ بزنين و كليه فايلهاي با پسوند acs رو تو اين شاخه كپي كنين تا بعد به راحتي از اونا استفاده كنيم...

دلفي رو باز كنيد (من با دلفي هفت توضيح ميدم اما در كل فرقي نميكنه).
منو Component گزينه Import ActiveX رو انتخاب كنيد. در پنجره باز شده بدنبال گزينه Microsoft Agent Control رو انتخاب كنيد و كليد install رو بزنيد.
اكنون در component palet تب ActiveX گزينه Agent اضافه شده است. نصب Agent به پايان رسيد اكنون به سروقت كد نويسي جهت فراخواني و استفاده از آن ميرويم.
ابتدا ايجاد يك Application جديد و سپس يك كامپوننت Button, و يك كامپوننت Agent بر روي فرم قرار داده و در رويداد Button1Click كدهاي ذيل را قرار دهيد :

کد:

---

procedure TForm1.Button1Click(Sender: TObject); //
begin
Agent1:=TAgent.Create(Application); //
Agent1.Characters.Load('merlin','merlin.acs'); //
Agent1.Characters.Item['merlin'].MoveTo(400,400,0); //
Agent1.Characters.Item['merlin'].Show(0); //
end;

---

اكنون برنامه را اجرا كنيد.


دستورات زير نيز جالب توجه ميباشد :

کد:

---

Agent1.Characters.Item['merlin'].Play('Greet');

Agent1.Characters.Item['merlin'].Play('Explain');

Agent1.Characters.Item['merlin'].Speak('Hi, My name is Merlin. and HamiReza Farzampur Programmed me for greet you.', '');

Agent1.Characters.Item['merlin'].Play('Pleased');

Agent1.Characters.Item['merlin'].Play('Wave');

Agent1.Characters.Item['merlin'].Play('RestPose');

---

در ويندوز Agent هاي مختلفي وجود دارد كه تمامي آنها در برنامه Office قابل استفاده بوده همچنين در برنامه بالا.
MSAgent‌داراي دستورت و توابع فراواني ميباشد كه با يك جستجو در سي دي هاي MSDN و سايت مايكروسافت ميتوان به آنها دسترسي پيدا كرد.
موفق و پيروز باشيد.