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

الأخ الفاضل ...

قم بتشغيل VB وإنشئ مشروع جديد وقم بحفظه بأسم مثلاً (PlayMP3)

ثم أضف إلية إمكانية تحرير الموارد (Resource Editor) كالتالى:

1) من قائمة (Add-Ins) أختار (Add-Ins Manager...) كما هو موضح

2) أختار (VB6 Resource Editor) وأختار كل من ( Load on Startup و Load/Unload ) كما هو موضح

3) ستلاحظ ظهور أيقونة (VB Resource Editor) كما هو موضح

ثم أضف (أنشاء) ملف موارد (Resource File) للمشروع

4) من قائمة (Project) أختار (Add New Resource File) كما هو موضح

5) فى ملفات المشروع ستلاحظ ظهور (Related Documents) وتحتوى على ملف الـ(Resouce) الذى تم إنشائه كما هو موضح

6) أضغط عليه مرتين بالفارة (Double Click) ستظهر نافذة (VB Resource Editod) كما هو موضح

7) أضغط على رمز (Add Custom Resource) "الرمز قبل الأخير (قبل علامة الاستفهام)"

8) أختر ملف (MP3) الذى تريد أضافتة للمشروع ثم (Open) "غالباً سوف يأخذ الرقم 101"

9) أضغط عليه مرتين بالفارة (Double Click) فى حالة الرغبة فى تغير ال (Id) أو (Type) لـ "MP3" بدلاً من "CUSTOM" مثلاً

هكذا نكون قد أرفقنا ملف MP3 كمورد (Resource) داخل ملف Exe

ولكن للأسف هناك مشكلة فالأداة (MediaPlayer) لا تستطيع التعامل مع بيانات الـ(Resource) مباشرتاً، وللدوران حول هذه المشكلة نقوم بحفظ الملف كملف مؤقت فى الـ(Temp) وتشغيله ثم حذفه لاحقاً

عند تحميل الملف:

نحصل على الفهرس المؤقت:

GetTempPath(300, MP3File)

نقوم بإضافة أسم ملف مؤقت (.mp3) للفهرس:

MP3File = MP3File & "~tmp3" & CLng(Rnd * 1000) & ".mp3"

نقوم بتحميل الملف من الـ(Resource) وحفظ محتوياتة فى متغير:

Sound = LoadResData(101, "MP3")

نقوم بحفظ الملف على القرص الصلب:

Open MP3File For Binary As 1
	Put #1, , Sound
Close #1

وبالتالى يكون كود التحميل كالتالى:

Private Sub Form_Load()
	Dim l As Long
	Dim Sound() As Byte

	MP3File = Space(301)

	' الحصول على فهرس التخزين المؤقت
	l = GetTempPath(300, MP3File)
	If l Then
		' محاولة الحصول على أسم ملف فريد
		Randomize
		MP3File = Left$(MP3File, l)
		MP3File = MP3File & "~tmp3" & CLng(Rnd * 1000) & ".mp3"

		' تحميل من الموارد
		Sound = LoadResData(101, "MP3")

		' حفظه على القرص الصلب
		Open MP3File For Binary As 1
			Put #1, , Sound
		Close #1
	End If
End Sub

عند إنهاء البرنامج نحاول حذف الملف المؤقت:

Private Sub Form_Terminate()
	If Len(MP3File) Then DeleteFile MP3File
End Sub

للتشغيل:

Private Sub cmdPlay_Click()
	If Len(MP3File) Then MediaPlayer.Open MP3File
End Sub

للإقاف:

Private Sub cmpStop_Click()
	MediaPlayer.Stop
End Sub

أرجوا أن يكون هذا هو المطلوب وأن يفيدك هذا المثال فى ما تريد إنجازه

بأستخدام (MS-VB 6.0)

PlayMP3.zip

وشكراً

مشكور يا اخ Eng. Usama El-Mokadem

والله انك افدتني كثير و شكراا لك

و عندي سؤال ثاني بخصوص Resource Editor اذا ما في ازعاج

انا عندي البرنامج وربطة في ال Resource Editor زي ما لقت

و عندي صورة كيف احفظ الصورة على الجهاز في مكان معين انا يحدده المستخدم

يعني صورة تنعرض صغيرة واذا يبغا الشخص ينزل الصورة يضغط عليها و يححد المكان وتنزل عنده الصورة الموجودة في Resource Editor وشكرا

الأخ الفاضل ...

دائماً على الرحب والسعة ،

للتعامل مع الصورة يمكنك أستخدام نفس المثال السابق مع بعض التعديلات:

لعرض الصورة أستعمل LoadResPicture بدلاً من LoadResData

ولحفظ الصورة - أحفظها فى المكان الذى يحددة المستخدم بدل من حفظها فى الـ(Temp) وحذفها "طبعاً بالامتداد المناسب"

ويمكنك استخدام CommonDialog لتسهيل أختيار الملف

وشكراً

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

والله الموفق

وممكن تستخدم اخي في حفظ الصورة الي مكان ما الامر التالي :

SavePicture(picturebox1.picture,"c:\testimage.jpeg")

حيث تم في الكود لاسابق هو حفظ الصورة الموجود داخل التكست بوكس في محرك الاقراص السي c:

عفوا الموجود في البكتشر بوكس

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

وجعلها الله في موازين حسناتكم يوم الحساب

وشكرا

مشكور اخوي وجزاك الله خير

بس ممكن طريقة ادارج الصوت لانى مو فاهم طريقة الدمج

وكيف احدد الملف الصوتي المطلوب وشكرا

هذا الكدود لتشغيل الصوت

ضع هذا الكود في مديول:

Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _

(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

ثم ضع هذا الكدود فى الفورم:

Private Sub Form_Load()

'replace c:\music\myfile.wav with the WAV file you want to play

sndPlaySound "c:\music\myfile.wav", 1

'the '1' following the file means that the program should not stop to play the file.

'The sound will play and other events can be happening.

'If you want the whole program to stop while the sound is playing, just change the '1' to '0'.

End Sub

الأخ الفاضل ...

اقتباس

بس ممكن طريقة ادارج الصوت لانى مو فاهم طريقة الدمج

وكيف احدد الملف الصوتي المطلوب وشكرا

الطريقة (كما موضح) تعتمد على تشغيل ملف صوت من الـ(Resources)، أى يكون فى النهايه ملف واحد (exe) يحتوى داخله ملف الصوت، ويستطيع تشغيله.

يتم تحديد ملف الصوت فى الخطوة رقم (8)

كذلك أستخدام الأداة msdxm.ocx ليس فقط يعطيك إمكانية تشغيل ملفات الصوت بأغلب أنواعها (MP3 - WAV - MID - ...etc)

كذلك يمكنك تشغيل ملفات الفيديو (MPG - WMA - AVI - ...etc)

وشكراً

بارك الله فيك لقد أفدتنا كثيراً

الحقيقة يعجز اللسان عن شكرك أخي الكريم

اقتباس

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

سؤال : ممكن طريقة استخراج الملفات المدموجة بالمشروع ؟؟؟؟

الأخ الفاضل ... أحمد الرفاعى

بارك الله فيك، وشكراً كثيراً على كلماتك، وتمنياتى لك بالتوفيق

الخ الفاضل ... المبرمج نور

نعم يمكن أستخراج الملف المدموج، فالكود التالى يقوم بأستخراج البيانات من الـ(Rssource) وحفظها كملف فى (MP3File)، فمثلاً لو أحتجت حفظ الملف على القرص :C بأسم Data.fil ، فخصص أسم الملف لهذا المتغير ("MP3File="C:\Data.fil)

Open MP3File For Binary As 1
	Put #1, , Sound
Close #1

وشكراً