سوال: پخش فایل صوتی بدون باز شدن نرم افزارهای پخش صدا [بایگانی]

قله بلند

شنبه 27 اردیبهشت 1393, 21:57 عصر

سلام دوستانوقتی من برنامه ام رو روی سیستم های مختلف تست کردم دیدم که فایل های صوتی برنامه من روی هر سیستمی با نرم افزار پخش صدای اون سیستم خونده می شه که خودش تولید مشکل می کنه. چه طوری می تونم با زدن دکمه مربوطه روی فرم، صدا رو بشنوم اما هیچ نرم افزار اجرا کننده صدا باز نشه و دیگه از این دست مشکلات پیش نیاید، انگاری صدا پشت پرده اجرا می شه.متشکرم

AbbasSediqi

شنبه 27 اردیبهشت 1393, 21:59 عصر

از OCX ویندوز مدیا پلیر استفاده کن

قله بلند

شنبه 27 اردیبهشت 1393, 22:09 عصر

من این کد رو در رویداد کلید روی فرم نوشته ام

Path = CurrentProject.Path & "\"
CreateObject("Shell.Application").ShellExecute Path + "files\" + "x.mp3"

حالا باید چه کا ر کنم تا از OCX ویندوز مدیا پلیر بتونم استفاده کنم؟

AbbasSediqi

شنبه 27 اردیبهشت 1393, 22:11 عصر

اینم یه نمونه برنامه امیدوارم بهتون کمک کنه

قله بلند

شنبه 27 اردیبهشت 1393, 22:36 عصر

می بخشید اما من از این سر در نیاوردم

alirezabahrami

یک شنبه 28 اردیبهشت 1393, 21:44 عصر

سلام دوستانوقتی من برنامه ام رو روی سیستم های مختلف تست کردم دیدم که فایل های صوتی برنامه من روی هر سیستمی با نرم افزار پخش صدای اون سیستم خونده می شه که خودش تولید مشکل می کنه. چه طوری می تونم با زدن دکمه مربوطه روی فرم، صدا رو بشنوم اما هیچ نرم افزار اجرا کننده صدا باز نشه و دیگه از این دست مشکلات پیش نیاید، انگاری صدا پشت پرده اجرا می شه.متشکرم
سلام
نمونه ضمیمه را تست کن !
یا علی

قله بلند

یک شنبه 28 اردیبهشت 1393, 22:54 عصر

با سلام و تشکر از راهنمایی تون

در برنامه من، وقتی کاربر، جستجویی انجام می ده، مشخصات فایل صوتی هم به دست می آید. من با دستور زیر، به مسیر فایل صوتی دست پیدا می کنم پس کاربر، جستجویی انجام نمی ده بلکه فقط روی یک دکمه کلیک می کنه تا فایل صوتی رو گوش بده.

Path = CurrentProject.Path & "\"
CreateObject("Shell.Application").ShellExecute Path + "files\" + "x.mp3"

حالا من بخش اجرای برنامه شما رو به این بخش اضافه کردم اما خطا می ده.

Path = CurrentProject.Path & "\"
CreateObject("Shell.Application").ShellExecute Path + "files\" + "x.mp3"
With Me.objPlayer.Object
End With

خطای کار من کجاست که صدای فایل صوتی رو با این تغییر نمی تونم بشنوم؟

alirezabahrami

دوشنبه 29 اردیبهشت 1393, 00:08 صبح

با سلام و تشکر از راهنمایی تون

در برنامه من، وقتی کاربر، جستجویی انجام می ده، مشخصات فایل صوتی هم به دست می آید. من با دستور زیر، به مسیر فایل صوتی دست پیدا می کنم پس کاربر، جستجویی انجام نمی ده بلکه فقط روی یک دکمه کلیک می کنه تا فایل صوتی رو گوش بده.

Path = CurrentProject.Path & "\"
CreateObject("Shell.Application").ShellExecute Path + "files\" + "x.mp3"

حالا من بخش اجرای برنامه شما رو به این بخش اضافه کردم اما خطا می ده.

Path = CurrentProject.Path & "\"
CreateObject("Shell.Application").ShellExecute Path + "files\" + "x.mp3"
With Me.objPlayer.Object
End With

خطای کار من کجاست که صدای فایل صوتی رو با این تغییر نمی تونم بشنوم؟
سلام
تمام کدها را حذف کن و در رویداد کمند باتن اجراء ، کدهای زیر را وارد کن!

Dim Path As String
Path = CurrentProject.Path + "\files\x.mp3"
If Len(Path) > 0 Then
With Me.objPlayer.Object
.URL = Path
End With
End If

یاعلی

قله بلند

دوشنبه 29 اردیبهشت 1393, 00:47 صبح

سلام
ممنونم
خیلی عالی بود
جواب داد.:تشویق: