سلام میکنم به همه همراهان دوست داشتی سایت یاهو ۹۸ !
خب امروز به درخواست یکی از دوستان کتابخانه AudioRecorder که برای ضبط مکالمات تلفنی در B4A استفاده میشه رو آماده کردیم.
شما توسط این کتابخانه، میتونید برنامه ای جهت ضبط مکالمات تلفنی بسازید که میتونه بسیار بسیار ازش استقبال بشه!
به علاوه بر آماده کردن خود کتابخانه، آموزش متنی اون رو هم براتون تدارک دیدیم که میتونید از اون هم کمال استفاده رو ببرید!
- ابتدا کتابخانه را از انتهای همین صفحه دانلود، و متغیر آنرا تعریف کنید :
Dim rec As AudioRecorder
- سپس میبایست برای ضبط مکالمه، کد زیر را در مکان دلخواه قرار دهید :
rec.Initialize() rec.AudioSource = rec.As_MIC rec.OutputFormat = rec.OF_DEFAULT rec.AudioEncoder = rec.AE_AMR_NB DateTime.DateFormat = "yyMMddHHmmss" rec.setOutputFile(File.DirRootExternal,"/Recordings/"&DateTime.date(DateTime.now) &".wave") rec.MaxDuration=10000 rec.prepare() rec.start
- و این کد رو هم برای متوقف کردن فرایند ضبط باید در مکان مناسب قرار بدید :
rec.stop
- حالا شما باید چک کنید که هر وقت تماس بر قرار شد، کد دوم و وقتی تماس پایان یافت، کد سوم اجرا بشه!