PDA

View Full Version : این هم یک هدیه به دوستان (استفاده از فلش در دلفی حال کنید)



دنیای دلفی
پنج شنبه 25 تیر 1383, 12:32 عصر
چون در مقالات اجازه پست نداشتم اینجا پست کردم :oops: :oops: :oops:

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ها آشنایی ندارید نگران نباشید. مراحل زیر را انجام دهید و باقی کار را به دلفی بسپارید: 1- یک فایل Text بسازید و اسم آن را SWFActivex.rc بگذارید
2- خطوط زیر را در آن قرار دهید:

FlashOCX EXTRA Flash.ocx

و فایل Flash.ocx را از مسیری که قبلا ذکر شد در شاخه پروژه خود قرار دهید.
3- آن را ضبط کنید و با استفاده از BRCC32.EXE که در شاخه Bin محل نصب دلفی وجود دارد، آن را کامپایل کنید. (خط زیر را در Command Line تایپ کنید یا به سادگی فایل SWFActivex.rc را بر روی فایل BRCC32.EXE دراگ (Drag) کنید.

BRCC32.EXE MyExeRes.rc

خوب حالا شما یک فایل Resource کامپایل شده دارید به نام SWFActivex.res دارید.
4- خطوط زیر را در در سورس کد فرم اصلی خود قرار دهید:

...
...
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;امیدوارم از این مقاله طولانی خوشتون امده باشه

Delphi-Clinic
پنج شنبه 25 تیر 1383, 13:24 عصر
متشکرم

:flower:

MOHSEN731
شنبه 27 تیر 1383, 19:47 عصر
ممنون از مقاله جالب و پر بارتون
ولی من یک مشکل اساسی با فلش در دلفی دارم که چند ماهی است حتی چند تن از اساتید هم نتونستند راه حل اساسی ارائه دهند مشکل من این است که اولا هنگامیکه من انیمیشنی با صدا را (مانند کلیپهای ساخته شده با فلش) را در دلفی باز می کنم و پخش می کنم با تاخیر صدا همراه است و همیشه صدا عقب می مانند و دوما اینکه هر وقت یک انیمشن ساخته شده در فلش را در دلفی پخش می کنم سرعت پخش آن کندتر از پخش آن در Flash Player است

منتظر راهنماییتان هستم .

MOHSEN731
چهارشنبه 31 تیر 1383, 19:46 عصر
در نتیجه خودم از طریق برنامه فلش را اجرا کردم . یعنی بجای اینکه از تابع play خود component استفاده کنم از property به نام Framenum استفاده کردم (اسم این property را دقیق یادم نیست اما فکر می کنم همین بود که گفتم ) یعنی توی یک حلقه FrameNum را اضافه میکردم و به این وسیله خودم فایل را نمایش می دادم .

آیا مشکلتون به طور کامل و در تمامی ویندوزها و کامپیوتر های غیر کامپیوتر خودتان حل شد

mamadoo2002
یک شنبه 04 مرداد 1383, 12:40 عصر
جناب دنیای دلفی
این مقاله متعلق به آقای محمد باقر معموری است بدک نبود اگر اسم ایشون رو هم ذکر میکردید

_alish_
سه شنبه 17 شهریور 1383, 15:48 عصر
من از این کد قبلا استفاده کردم فقط یک نکته مهم :
کد نصب FlashActiveX آن دائما در هر بر اجرا فایل Flash.ocx را پاک کرده ودوباره از Resource آنرا ایجاد میکند نکته ای که هست اگر شما FlashActiveX5 را رسورس کنید و کامپیوتر طرف ActiveX6 باشد متاسفانه کاراش بهم میریزه زیرا Active5 نصب شده.

پس دقت کنید که ابتدا با(Flash4 وپایین تر) shockwave1.FlashVersion<200000 چک کنید و اگر درست بود آنرا نصب کنید تا فلش طرف را بهم نریزید.

_alish_
سه شنبه 17 شهریور 1383, 15:56 عصر
من از این کد قبلا استفاده کردم فقط یک نکته مهم :
کد نصب FlashActiveX آن دائما در هر بر اجرا فایل Flash.ocx را پاک کرده ودوباره از Resource آنرا ایجاد میکند نکته ای که هست اگر شما FlashActiveX5 را رسورس کنید و کامپیوتر طرف ActiveX6 باشد متاسفانه کاراش بهم میریزه زیرا Active5 نصب شده.

پس دقت کنید که ابتدا با(Flash4 وپایین تر) shockwave1.FlashVersion<200000 چک کنید و اگر درست بود آنرا نصب کنید تا فلش طرف را بهم نریزید.

Delphi_Developer
سه شنبه 18 اردیبهشت 1386, 00:47 صبح
اینم از طرف ما :
http://barnamenevis.org/forum/attachment.php?attachmentid=6604&d=1169649903

echoes
یک شنبه 30 دی 1386, 01:38 صبح
من قبلا این مطلب و خونده بودم، نکته همونیه که مدام فایل رو پاک می کنه خیلی وقتها حتی موقع ساخت و حتی موقع کامپایل ایراد داره

alpha2009
چهارشنبه 27 آذر 1387, 20:30 عصر
اصل مقاله آقای معموری

http://www.irandevelopers.com/useflashactivexindelphi8709271952.htm