مشکل در قرار دادن فایل در برنامه

[raina123]

سلام
من یه برنامه دارم که می خوام توش فایل بزارم ولی هر چی می زارم چه موزیک و چه فونت . فایل رو در آدرس قرار میده ولی اگه بخوام موزیک رو پخش کنم یا فونت رو باز کنم ارور میده . البته فایل های wav رو درست دیکد می کنه ولی اگه همون هم حجمش زیاد باشه کیفیتش خراب میشه

من از این کد برای دیکد کردن استفاده می کنم .



Dim SoundBuffer As String
Buffer = StrConv(LoadResData(101, "CUSTOM"), vbUnicode)
Open "d:\ddd.wav" For Output As #1
Print #1, Buffer
Close #1



ممنون میشم بگید مشکل از کجا هستش . اگر هم خواستید سورس رو قرار بدم

[محسن واژدی]

سلام علیکم
WAVE یک فایل باینریست و چون کلیه دستورات بالا برای داده های رشته ای کاربرد دارد خطا می ده، بصورت زیر اصلاح کنید:
Private Sub Command1_Click()
Dim Buffer() As Byte
Buffer = LoadResData(101, "CUSTOM")
Open "d:\ddd.wav" For Binary As #1
Put #1, , Buffer
Close #1
End Sub

ساخت فایل RES برای VB (http://barnamenevis.org/showthread.php?406079-%DB%8C%D8%A7%D8%AE%D8%AA-%D9%81%D8%A7%DB%8C%D9%84-RES-%D8%A8%D8%B1%D8%A7%DB%8C-VB&p=1842459&viewfull=1#post1842459)

موفق باشید