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

[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

موفق باشید