مشکل با audio recorder

[qmars 38]

سلام
با این کتابخونه یه صدایی رو ضبط میکنم 
وقتی میخوام صدای بعدی رو ضبط کنم صدای قبلی حذف میشه و صدای جدید روش میشینه
مشکل کجاست؟

[rasool.g 135]

احتمالا ادرس فایل که برای ذخیره صدای ضبط شده استفاده میشه. یعنی در ضبط بعدی باید ادرس جدید بهش بدید.

[qmars 38]

در 51 دقیقه قبل، rasool.g گفته است :

احتمالا ادرس فایل که برای ذخیره صدای ضبط شده استفاده میشه. یعنی در ضبط بعدی باید ادرس جدید بهش بدید.

آدرس جدید بهش میدم توی یه پوشه ی دیگه که این اتفاق میفته

 

[rasool.g 135]

در 2 دقیقه قبل، qmars گفته است :

آدرس جدید بهش میدم توی یه پوشه ی دیگه که این اتفاق میفته

 

اگر میشه لطفا کد هاتون رو قرار بدید تا من یا دیگر دوستان بتونیم راحت تر کمکتون کنیم.

[qmars 38]

Sub btnRecord_Click
	Dim m As Int

	Log("Record" & Starter.Folder)
	rec.startRecording(m,".mp3",Starter.Folder&Rnd(10,20))
	
	
End Sub

Sub btnStopRecord_Click
	rec.stopRecording
End Sub

هربار آدرس Starter.Folder عوض میشه
حتی اگر عوض هم نشه اسم فایل رندوم داره انتخاب میشه

[rasool.g 135]

شما از این کتابخونه استفاده میکنید؟

B4A - AudioRecorder

[qmars 38]

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

 

[rasool.g 135]

نمونه کد تست شده کار با کتابخونه

و دانلود کتابخونه ای که من استفاده کردم

#Region  Project Attributes 
	#ApplicationLabel: AudioRecorder1
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: false
#End Region

Sub Process_Globals
	Dim AudioRec1 As AudioRecorder
	Dim mp1 As MediaPlayer
End Sub

Sub Globals
	Dim lb1 As Label
	Dim btn1,btn2 As Button
	Dim RecNumber As Long
	Dim lv1 As ListView
End Sub

Sub Activity_Create(FirstTime As Boolean)

	btn1.Initialize("btn1")
	btn1.Text= "شروع ضبط"
	Activity.AddView(btn1,0,0,100%x,10%y)
	
	btn2.Initialize("btn2")
	btn2.Text= "پایان ضبظ"
	Activity.AddView(btn2,0,10%y,100%x,10%y)
	btn2.Enabled = False
	
	lb1.Initialize("lb1")
	lb1.Text = "--"
	lb1.Gravity = Bit.Or(Gravity.CENTER_HORIZONTAL,Gravity.CENTER_VERTICAL)
	Activity.AddView(lb1,0,20%y,100%x,10%y)
	
	If File.Exists(File.DirRootExternal , "AudioRecorder1") = False Then
		File.MakeDir(File.DirRootExternal , "AudioRecorder1")
	End If
	
	lv1.Initialize("lv1")
	Activity.AddView(lv1,0,30%y,100%x,70%y)
	refreshlist
	
	AudioRec1.Initialize()
	mp1.Initialize2("mp1")
	
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub refreshlist
	
	lv1.Clear
	
	Dim lf As List = File.ListFiles(File.Combine(File.DirRootExternal, "AudioRecorder1"))
	For i=0 To lf.Size - 1
		Dim fn As String = lf.Get(i)
		lv1.AddSingleLine(fn)
	Next
	
End Sub

Sub lv1_ItemClick (Position As Int, Value As Object)
		
	Dim fn As String = Value
	mp1.Load(File.Combine(File.DirRootExternal, "AudioRecorder1"),fn)
	mp1.Play
	
End Sub

Sub btn1_Click
		
	AudioRec1.AudioSource = AudioRec1.AS_MIC
	AudioRec1.OutputFormat = AudioRec1.OF_AMR_NB
	AudioRec1.AudioEncoder = AudioRec1.AE_AMR_NB
	
	RecNumber = Rnd(1 , 100000)
	Do While File.Exists(File.DirRootExternal, "AudioRecorder1/Recording-" & RecNumber & ".m4a") = True
		RecNumber = Rnd(1 , 100000)
	Loop
	
	AudioRec1.setOutputFile(File.DirRootExternal, "AudioRecorder1/Recording-" & RecNumber & ".m4a")
	
	AudioRec1.prepare
	AudioRec1.start
	
	lb1.Text = "در حال ضبط ..."
	
	btn1.Enabled = False
	btn2.Enabled = True
	
End Sub

Sub btn2_Click
	
	AudioRec1.stop

	lb1.Text =  " اتمام ضبط فایل شماره " & RecNumber
	refreshlist
	
	btn1.Enabled = True
	btn2.Enabled = False
	
End Sub

Sub mp1_Complete
	ToastMessageShow("mp1_Complete",False)
End Sub

 

B4A - AudioRecorder

[rasool.g 135]

کتابخانه audio (از کتابخانه های اصلی و پیشفرض b4a) هم AudioRecordApp داره که کار باهاش خیلی ساده تره و از ضبط کننده پیشفرض گوشی استفاده میکنه

B4A - Audio

 

[qmars 38]

در 6 دقیقه قبل، rasool.g گفته است :

نمونه کد تست شده کار با کتابخونه

و دانلود کتابخونه ای که من استفاده کردم

#Region  Project Attributes 
	#ApplicationLabel: AudioRecorder1
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: false
#End Region

Sub Process_Globals
	Dim AudioRec1 As AudioRecorder
	Dim mp1 As MediaPlayer
End Sub

Sub Globals
	Dim lb1 As Label
	Dim btn1,btn2 As Button
	Dim RecNumber As Long
	Dim lv1 As ListView
End Sub

Sub Activity_Create(FirstTime As Boolean)

	btn1.Initialize("btn1")
	btn1.Text= "شروع ضبط"
	Activity.AddView(btn1,0,0,100%x,10%y)
	
	btn2.Initialize("btn2")
	btn2.Text= "پایان ضبظ"
	Activity.AddView(btn2,0,10%y,100%x,10%y)
	btn2.Enabled = False
	
	lb1.Initialize("lb1")
	lb1.Text = "--"
	lb1.Gravity = Bit.Or(Gravity.CENTER_HORIZONTAL,Gravity.CENTER_VERTICAL)
	Activity.AddView(lb1,0,20%y,100%x,10%y)
	
	If File.Exists(File.DirRootExternal , "AudioRecorder1") = False Then
		File.MakeDir(File.DirRootExternal , "AudioRecorder1")
	End If
	
	lv1.Initialize("lv1")
	Activity.AddView(lv1,0,30%y,100%x,70%y)
	refreshlist
	
	AudioRec1.Initialize()
	mp1.Initialize2("mp1")
	
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub refreshlist
	
	lv1.Clear
	
	Dim lf As List = File.ListFiles(File.Combine(File.DirRootExternal, "AudioRecorder1"))
	For i=0 To lf.Size - 1
		Dim fn As String = lf.Get(i)
		lv1.AddSingleLine(fn)
	Next
	
End Sub

Sub lv1_ItemClick (Position As Int, Value As Object)
		
	Dim fn As String = Value
	mp1.Load(File.Combine(File.DirRootExternal, "AudioRecorder1"),fn)
	mp1.Play
	
End Sub

Sub btn1_Click
		
	AudioRec1.AudioSource = AudioRec1.AS_MIC
	AudioRec1.OutputFormat = AudioRec1.OF_AMR_NB
	AudioRec1.AudioEncoder = AudioRec1.AE_AMR_NB
	
	RecNumber = Rnd(1 , 100000)
	Do While File.Exists(File.DirRootExternal, "AudioRecorder1/Recording-" & RecNumber & ".m4a") = True
		RecNumber = Rnd(1 , 100000)
	Loop
	
	AudioRec1.setOutputFile(File.DirRootExternal, "AudioRecorder1/Recording-" & RecNumber & ".m4a")
	
	AudioRec1.prepare
	AudioRec1.start
	
	lb1.Text = "در حال ضبط ..."
	
	btn1.Enabled = False
	btn2.Enabled = True
	
End Sub

Sub btn2_Click
	
	AudioRec1.stop

	lb1.Text =  " اتمام ضبط فایل شماره " & RecNumber
	refreshlist
	
	btn1.Enabled = True
	btn2.Enabled = False
	
End Sub

Sub mp1_Complete
	ToastMessageShow("mp1_Complete",False)
End Sub

 

B4A - AudioRecorder

    at com.rootsoft.audiorecorder.AudioRecorder.setAudioSource(AudioRecorder.java:174)
audio source رو روی میکروفن قرار میدم این ارور رو میده 

[qmars 38]

Initialize نکرده بودم
درست شد
خیلی ممنون