.تعمیـــرکاران کیان ست (kiansat.kim)تابع قوانین -جمهموری-اسلامی ایران میباشد و ارسال هر گونه مطلب سیاسی،مذهبی،غیراخلاقی و خرید و فروش متعلقات ماه-واره و دیگر موارد مجرمانه ممنوع میباشد وبا کاربران خاطی به شدت برخورد میگردد انجمن فقط تعمیرات لوازم الکترونیک میباشد...













سلام مهمان گرامی؛
به کیان ست خوش آمدید برای مشاهده انجمن با امکانات کامل می بايست از طريق این لینک عضو شوید.

http://teranzit.pw/uploads/14469017281.png
پیام خصوصی به مدیریت کل سایت ........... صفحه توضیحات و شرایط گروه ویژه ........... ...........
ارتباط تلگرامی با مدیریت سایت ................. ایدی تلگرام suportripair@ .................
نمایش نتایج: از شماره 1 تا 1 , از مجموع 1

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

  1. #1


    تاریخ عضویت
    Oct 2010
    نوشته ها
    198
    تشکر ها
    38
    401 سپاس از181 پست

    چگونگی استفاده از 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 و سايت مايكروسافت ميتوان به آنها دسترسي پيدا كرد.
    موفق و پيروز باشيد.
    [CENTER]:1205219183:
    [B][FONT=Tahoma][SIZE=3][COLOR=#0000ff][URL="http://kiansat3.ir/showthread.php?t=47100"]فروش جدیدترین و کاملترین پکیج نرم افزاری و بازی و آموزشی و تعمیراتی انواع موبایل ها بصورت کاملا فارسی به همراه چندین اشانتیون[/URL][/COLOR][/SIZE][/FONT][/B]
    [B]:1205219183::فقط خودت باش نه کسی دیگر!
    :lay:
    [/B][/CENTER]

  2. 3کاربر از Borna66 بخاطر ارسال این پست مفید سپاسگزاری کرده اند:

    ARIYA (5th May 2012),masoud-sat (4th May 2012),M_Repair (4th May 2012)

اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

کلمات کلیدی این موضوع

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  


Copyright ©2000 - 2013, Jelsoft Enterprises Ltd کیــــــــــان ستـــــــــــ ...® اولین و بزرگترین سایت فوق تخصصی الکترونیک در ایران



Cultural Forum | Study at Malaysian University