استفاده از فلش Flash در دلفی
نمایش نتایج: از شماره 1 تا 1 , از مجموع 1

موضوع: استفاده از فلش Flash در دلفی

  1. Borna66_TAHA آواتار ها
    Borna66_TAHA
    مدیر سابق
    Feb 2009
    9,903
    390
    تشکر شده : 3,688

    Gadid استفاده از فلش Flash در دلفی

    .wysiwyg { BACKGROUND: #f5f5ff; FONT: 10pt tahoma,tahoma,tahoma; COLOR: #000000 } P { MARGIN: 0px } .inlineimg { VERTICAL-ALIGN: middle } Flash یکی از فرمتهای محبوب وب است و به راحتی می توان برای ساخت Interfaceها در برنامه از آن استفاده کرد. بعضی از برنامه نویسان معتقدند استفاده از Flash سبب سنگین شدن برنامه، وابستگی برنامه به ActiveX فلش، امکان نداشتن تبادل اطلاعات بین Flash و دلفی و مشکلات دیگری می شود.
    در این مقاله خواهید دید که به راحتی تمامی این مشکلات را می توانید رفع کنید.
    نصب ActiveX فلش
    برای نصب ActiveX فلش به Component>Import ActiveX Control بروید. در لیست مربوطه به دنبال Shockwave Flash بگردید. در صورتی که آن را پیدا نکردید. دکمه Add را زده و به آدرس زیر بروید:
    کد:
     
     WIN_DIRECTORYSystem32MacromedFlash
    و فایل Flash.ocx را انتخاب کنید و سپس Install را بزنید.
    خوب … تا به اینجا کار نصب اکتیوایکس فلش تمام است. کمپوننت مربوطه را میتوانید در پالت ActiveX پیدا کنید.
    نکته: در صورتی که شاخه مذکور در کامپیوتر شما وجود ندارد، احتمالا شما Flash Player را نصب نکرده‌اید.
    البته نگران نباشید، با شیوه ای که در این مقاله ذکر شده کاربر شما بدون نیاز به نصب Flash Player می تواند برنامه شما را اجرا کند.
    استفاده از اکتیوایکس فلش
    اکتیوایکس فلش را می‌توانید در پالت ActiveX پیدا کنید. آن را روی فرمتان قرار دهید. از پراپرتیMovie میتوانید برای Load کردن فایل SWF خود استفاده کنید.
    به باقى پراپرتى‌هاى اکتیوایکس فلش دقت کنید:
    (البته توضیحات پراپرتى‌ها را به صورت انگلیسى آورده‌ام. چون نوشتن آنها به صورت فارسى زیاد جالب نیست. به خاطر اینکه پر از لغاتى هستند که ترجمه‌شون غیر ممکن است.)

    کد:
     
    ReadyState (get only) 0=Loading, 1=Uninitialized, 2=Loaded, 3=Interactive, 4=Complete.
    TotalFrames (get only) Returns the total number of frames in the movie. This is not available until the movie has loaded. Wait for ReadyState = 4.
    FrameNum (get or set) The currently displayed frame of the movie. Setting this will advance or rewind the movie.
    Playing (get or set) True if the movie is currently playing, false if it is paused.
    Quality (get or set) The current rendering quality (0=Low, 1=High, 2=AutoLow, 3=AutoHigh). This is the same as the QUALITY parameter.
    ScaleMode (get or set) Scale mode (0=ShowAll, 1= NoBorder, 2 = ExactFit). This is the same as the SCALE parameter.
    AlignMode (get or set) The align mode consists of bit flags. (Left=+1, Right=+2, Top=+4, Bottom=+. This is the same as the SALIGN parameter.
    BackgroundColor (get or set) Override the background color of a movie. An integer of the form red*65536+green*256+blue use -1 for the default movie color.
    Loop (get or set) True if the animation loops, false to play once. Same as the MOVIE parameter. Movie (get or set) The URL source for the Flash Player movie file. Setting this will load a new movie into the control. Same as the MOVIE parameter.


    متدها:

    کد:
     
    Play() Start playing the animation.
    Stop() Stop playing the animation.
    Back() Go to the previous frame.
    Forward() Go to the next frame.
    Rewind() Go to the first frame.
    SetZoomRect(int left, int top, int right, int bottom) Zoom in on a rectangular area of the movie. Note that the units of the coordinates are in twips (1440 units per inch). To calculate a rectangle in Flash, set the ruler units to Points and multiply the coordinates by 20 to get TWIPS.
    Zoom(int percent) Zoom the view by a relative scale factor. Zoom(50) will double the size of the objects in the view. Zoom(200) will reduce the size of objects in the view by one half.
    Pan(int x, int y, int mode) Pan a zoomed in movie. The mode can be: 0 = pixels, 1 = % of window.


    نصب اکتیوایکس فلش روی کامپیوتر کاربر
    برای این که کاربر نهایی بتواند از برنامه شما استفاده کند باید اکتیوایکس فلش را داشته باشد. در واقع شما باید اکتیوایکس مربوطه را برای او نصب کند. روش کار به این گونه است که شما باید چک کنید که آیا کاربر نهایی اکتیوایکس فلش را بر روی دستگاه خود نصب کرده است یا نه و در صورتی که وی این اکتیوایکس را ندارد برنامه شما باید به طور اتوماتیک آن را نصب کنید.
    برای پیاده سازی این روش ما باید در ابتدا OCX فلش را با استفاده از Resourceها در فایل Exe خود مخلوط کنیم. در صورتی که شما با Resourceها آشنایی ندارید نگران نباشید. مراحل زیر را انجام دهید و باقی کار را به دلفی بسپارید: ۱- یک فایل Text بسازید و اسم آن را SWFActivex.rc بگذارید
    ۲- خطوط زیر را در آن قرار دهید:
    FlashOCX EXTRA Flash.ocx
    و فایل Flash.ocx را از مسیری که قبلا ذکر شد در شاخه پروژه خود قرار دهید.
    ۳- آن را ضبط کنید و با استفاده از BRCC32.EXE که در شاخه Bin محل نصب دلفی وجود دارد، آن را کامپایل کنید. (خط زیر را در Command Line تایپ کنید یا به سادگی فایل SWFActivex.rc را بر روی فایل BRCC32.EXE دراگ (Drag) کنید.
    BRCC32.EXE MyExeRes.rc
    خوب حالا شما یک فایل Resource کامپایل شده دارید به نام SWFActivex.res دارید.
    ۴- خطوط زیر را در در سورس کد فرم اصلی خود قرار دهید:
    کد:
    کد:
       
    ... ... implementation ... ... ... {$R *.dfm} {$R SWFActivex.RES} 5- حالا این تابع را به کد خود اضافه کنید: function GetResourceFile(S : string; FilePath : string) : Boolean; var Res : TResourceStream; begin Result := True; if S '' then begin if FindResource(hInstance, PChar(S), Pchar('EXTRA')) = 0 then begin Result := False; Exit; end; try Res := TResourceStream.Create(hInstance, S, Pchar('EXTRA')); except Result := False; Exit; end; if FileExists(FilePath) then DeleteFile(FilePath); try Res.SaveToFile(FilePath); except Result := False; end; Res.Free; end; end;




    6- این تابع را نیز اضافه کنید:
    کد:

    کد:
    function  GetSystemDir : string;
    var
    SysPath : PChar;
    begin
    GetMem(SysPath,  MAX_PATH + 1);
    GetSystemDirectory(SysPath, MAX_PATH);
    Result :=  StrPas(SysPath)+ '';
    FreeMem(SysPath, MAX_PATH + 1);
    end;


    7- خوب! حالا بگذارید به مهمترین قسمت قضیه یعنی Register کردن OCX مربوطه بپردازیم. در ابتدا یونیت ActiveX را به لیست uses خود اضافه کنید. سپس تابع زیر را نیز به سورس خود اضافه نمایید.


    کد:
    function  RegisterOCX( OCXFileName : string; Flag : Boolean) : Boolean;
    var
    OCXHand:  THandle;
    RegFunc: TDllRegisterServer;
    OCXFileNamePtr :  PChar;
    begin
    Result := True;
    if not FileExists( OCXFileName )  then
    begin
    Result := False;
    Exit;
    end;
    GetMem(OCXFileNamePtr,  Length(OCXFileName) + 1);
    StrPCopy(OCXFileNamePtr, OCXFileName);
    OCXHand:=  LoadLibrary(OCXFileNamePtr);
    FreeMem(OCXFileNamePtr, Length(OCXFileName) +  1);
    OCXFileNamePtr := nil;
    if OCXHand = 0 then
    begin
    Result :=  False;
    Exit;
    end;
    if Flag then
    RegFunc:= GetProcAddress(OCXHand,  'DllRegisterServer')
    else
    RegFunc:= GetProcAddress(OCXHand,  'DllUnregisterServer');
    
    if RegFunc = S_OK then
    Result :=  False;
    
    FreeLibrary(OCXHand);
    end;



    8- این سه متغییر را نیز به کد خود اضافه کنید:


    کد:
    var
    FilePath  : string;
    FlashOC TShockwaveFlash;



    9- تابع زیر را نیز اضافه کنید:


    کد:
    function  CreateFlashOCX : Boolean;
    var
    FilePath : string;
    begin
    Result :=  True;
    FilePath := GetSystemDir + 'MacromedFlashFlash.ocx';
    if not  GetResourceFile('FlashOCX', FilePath) then
    begin
    Result :=  False;
    Exit;
    end;
    try
    FlashOCX :=  TShockwaveFlash.Create(nil);
    except
    if not RegisterOCX(FilePath, True)  then
    Result := False
    else
    try
    FlashOCX :=  TShockwaveFlash.Create(nil);
    except
    Result :=  False;
    end;
    end;
    end;


    10- کدهای زیر را به انتهای فایل خود، قبل از .end اضافه کنید:


    کد:
    initialization
    CoInitialize(nil);
    if not CreateFlashOCX  then
    ShowMessage('An Error Occured!' + #13 + 'Program dosent run  correctly!');
    finalization
    if Assigned(FlashOCX)  then
    begin
    try
    FlashOCX.Free;
    FlashOCX :=  nil;
    except
    end;
    DeleteFile(FilePath);
    end;
    CoUninitialize;
    end.
    
    end.




    11- در اونت OnCreate فرم خودتون به راحتی از کمپوننت مربوطه استفاده کنید:

    کد:
       
    FlashOCX.Parent := Form1; FlashOCX.Movie := ExtractFilePath(Application.ExeName) + 'Main.swf'; FlashOCX.Play;


    Resize شدن درست
    یکی از مشکلاتی که ممکن است با اکتیو ایکس فلش پیدا کنید مشکل Resize شدن است. همه ما می دانیم که یکی از مهمترین مزایای فلش برداری بودن آن است و این برداری بودن سبب می شود که فایل فلش بتواند در هر اندازه به درستی نشان داده شود. ولی متاسفانه فرم خود را در RunTime تغییراندازه می دهید فایل Flash تغییر اندازه نمی یابد. در این جا یک راه حل ساده برای حل این مشکل بیان شده که به خوبی کار میکند. کافی است کمپوننت فلش را در یک پانل قرار دهید و پراپرتی Align آن را برابر alClient بگذارید. حالا پراپرتی Anchor پانل خود را به گونه‌ای تنظیم کنید که مایل هستید کمپوننت فلش Resize شود. سپس در اونت OnResize فرم خود، خطوط زیر را درج کنید:
    FlashOCX.Parent := nil;
    FlashOCX.Parent := Self;
    غیرفعال کردن کلیک سمت راست
    مساله دیگرى که ذهن بسیارى از برنامه‌نویسان را مشغول مى‌کند منوى Popup فلش است. غیرفعال کردن این منو بسیار ساده است. کافی است یک کمپوننت TApplicationEvents را روی فرم خود قرار دهید و کد زیر را در اونت OnMessage این کمپوننت بنویسید:


    کد:
    if (Msg.message  = WM_RBUTTONDOWN) and (Msg.hwnd := FlashOCX)  then
    begin
    PopupMenu1.Popup(Mouse.CursorPos.X,  Mouse.CursorPos.Y);
    Handled := True;
    end;




    ارتباط بین Flash و دلفى
    یکى از مسائل بسیار مهم و اساسى دیگر برقرارى ارتباط بین Flash و دلفی است. فرض کنید در فایل SWF خود چند Button داشته باشید و بخواهید وقتى کاربر روى هر کدام از این اونتها کلیک کرد فرم خاصى باز شود. در این صورت چه باید بکنید. پیاده سازى این کار بسیار ساده است. کافى است در Flash براى هر کدام از دکمه‌هاى خود یک Action تعریف کنید و از دستور FSCommand استفاده نمایید. از یک مقدار دلخواه مثل fMatn یا fSearch استفاده کنید و در دلفى نیز از اونت OnFSCommand به صورت زیر استفاده کنید:


    کد:
      
    if command = 'fMain' then fMain.ShowModal; if command = 'fSearch' then fSearch.ShowModal;
    فقط کاربران ثبت نام شده میتوانند لینک های انجمن را مشاهده کنند. ]
    هميشه خود باشيم نه كسي ديگر!
    فقط کاربران ثبت نام شده میتوانند لینک های انجمن را مشاهده کنند. ]
    فقط کاربران ثبت نام شده میتوانند لینک های انجمن را مشاهده کنند. ]
    #1 ارسال شده در تاريخ 13th March 2010 در ساعت 20:09

  2. یک کاربر از این پست تشکر کرده است :


موضوعات مشابه

  1. استفاده از اشاره گرها در Object Pascal (دلفی)
    توسط Borna66_TAHA در انجمن Delphi دلفی
    پاسخ ها: 0
    آخرين نوشته: 13th March 2010, 20:04
  2. حقوق عمومی
    توسط Lovable.pair در انجمن رشته های علوم پایه و انسانی
    پاسخ ها: 33
    آخرين نوشته: 5th December 2009, 18:05
  3. آموزش ویژوال بیسیک 6
    توسط Borna66_TAHA در انجمن Visual Basic ویژوال بیسیک
    پاسخ ها: 43
    آخرين نوشته: 30th October 2009, 23:26
  4. آشنائی با فلش ديسک
    توسط secret در انجمن آرشیو بخش سخت افزار
    پاسخ ها: 0
    آخرين نوشته: 30th December 2008, 18:16
  5. معرفی هواپيماي ميگ-29
    توسط Sniper _ Elite در انجمن صنایع هوائی - انواع بالگردها و هواپیماها
    پاسخ ها: 2
    آخرين نوشته: 14th December 2008, 00:23

علاقه مندی ها (Bookmarks)

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

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