Ýí ÇáÈÏÇíÉ ÇíÖÇÍÇÊ :

1-ÇáÏíÝáæÈÑ áíÓ ãæÌå áãËá åÐå ÇáÃÛÑÇÖ Èá åæ Ýí ÇáãÞÇã ÇáÃæá ÃÏÇÉ áÈÑãÌÉ ÞæÇÚÏ ÇáÈíÇäÇÊ æáåÐÇ äÌÏ Ãä ÇáÏæÇá æÇáÇÌÑÇÁÇÊ æÇáÎÕÇÆÕ ÇáÎÇÕÉ ÈÇáÊÚÇãá ãÚ ÞæÇÚÏ ÇáÈíÇäÇÊ ãÊæÝÑÉ ÈÕæÑÉ ÛÒíÑÉ ÌÏÇð Ýí Ííä äÌÏ Ãä ÊÚÇãáå ãÚ ÇáãßæäÇÊ æÚäÇÕÑ ÇáÊÍßã Ýíå ÔíÆ ãä ÇáÕÚæÈÉ ÈÚßÓ ÇáÝíÌæÇá ÈíÓß ÊãÇãÇõ

2-ÞÈá ÞÑÇÁÉ åÐÇ ÇáÏÑÓ áÇ ÈÏ ãä ÞÑÇÁÉ ÇáÏÑÓ ÇáÓÇÈÞ ÊãÇãÇð
ÈÚäæÇä ÇÏÑÇÌ æÇÓÊÎÏÇã ÚäÇÕÑ ÇáÊÍßã æÇä ßäÊ Ýí ÇáÏÑÓ ÇáÓÇÈÞ ÞÏ ÇÚÊãÏÊ
OLE Container æãä Ëã ÇÎÊíÇÑ Create Control
ÃãÇ Ýí åÐÇ ÇáÏÑÓ ÝÇäí ÓÃÚÊãÏ Úáì ÇÓÊÎÏã OCX Control ÇáãæÌæÏ Öãä
Tool Pallete æÈÇáÊÇáí áä íßæä åäÇß Óæì ÎíÇÑ æÇÍÏ Ýí ãÑÈÚ ÇáÇÏÑÇÌ æåæ
Create Control

3-ÃäÇ ÔÎÕíÇð áÇ ÃÚÑÝ ãä ÇáÝáÇÔ ÇáÇ ÇÓãå æáã ÇÔÛá ÈÑäÇãÌ ÇáÝáÇÔ ÃÈÏÇð æÞÏ ÃÎÐÊ ãáÝ ÝáÇÔ ááÊÌÑíÈ æÚäÕÑ ÇáÊÍßã ÇáÎÇÕ Èå ãä ÃÍÏ ÇáÒãáÇÁ . æáÇ íæÌÏ ÚäÏí ÍÊì ãáÝ ÇáãÓÇÚÏÉ ÇáÎÇÕ ÈÚäÕÑ ÇáÊÍßã åÐÇ .

4-áíÓ ãä ÇáãÚÞæá Çä ÃÔÑÍ ÌãíÚ ÎÕÇÆÕ æÃÍÏË ÇáÝáÇÔ ÝÞØ ÝÇáåÏÝ ãä ÇáÏÑÓ áíÓ ÇáÊáÞíä ÇäãÇ ãÚÑÝÉ ÇáØÑíÞÉ æ ãÇ íäØÈÞ Úáì ÚäÕÑ ÇáÊÍßã ÇáÎÇÕ ÈÇáÝáÇÔ íäØÈÞ Úáì Ãí ÚäÕÑ ÊÍßã ÂÎÑ .

:winntsystem32regsvr32    :winntsystem32swflash.ocx

íÌÈ ÊÍÏíÏ ÇáÞÑÕ ÇáÐí íæÌÏ Ýíå ÇáæíäÏæÒ
æÈÚÏ Ðáß ÊÙåÑ ÑÓÇáÉ ÊÝíÏ ÈäÌÇÍ ÚãáíÉ ÇáÊÓÌíá




ËÇáËÇð Úãá ÈÑäÇãÌ ÈÓíØ
ÓæÝ äÞæã ÈÚãá ÇáÈÑäÇãÌ ÇáÊÇáí



ÇÏÑÇÌ ÚäÕÑ ÇáÊÍßã :

äÎÊÇÑ ÚäÕÑ ÇáÊÍßã ãä Tool Pallete (OCX) æäÑÓãå ÈÇáÍÌã ÇáÐí äÑíÏ


æÈÚÏ Ðáß äÖÛØ ÒÑ ÇáãÇæÓ ÇáÃíãä æäÎÊÇÑ Insert Object
æäÎÊÇÑ shockwave Flash Object

æÈÚÏ Ðáß äÌáÈ ÎÕÇÆÕ æØÑÞ æÃÍÏÇË ÚäÕÑ ÇáÊÍßã ãä ÇáÞÇÆãÉ Program äÎÊÇÑ OLE Importer

æ ÈÇáÊÇí äÎÊÇÑ Çá Class
shockwaveFlash.shockwaveFlash
æäÊÃßÏ ãä ÊÍÏíÏ Properties æ methods



, æÈåÐÇ äßæä ÞÏ ÃÏÑÌäÇ ÚäÕÑ ÇáÊÍßã æãÇ ÈÞí ÓæÇÁ ÇÓÊÎÏÇãå

ÊÚÑÝ ÃßËÑ Úáì ÚäÕÑ ÇáÊÍßã
íÍÊæí ÚäÕÑ ÇáÊÍßã ÇáÎÇÕ íÇáÝáÇÔ Úáì ÇáÚÏíÏ ãä ÇáÎÕÇÆÕ æÇáØÑÞ ãËá :
TotalFrames ÚÏÏ ÇáÝÑíãÇÊ ÇáÊí íÍÊæíåÇ ãáÝ ÇáÝáÇÔ
Quality ÌæÏÉ ÚÑÖ ÇáÝáÇÔ
BackgroundColor ÎáÝíÉ ÇáÝáÇÔ
Movie ÇáãáÝ ÇáÐí íÊã ÚÑÖå
Play ÊÔÛíá
Stop ÇíÞÇÝ
zoom ÊßÈíÑ
æ ....
ÊÌÏ ÞÇÆãÉ ÈåÇ Ýí Çá Package specfication :
ShockwaveFlash_IShockwa_0

ãáÇÍÙÉ :
íãßä ÖÈØ ÈÚÖ ÇáÎÕÇÆÕ Ýí æÞÊ ÇáÊÕãíã Design Time æÐáß ÈÚÑÖ ÎÕÇÆÕ ÚäÕÑ ÇáÊÍßã æÇÎÊíÇÑ ÇáÎÇÕíÉ control Properties



ßæÏ ÇáÈÑäÇãÌ

1- ÊÍãíá ãáÝ ÇáÝáÇÔ :

Declare

Flash_file_Name                Varchar2(100);

Begin

-- Load file from file system
Flash_file_Name:=GET_FILE_NAME  (file_filter => 'Flash Files (*.swf)|*.swf|',message =>'Select Flah File', dialog_type=>OPEN_FILE);  


-- assign this file  to movie property of flash control

ShockwaveFlash_IShockwa_0.Movie(:item('Flash_Blk.Flash').INTERFACE,Flash_file_Name);


End;

If :Flash_blk.play_directly=1 then
  ShockwaveFlash_IShockwa_0.Play(:item('Flash_Blk.Flash').INTERFACE);
Else
  ShockwaveFlash_IShockwa_0.Stop(:item('Flash_Blk.Flash').INTERFACE);


End if;

If :Flash_blk.play_directly=1 then
  ShockwaveFlash_IShockwa_0.ole_loop(:item('Flash_Blk.Flash').INTERFACE,1);
Else
  ShockwaveFlash_IShockwa_0.Ole_loop(:item('Flash_Blk.Flash').INTERFACE,0);


End if;

If :Flash_blk.SHOWPOPUP=1 then
  ShockwaveFlash_IShockwa_0.Menu(:item('Flash_Blk.Flash').INTERFACE,1);
Else
  ShockwaveFlash_IShockwa_0.Menu(:item('Flash_Blk.Flash').INTERFACE,0);


End if;

 ShockwaveFlash_IShockwa_0.Zoom(:item('Flash_Blk.Flash').INTERFACE,:Flash_Blk.Z);

Declare
Cur_Frame Number:=ShockwaveFlash_IShockwa_0.CurrentFrame(:item('Flash_Blk.Flash').INTERFACE);
Begin
ShockwaveFlash_IShockwa_0.GotoFrame(:item('Flash_Blk.Flash').INTERFACE,Cur_Frame+1);
End;

Declare
Cur_Frame Number:=ShockwaveFlash_IShockwa_0.CurrentFrame(:item('Flash_Blk.Flash').INTERFACE);
Begin
ShockwaveFlash_IShockwa_0.GotoFrame(:item('Flash_Blk.Flash').INTERFACE,Cur_Frame-1);
End;