سلام دوستان من میخوام صدارو در سرویس ضبط کنم یعنی اگه تماسی برقرار شد ضدا ضبط بشه از چندتا کتابخونه استفاده کردم در حالت عادی صدارو ضبط میکنه ولی موقع برقراری تماس هیچی ضبط نمیکنه یعنی کلا هیچ فایلی توی مسیری که تعیین کردم ساخته نمیشه
این کدی که نوشتم
Sub Process_Globals
Dim psl As PhoneStateListener
Dim rec As AudioRecorder
Dim b As Boolean
End Sub
Sub Service_Create
psl.Initialize("psl",True)
psl.startListeningForEvent(psl.LISTEN_CALL_STATE)
rec.Initialize
b=False
End Sub
Sub psl_onCallStateChanged (State As Int, incomingNumber As String)
If State =1 Then
LogColor("تماس دریافتی از :" & incomingNumber,Colors.Blue)
End If
If State =2 Then
LogColor("تماس با شماره :" & incomingNumber,Colors.Green)
audiorec
b= True
End If
If State=0 Then
If b=True Then
LogColor("تماس پایان یافت",Colors.Yellow)
rec.stop
End If
End If
End Sub
Sub audiorec
rec.AudioSource=rec.AS_DEFAULT
rec.OutputFormat =rec.OF_DEFAULT
rec.AudioEncoder =rec.AE_DEFAULT
rec.setOutputFile(File.DirDefaultExternal,"o.mp3")
rec.prepare()
rec.start
End Sub
سوال
b4a developer 0
سلام دوستان من میخوام صدارو در سرویس ضبط کنم یعنی اگه تماسی برقرار شد ضدا ضبط بشه از چندتا کتابخونه استفاده کردم در حالت عادی صدارو ضبط میکنه ولی موقع برقراری تماس هیچی ضبط نمیکنه یعنی کلا هیچ فایلی توی مسیری که تعیین کردم ساخته نمیشه
این کدی که نوشتم
Sub Process_Globals
Dim psl As PhoneStateListener
Dim rec As AudioRecorder
Dim b As Boolean
End Sub
Sub Service_Create
psl.Initialize("psl",True)
psl.startListeningForEvent(psl.LISTEN_CALL_STATE)
rec.Initialize
b=False
End Sub
Sub psl_onCallStateChanged (State As Int, incomingNumber As String)
If State =1 Then
LogColor("تماس دریافتی از :" & incomingNumber,Colors.Blue)
End If
If State =2 Then
LogColor("تماس با شماره :" & incomingNumber,Colors.Green)
audiorec
b= True
End If
If State=0 Then
If b=True Then
LogColor("تماس پایان یافت",Colors.Yellow)
rec.stop
End If
End If
End Sub
Sub audiorec
rec.AudioSource=rec.AS_DEFAULT
rec.OutputFormat =rec.OF_DEFAULT
rec.AudioEncoder =rec.AE_DEFAULT
rec.setOutputFile(File.DirDefaultExternal,"o.mp3")
rec.prepare()
rec.start
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر
0 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.