كيف اجعل مقطع فلم يعمل على البرنامج من داخل إدارة Resource ؟؟

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

ok كيف اجعل مقطع فلم يعمل على البرنامج من داخل إدارة Resource ؟؟

مُساهمة من طرف Microformt في الثلاثاء نوفمبر 26, 2013 2:55 pm

الساده الكرام
 السلام عليكم ورحمة وبركاته
 كيف اجعل مقطع فلم  يعمل على البرنامج من داخل إدارة Resource  ؟؟
 بدل من من خروج مقطع الفلم من Resource

نامل الاطلاع على برنامجي المرفق والتعديل عليه والله يحفظكم ويرعاكم
المرفقات
softma.zip لا تتوفر على صلاحيات كافية لتحميل هذه المرفقات.(10 Ko) عدد مرات التنزيل 10
avatar
Microformt
.....
.....

تاريخ التسجيل : 10/11/2013
المساهمات : 91
النقاط : 171
التقيم : 0
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

ok رد: كيف اجعل مقطع فلم يعمل على البرنامج من داخل إدارة Resource ؟؟

مُساهمة من طرف المبرمج الطموح في الأربعاء نوفمبر 27, 2013 6:33 am

أهلا بك اختى الكريمة .....لا نستطيع تشغيل أى ميديا أو حتى صور من داخل ملف المصادر Resource دون استدعائه من داخل الملف ....وذلك لانه تم تخزين تلك البيانات فى داخل ملف المصادر بتمثيل ثنائى ....والله أعلم Very Happy Very Happy 
avatar
المبرمج الطموح
الاشراف
الاشراف

تاريخ التسجيل : 18/02/2011
المساهمات : 117
النقاط : 213
التقيم : 6
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

ok رد: كيف اجعل مقطع فلم يعمل على البرنامج من داخل إدارة Resource ؟؟

مُساهمة من طرف السنى في الأربعاء نوفمبر 27, 2013 8:33 am

يوجد حل وهو لتشغيل ملف wav بأستخدام sndPlaySound  على النحو التالى :

قم بالاعلان عن المتغيرات التالية فى قسم التصريحات العامة :

الكود:
Option Explicit
Private Const SND_ASYNC     As Long = &H1
Private Const SND_MEMORY    As Long = &H4
Private Const SND_NODEFAULT = &H2
Private Const Flags& = SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
                                                                             ByVal uFlags As Long) As Long
_ قومى بوضع زر أمر و ليكن "تشغيل " ثم أكتبى الشفرات التالية فى حدث النقر :
الكود:
Private Sub Command1_Click()
 
Dim b As String
     b = StrConv(LoadResData(101, "custom"), vbUnicode)
    sndPlaySound b, Flags&
    
End
و هكذا نكون قد قمنا بتشغيل الملف الصوتى بصيغة wav مباشرة من داخل ملف المصادر دون الحاجة الى استدعائه
avatar
السنى
.......
.......

تاريخ التسجيل : 18/02/2011
المساهمات : 186
النقاط : 346
التقيم : 18
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

ok رد: كيف اجعل مقطع فلم يعمل على البرنامج من داخل إدارة Resource ؟؟

مُساهمة من طرف السنى في الأربعاء نوفمبر 27, 2013 8:41 am

وبما أنك تستخدى الاداة animation control لتشغيل ملف avi يمكنك استخدام الكود التالى لتشغيل الملف مباشرة من ملف المصادر على النحو التالى :

الكود:
Option Explicit
Private Const WM_USER = &H400&
Private Const ACM_OPEN = WM_USER + 100&
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long
Private Sub Command1_Click()
  
    Dim ResID As Long
    ResID = 101
 
 SendMessage Animation1.hwnd, ACM_OPEN, App.hInstance, ResID
 
End Sub
avatar
السنى
.......
.......

تاريخ التسجيل : 18/02/2011
المساهمات : 186
النقاط : 346
التقيم : 18
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

ok رد: كيف اجعل مقطع فلم يعمل على البرنامج من داخل إدارة Resource ؟؟

مُساهمة من طرف السنى في الأربعاء نوفمبر 27, 2013 11:35 am

تطبيقك بعد التعديل عليه على الرابط التالى :

http://zakyshny.eu5.org/Play%20AVI%20Standard%20Res.zip
avatar
السنى
.......
.......

تاريخ التسجيل : 18/02/2011
المساهمات : 186
النقاط : 346
التقيم : 18
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

ok رد: كيف اجعل مقطع فلم يعمل على البرنامج من داخل إدارة Resource ؟؟

مُساهمة من طرف Microformt في الأربعاء نوفمبر 27, 2013 12:41 pm

السنى كتب:تطبيقك بعد التعديل عليه على الرابط التالى :

http://zakyshny.eu5.org/Play%20AVI%20Standard%20Res.zip
اخي العزيز
 السلام عليكم ورحمة وبركاته
 لك مني الف شكر وتقدير  والله يحفظكم ويرعاكم
avatar
Microformt
.....
.....

تاريخ التسجيل : 10/11/2013
المساهمات : 91
النقاط : 171
التقيم : 0
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى