کد:
PFN Code
...
...
implementation
...
...
...
{$R *.dfm}
{$R SWFActivex.RES}
5- حالا این تابع را به کد خود اضافه کنید:
PFN Code
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- این تابع را نیز اضافه کنید:
PFN Code
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 خود اضافه کنید. سپس تابع زیر را نیز به سورس خود اضافه نمایید.
PFN Code
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- این سه متغییر را نیز به کد خود اضافه کنید:
PFN Code
var
FilePath : string;
FlashOC TShockwaveFlash;
9- تابع زیر را نیز اضافه کنید:
PFN Code
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 اضافه کنید:
PFN Code
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 فرم خودتون به راحتی از کمپوننت مربوطه استفاده کنید:
PFN Code
FlashOCX.Parent := Form1;
FlashOCX.Movie := ExtractFilePath(ApplicationPERSIAN FORUM NETWORK LINK ERROR - eName) + 'Main.swf';
FlashOCX.Play;
Resize شدن درست
یکی از مشکلاتی که ممکن است با اکتیو ایکس فلش پیدا کنید مشکل Resize شدن است. همه ما می دانیم که یکی از مهمترین مزایای فلش برداری بودن آن است و این برداری بودن سبب می شود که فایل فلش بتواند در هر اندازه به درستی نشان داده شود. ولی متاسفانه فرم خود را در RunTime تغییراندازه می دهید فایل Flash تغییر اندازه نمی یابد. در این جا یک راه حل ساده برای حل این مشکل بیان شده که به خوبی کار میکند. کافی است کمپوننت فلش را در یک پانل قرار دهید و پراپرتی Align آن را برابر alClient بگذارید. حالا پراپرتی Anchor پانل خود را به گونهای تنظیم کنید که مایل هستید کمپوننت فلش Resize شود. سپس در اونت OnResize فرم خود، خطوط زیر را درج کنید:
FlashOCX.Parent := nil;
FlashOCX.Parent := Self;
غیرفعال کردن کلیک سمت راست
مساله دیگرى که ذهن بسیارى از برنامهنویسان را مشغول مىکند منوى Popup فلش است. غیرفعال کردن این منو بسیار ساده است. کافی است یک کمپوننت TApplicationEvents را روی فرم خود قرار دهید و کد زیر را در اونت OnMessage این کمپوننت بنویسید:
PFN Code
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 به صورت زیر استفاده کنید:
PFN Code
if command = 'fMain' then fMain.ShowModal;
if command = 'fSearch' then fSearch.ShowModal;
موفق باشید