عدم پخش صدای ضبط شده!
با سلام خدمت همه
این سورس ضبط مکالمه در برنامه منه:
۱ ۲ ۳ ۴ ۵ ۶ ۷ ۸ ۹ ۱۰ ۱۱ ۱۲ ۱۳ ۱۴ ۱۵ ۱۶ ۱۷ ۱۸ ۱۹ ۲۰ |
Dim rec As AudioRecorder Dim year As String=DateTime.GetYear(DateTime.Now) Dim mount As String=DateTime.GetMonth(DateTime.Now) Dim day As String=DateTime.GetDayOfMonth(DateTime.Now) Dim hurse As String=DateTime.GetHour(DateTime.Now) Dim minute As String=DateTime.GetMinute(DateTime.Now) Dim date As String= year & "" & mount & "" & day rec.AudioSource=rec.AS_MIC rec.OutputFormat=rec.OF_THREE_GPP rec.AudioEncoder=rec.AE_AMR_NB Try rec.setOutputFile(File.DirRootExternal,"ضبط مکالمه خودکار/record" & "-" & date & "||" & hurse & ":" & minute & ".mp3") Catch ToastMessageShow(LastException,False) End Try rec.prepare rec.start |
این سورس ضبط میکنه صدارو، اما وقتی میای صدای ضبط شده رو پخش کنی، پیام میده که قالب فایل درست نیست!! این درحالیه که قالب فایل mp3 هست.
ممنون میشم یکی بگه که این سورس مشکلش کجاست.
پاسخ ها ( 2 )
سلام
پوشه ای که صدا رو داخلش ذخیره میکنید، اسمش رو لاتین(انگلیسی) بزارید.
تست کنید ببینید جواب میده یا نه
متاسفانه نشد!!
شما راهکار دیگه ای سراغ دارید؟
سلام
ابتدا که برای prepare باید () بزارید، به صورت زیر:
حالا نمیدونم پسوند فایل صوتی رو mp3 هم میشه گذاشت یا نه، پسوند فایل رو wav بزارید ببینید حل میشه، کد قسمت rec.setOutputFile رو با کد زیر جایگزین کنید:
در واقع؛ تمام کدهاتون به شکل زیر میشه:
برای ساخت پوشه توسط برنامه از کد زیر استفاده کنید:
موفق باشید.
سلام مجدد.
دوست عزیز نشد!!
البته اینو بدونید که من این کد رو داخل یه سرویس نوشتم که هرموقع یکی زنگ بزنه یا کاربر خودش شماره بگیره، گوشی خود کار مکالمه رو ضبط کنه.
حالا راه دیگه ای مد نظرت نیست؟!
با دیگر سورس ها و دیگر کتابخونه ها هم تست کردید؟
راستش سورس دیگه ای پیدا نکردم.
شما چیز سورسی داری؟
تو سایت بیسیک گشتم؛ سه کتابخونه بود به همراه مثال که برای دانلود نیاز به حساب کاربری ویژه بود.
در انجمن های بیسیک هم بگردید ببینید کتابخونه ضبط صدا نسخه ایرانی کسی نوشته یا نه