سوال بخصوص ملف فلاشي بمقدمة المشروع

[اليوناني]

السلام عليم

بداية اعتذر ان كان سؤالي مكرر / ان كان احد قبلي قد سئله / لانني بحثت و لم اجد

السؤال

كلنا نعرف وضع صورة ترحيبية بمقدمة المشروع

انا اريد وضع فلاش ترحيبي متحرك و اريد ان يظهر بدون خلفية اريد فقط الكتابة اذا ممكن الطريقة و لو امكن شرح فيديو

و لكم كل الشكر و التقدير

[ثامر أبو بلقيس]

لا أعــــرف موفق :abc_139:

[عبد الهادي بهاب]

السلام عليم

بداية اعتذر ان كان سؤالي مكرر / ان كان احد قبلي قد سئله / لانني بحثت و لم اجد

السؤال

كلنا نعرف وضع صورة ترحيبية بمقدمة المشروع

انا اريد وضع فلاش ترحيبي متحرك و اريد ان يظهر بدون خلفية اريد فقط الكتابة اذا ممكن الطريقة و لو امكن شرح فيديو

و لكم كل الشكر و التقدير

ادراج فلاش في المقدمة استعمل فقط خاصية startup movie من شريذ الادوات projects


https://www.indigorose.com/content/autoplay-media-studio-startup-movie.jpg

سيشتغل الفلاش قبل انطلاق المشروع اصلا

[اليوناني]

لا أعــــرف موفق :abc_139:

اشكرك اخي الكريم

[اليوناني]

ادراج فلاش في المقدمة استعمل فقط خاصية startup movie من شريذ الادوات projects


https://www.indigorose.com/content/autoplay-media-studio-startup-movie.jpg

سيشتغل الفلاش قبل انطلاق المشروع اصلا

شكرا لك على الرد

ما اردت قوله اريد ملف الفلاش يظهر بخلفية شفافة مثل صور ال png و ليست طريقة تشغيل الفلاش

بدون خلفية فقط الكتابة المتحركة تظهر

[عبد الهادي بهاب]

هذا يتعلق بطريقة حفظك للفلاش

[عبد الهادي بهاب]

مثال
https://up.top4top.net/downloadf-598rjaus1-rar.html

استعمل ادراج في البداية

[عبد الهادي بهاب]

FlashDialog

اسنعمل هذه الاضافة

https://www.youtube.com/watch?v=SAbJ2cZZSEY

[عبود عبود]

FlashDialog

اسنعمل هذه الاضافة

https://www.youtube.com/watch?v=SAbJ2cZZSEY

أحسنت ...... كنت أنتظر وأراقب أن يقوم أحد بالرد بالإجابة الصحيحة :abc_051:

[اليوناني]

اشكركم اخواني

مع الاسف لم ينجح معي الامر

[عبود عبود]

اشكركم اخواني

مع الاسف لم ينجح معي الامر

إرفع ملفك المفتوح لنرى أين هو الخطأ

[عبد الهادي بهاب]

أحسنت ...... كنت أنتظر وأراقب أن يقوم أحد بالرد بالإجابة الصحيحة :abc_051:

و منكم تعلمنا استاذ

[اليوناني]

وجدت ملف مفتوح مطبق بالاضافة و لكن لم اعرف تطبيقه عمليا لو احد من الاخوة يتبرع لنا من وقته و يشرح الطريقة اكون شاكرا له

لتحميل الملف المفتوح

http://www.up-00.com/?Hpex

[ثامر أبو بلقيس]

الاضافة للنسخة 8 ( واثق أن مشكلتك تكمن هنااا)


http://www.mediafire.com/file/4y1ftx6t9g18cbw/FlashDialog.zip

[ثامر أبو بلقيس]

و اذ كنت من هواة صناعة ملفات دل

أكتب لك بلغة البازيك الكود :



Interface IShockwaveFlash Extends IDispatch
get_ReadyState(a)
get_TotalFrames(a)
get_Playing(a)
put_Playing(a)
get_Quality(a)
put_Quality(a)
get_ScaleMode(a)
put_ScaleMode(a)
get_AlignMode(a)
put_AlignMode(a)
get_BackgroundColor(a)
put_BackgroundColor(a)
get_Loop(a)
put_Loop(a)
get_Movie(a)
put_Movie(a)
get_FrameNum(a)
put_FrameNum(a)
SetZoomRect(a,b,c,d)
Zoom(a)
Pan(a,b,c)
Play()
Stop()
Back()
Forward()
Rewind()
StopPlay()
GotoFrame(a)
CurrentFrame(a)
IsPlaying(a)
PercentLoaded(a)
FrameLoaded(a,b)
FlashVersion(a)
get_WMode(a)
put_WMode(a.p-bstr)
get_SAlign(a)
put_SAlign(a)
get_Menu(a)
put_Menu(a)
get_Base(a)
put_Base(a)
get_scale(a)
put_scale(a)
get_DeviceFont(a)
put_DeviceFont(a)
get_EmbedMovie(a)
put_EmbedMovie(a)
get_BGColor(a)
put_BGColor(a)
get_Quality2(a)
put_Quality2(a)
LoadMovie(a,b.p-bstr)
TGotoFrame(a,b)
TGotoLabel(a,b)
TCurrentFrame(a,b)
TCurrentLabel(a,b)
TPlay(a)
TStopPlay(a)
SetVariable(a,b.p-bstr)
GetVariable(a,b.p-bstr)
TSetProperty(a,b,c)
TGetProperty(a,b,c)
TCallFrame(a,b)
TCallLabel(a,b)
TSetPropertyNum(a,b,c)
TGetPropertyNum(a,b,c)
get_SWRemote(a)
put_SWRemote(a)
get_Stacking(a)
put_Stacking(a)

EndInterface

Procedure.l FlashLoadFromData(SwfStart.l,SwfEnd.l,*FlashObject .IShockwaveFlash)
FlashBuffer=AllocateMemory(SwfEnd-SwfStart+8) ; let's make room
If FlashBuffer
PokeL(FlashBuffer,$55665566) ;now write the header
PokeL(FlashBuffer+4,SwfEnd-SwfStart) ; and the file size
CopyMemory(SwfStart,FlashBuffer+8,SwfEnd-SwfStart) ; then copy the whole file.
If CreateStreamOnHGlobal_(FlashBuffer,#True,@FlashStr eam.IStream)=0 ;Create a stream.
*FlashObject\QueryInterface(?IID_IPersistStreamIni t,@FlashPSI.IPersistStreamInit) ; Ask for IPersistStreamInit interface
If FlashPSI
If FlashPSI\load(FlashStream)=0 ;load the stream we created
ReturnValue=1
EndIf
FlashPSI\Release(); self explained
EndIf
FlashStream\Release() ; idem
EndIf
FreeMemory(FlashBuffer) ;idem
EndIf
ProcedureReturn ReturnValue
EndProcedure

Prototype AtlAxAttachControl(a,b,c)
ProcedureDLL BELKISS(strText$)

If OpenLibrary(0,"atl.dll")
AtlAxAttachControl.AtlAxAttachControl = GetFunction(0, "AtlAxAttachControl")
Else
MessageRequester("Error", "OpenLibrary() failed.")

EndIf

CoInitialize_(0)

If OpenWindow(0,0,0,320,240,"",#PB_Window_ScreenCentered|#PB_Window_BorderLess)

HideWindow(0, 1)

SetWindowLong_(WindowID(0),#GWL_EXSTYLE,GetWindowL ong_(WindowID(0),#GWL_EXSTYLE)|#WS_EX_LAYERED)

SetLayeredWindowAttributes_(WindowID(0),RGB(0,0,0) ,0,#LWA_COLORKEY)

CoCreateInstance_(?IID_ShockwaveFlash, 0, $17, ?IID_IShockwaveFlash, @oFlash.IShockwaveFlash)

If oFlash

oFlash\put_WMode("Transparent")
oFlash\put_Quality(1)

AtlAxAttachControl(oFlash, WindowID(0), 0)

FlashLoadFromData(?FlashFileStart,?FlashFileEnd,oF lash)

Delay(100)
HideWindow(0, 0)

Repeat
Event = WaitWindowEvent()

If Event = #WM_LBUTTONDOWN
SendMessage_(WindowID(0) ,#WM_NCLBUTTONDOWN, #HTCAPTION, 0)
EndIf

Until GetAsyncKeyState_(#VK_ESCAPE)

oFlash\Release()

EndIf

CloseWindow(0)

EndIf

CoUninitialize_()



DataSection

IID_IShockwaveFlash:
Data.q $11CFAE6DD27CDB6C,$000054534544B896

IID_ShockwaveFlash:
Data.q $11CFAE6DD27CDB6E,$000054534544B896

IID_IPersistStreamInit:
Data.q $101B4E077FD52380,$13C72E2B00082DAE

FlashFileStart:
IncludeBinary "C:\TestMovie.swf"
FlashFileEnd:
EndDataSection
EndProcedure




بهذا الكود يمكنك انتاج ملف دل يفي بالغرض :abc_139:
توقفت عن بنائها حتى أجد حلا لكيفية الايقاف مازالت هناك حلقة عالقة

و اذ قلت لا : أرفق الفلاش بعينه أو فلاش بنفس مواصفاته اللونية و المؤثرات فقد تجد الاجابات

[اليوناني]

الاضافة للنسخة 8 ( واثق أن مشكلتك تكمن هنااا)
المحتوى المخفي لايقتبس
اشكرك اخي الاضافة موجودة عندي و الملف المفتوح اللذي ارفقته عمل من خلال الاضافة و انا جربت لم ينجح

لو احد يقد ر يساعدني و يقوم بالشرح /كيف تم عملها /

و شكرا على تعبك

[ثامر أبو بلقيس]

اشكرك اخي الاضافة موجودة عندي و الملف المفتوح اللذي ارفقته عمل من خلال الاضافة و انا جربت لم ينجح

لو احد يقد ر يساعدني و يقوم بالشرح /كيف تم عملها /

و شكرا على تعبك

أسهل شيء هو أن تشرح انت أخي الفاضل كيف جربت لمعرفة مواطن الخلل
عندك في تنفيذ الأكواد ؟ ( لاحظ لم تكتب لا أكواد و لاملف مفتوح و لا فلاش للمعاينة )