Printable View
با این نوشتم و جواب داد :
کد:Me.MMControl1.FileName = ("c:\Windows\media\Windows XP Logon Sound.wav")
Me.MMControl1.Command = "Open"
Me.MMControl1.Command = "Play"
ولی با عوض کردن مسیر فایل موزیک دیگه کار نمیکنه! بنابراین روی کامپیوتر دیگه هم کار نخواد کرد! باید یه جوری فایل موزیک رو داخل فایل exe جاسازی بکنم. میخوای یه چیزی شبیه با کیجین درست کنم که وقتی اجرا میکنه شروع بکنه به پخش آهنگ!
سلام بر اساتید
من یه برنامه نوشتم با این زبان در برنامه ام قابلیت گرفتن نسخه پشتیبانی از Data Base را قرار دادم بعد وقتی از Data Base نسخه پشتیبان میگیرم یهو اسکین انگار پاک میشه و برنامه ارور میده.
مشکلش چی هست؟ باید چه کرد؟
خب... این آهنگ تو پوشه ویندوزه...!؟! پس یعنی می تونی... اون کد رو با این عوض کنی...!؟! :نقل قول:
خب... این یه راهش بود...!؟! یه راهش هم اینه که فایل رو به صورت Resource به برنامه اضافه کنی... و...!؟! :27:کد:Me.MMControl1.FileName = ( Environ("WinDir") & "\media\Windows XP Logon Sound.wav")
Me.MMControl1.Command = "Open"
Me.MMControl1.Command = "Play"
البته باز کردن و پخش کردنش... (از راه دوم) سرعت رو میاره پایین...!؟! :13:
واسه کیجن ها و... از یه سری ماژول خاص استفاده میشه... که حجم خیلی خیلی کمی دارن...!؟! :27:
مثلاً این...!؟! :
تو خودش چند تا مثال داره...!؟! :13:کد:http://magic.shabgard.org/V2mPlayer-VB-Delphi.zip?Reload
اگه مشکل خاصی داشتی... پ.خ بزن... برات چند تا مثال بفرستم...!؟! :20:
موفق باشی...!؟! :46:
راه ساده تری برای اضافه کردن فایل موزیک به ریسورس داخل فایل exe وجود داره؟
از این ساده تر...؟؟؟ :31:نقل قول:
فکر نمی کنم...!؟! :13:
شما با کدوم قسمتش مشکل دارید...؟؟؟ بگید تا راهنمایی تون کنم...!؟! :20:
مثلا اگه نخوام از یه سری ماژول خاص که گفتی استفاده بکنم :
باید چی کار کنم؟! :31:نقل قول:
واسه کیجن ها و... از یه سری ماژول خاص استفاده میشه... که حجم خیلی خیلی کمی دارن...!؟! :27:
خب... فایل موزیک رو به صورت ریسورس به برنامه تون اضافه کنید... و بعد از اجرای برنامه... به فایل تو یه پوشه مثل temp بسازید... و اون فایل رو به صورت باینری بازش کنید... و فایل موزیک رو هم از داخل ریسورس باز کنید... و توی اون فایل بریزید...!؟! بعد هم با استفاده از همون تابع... (sndPlaySound) آهنگ رو اجراش کنید...!؟! به همین سادگی...!؟! :27: :31:نقل قول:
موفق باشید...!؟! :46:
ببینم این رو خودت استفاده کردی؟ جواب داده؟ من که کارهای زیر رو انجام دادم ولی هیچ اتفاقی نمیفته. ببین اشکال از کجای کارم هست؟ :
از VB6_With_Dll استفاده کردم.
VB --> Standard EXE
Project Menu --> Add Module --> MagicV2mEngine.bas
Ctrl+D --> MagicV2mEngine.res
کد زیر رو به داخل فرم زدم :
کد:
Private Sub Form_Load()
V2m_Init
End Sub
Add-Ins --> Add-In Manager --> VB 6 Resource Editor --> Loaded/Unloaded
Tools --> Resource Editor --> Add Custom Resource
بعد فایل موزیکم رو انتخاب کردم بعد 102 به زیر پوشه "CUSTOM" اضافه شد.
(حجم فایل موزیک 800 کیلو بایت و با فرمت wav هستش.)
روی فرم یه دکمه گذاشتم و توش این کد رو نوشتم :
کد:
Private Sub Command1_Click()
V2mPlayRes 102, "CUSTOM", True
End Sub
خب... این فقط واسه پخش فایل های V2M هستش...!؟! نه فایل های Wav ...!؟! :27: :31:نقل قول:
تو خود برنامه... یه آرشیو از فایل های V2M هست... که می تونید ازشون استفاده کنید...!؟! :21:
آهنگ هاش... همه ش مثل آهنگ های کیجن و پچ و... ست...!؟! :13:
واسه پخش فایل های Wav خودتون باید دست به کار بشید و... یه چند تا تابع بنویسید...!؟! :31:
من اگه وقت کردم... براتون می نویسم...!؟! :20:
روش نوشتنش رو بالا گفتم...!؟! :13:
موفق باشید...!؟! :46:
بفرمایید...!؟! :11:
یه Module به پروژه تون اضافه کنید... و این کد ها رو توش بنویسید...!؟! :
اگه مشکلی بود... من در خدمتم...!؟! :20:کد:Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Const SND_ASYNC = &H1
Private Const SND_NODEFAULT = &H2
Private Function ExtractResFile(FileName As String, ResID, ResType) As Long
On Error GoTo Err_
ExtractResFile = 1
Dim FileBytes() As Byte
Dim FNum As Integer
FileBytes = LoadResData(ResID, ResType)
FNum = FreeFile
Open FileName For Binary As #FNum
Put #FNum, , FileBytes()
Close #FNum
Exit Function
Err_:
ExtractResFile = 0
End Function
Public Function PlayResWav(ResID, ResType) As Long
Dim RndFileName As String
PlayResWav = 1
RndFileName = Environ("TEMP") & "\" & Rnd(65535) * 65535
If ExtractResFile(RndFileName, ResID, ResType) Then
sndPlaySound RndFileName, SND_ASYNC Or SND_NODEFAULT
Else
PlayResWav = 0
End If
End Function
موفق باشید...!؟! :46: