مشكلة في أكواد الصوت

[رولي]

السلام عليكم

عندما نقلت الملف إلى جهاز العميل
ظهرت مشكلة في الأكواد وظهرت رسالة توجهني إلى استعمال نسخة 64bit رغم أن النسخة عندي وعند العميل هي 64 فعلا
ظهرت هذه المشكلة في أكواد إضافة صوت إلى زر داخل أكسيس، وهي: 

Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal filename As String, ByVal snd_async As Long) As Long
Function Playsound(sWavFile As String)
apisndPlaySound sWavFile, 1
End Function

وكان هذا السطر باللون الأحمر 

Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal filename As String, ByVal snd_async As Long) As Long
 

أرجو الإفادة وآسف على كثرة الأسئلة ❤️
 

[ابوخليل]

ادرج ptrsafe

ليصبح

Declare PtrSafe Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal filename As String, ByVal snd_async As Long) As Long

 

[أمير ادم]

7 ساعات مضت, ابوخليل said:

ادرج ptrsafe

ليصبح

Declare PtrSafe Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal filename As String, ByVal snd_async As Long) As Long

 

الله يعطيك العافية بالفعل هذه مشكله كانت تقابلني دائما

[رولي]

شكرا جزيلا لكم
ربنا لا يحرمنا من أفضالكم

تحياتي من مصر

[ابو جودي]

يا استاذ @رولي 

اتفضل راجع الموضوع الاتى قمت بالتطوير على الاكواد لاضافاء مرونى فى التعامل مع الاصوات ذوات الامداد MP3 , WAV 

ودائما احاول قدر المستطاع عند كتابة الأكواد مراعاة التعامل مع كلتا النواتان 32x , 64x

 

 

[رولي]

شكرا جزيلا سأستخدمه إن شاء الله