B4A Library AnswerCall Library

Hello everyone,

SoyEli wanted to answer a call automatically in this topic, so I created this library.

It works together with Erel's PhoneEvents PhoneStateChanged.

Note that you should respect the order of events of the sample in phonestateChanged and that it will only work in a service.

Sub PE_PhoneStateChanged (State As String, IncomingNumber As String, Intent As Intent)
    Log("PhoneStateChanged, State = " & State & ", IncomingNumber = " & IncomingNumber)
    Log(Intent.ExtrasToString)
   AC.LetPhoneRing(3000)
   If AC.isRinging == True Then
      AC.AnswerPhone
   End If
   AC.enableSpeakerphone
End Sub

It may not work on all devices (if you can test it out?)
It worked for my Xperia PLAY.

Attachements include the library files and a sample

Tomas

 

[Maartensaps]

ac.enablespeakerphone notworking

Very nice lib but the enablespeakerphone function does not work on my samsung galaxy y duos. :signOops:
The log reports:
Audio Settings Permission Denial: SetSpeakerphoneOn() from pid 32019, uid 10099

Can anything be done for this?

Thanks for all that great work!!

Maarten

 

[Erel]

Add this line to the manifest editor:

AddPermission(android.permission.MODIFY_AUDIO_SETTINGS)

 

[Maartensaps]

Works !

Add this line to the manifest editor:

AddPermission(android.permission.MODIFY_AUDIO_SETTINGS)

That does it. THANKS !!:sign0188:

 

[Maartensaps]

still a little issue

Hi Erel,

Your solution works on a Samsung phone but...
Does a HTC evo WiMax do things diferently?
The speaker does not switch on :-(

Any ideas?

 

[Erel]

What exactly are you trying to achieve?
I'm not really familiar with this library.

 

[Maartensaps]

I am trying to.....

Pick up the phone and switch on the speaker. A simple auto-answer app.

 

[NeoTechni]

I have it set to allow the user to disable the answering abilities in my app, is there a way to turn this off? ie: an enabled property

Or will all calls go through this no matter what?

EDIT: nevermind, it works perfectly.

 

[NeoTechni]

I've added it to my program, but if the display is off when it attempts to answer the call, the lockscreen comes up. Is there any way to bypass this?
Ronny posted a link to this in another forum http://developer.android.com/reference/android/app/KeyguardManager.KeyguardLock.html
Can you add that to the library?

Also, how does it handle call waiting?

 

[Erel]

This link might be helpful: Unlock password locked screen?

 

[NeoTechni]

This link might be helpful: Unlock password locked screen?

Yes, that's perfect. Ty

 

[Maartensaps]

still some issues

I still have some issues.

On a HTC EVO the speaker does not switch on.

On a Star W007 it does not answer calls.

Any ideas ? Can it be a permission issue or android incompatibility ???

The app is compiled with api 16 (I think, as I can not find out where this is set)

Maarten

 

[Erel]

Can it be a permission issue or android incompatibility ???

Check the logs and see whether there is any message related to permissions.

 

[Maartensaps]

Check the logs and see whether there is any message related to permissions.

I will..... as soon as I figure out how to get the phone-log into a file. (see #post136606)
I do not have those phones. That is the problem. :-(

 

[NeoTechni]

A user on an HTC Thunderbolt reports when they click answer, the call gets sent to voicemail.

Is there a mute microphone setting?

 

[brelto85]

on my HTC ONE S don't works!!!

Is possible to do this?

alberto

 

[NeoTechni]

HTC EVO 4g wont answer calls

Also, could you add the ability to handle 2 calls at once?
ie: keep track of the phone number for both, switch between them, or release a specific one?

 

[NeoTechni]

So for those of you having problems with HTC devices not answering calls

You need my keycode transmitter library
http://www.b4x.com/forum/additional...lib-control-system-media-player-your-app.html

dim keyg As MediaController
keyg.MediaButton(KeyCodes.KEYCODE_HEADSETHOOK)

The KeyGen library will not work for it, I tried it first (hence the variable name)

 

[GMan]

can i "listen" to the phone and check, wether the dial tone is (still) heared or not ?
So that i can code a routine with maybe if...then... or similiar.

(This in case that i cant trigger the phonehook up on the other side)

In another Thread depending on the phone lib i asked the same:
http://www.b4x.com/android/forum/threads/phone-library-phone-call-check-if.40865/#post-244882
(So, don't know if it is really a double-post)

 

[koaunglay]

Please ! What is my error?

** Activity (main) Create, isFirst = true **


** Activity (main) Resume **


** Service (forblack) Create **


AsnwerCall has been initialized.


** Service (forblack) Start **


forblack_pe_phonestatechanged (java line: 136)


java.lang.ArrayIndexOutOfBoundsException: length=1; index=1


    at com.aung.blacklis.forblack._pe_phonestatechanged(forblack.java:136)
    at java.lang.reflect.Method.invokeNative(Native Method)
    at java.lang.reflect.Method.invoke(Method.java:511)
    at anywheresoftware.b4a.BA.raiseEvent2(BA.java:175)
    at anywheresoftware.b4a.BA.raiseEvent(BA.java:159)
    at anywheresoftware.b4a.phone.PhoneEvents$ActionHandler.send(PhoneEvents.java:326)
    at anywheresoftware.b4a.phone.PhoneEvents$15.handle(PhoneEvents.java:245)
    at anywheresoftware.b4a.phone.PhoneEvents$16.onReceive(PhoneEvents.java:268)
    at android.app.LoadedApk$ReceiverDispatcher$Args.run(LoadedApk.java:761)
    at android.os.Handler.handleCallback(Handler.java:615)
    at android.os.Handler.dispatchMessage(Handler.java:92)
    at android.os.Looper.loop(Looper.java:137)
    at android.app.ActivityThread.main(ActivityThread.java:4791)
    at java.lang.reflect.Method.invokeNative(Native Method)
    at java.lang.reflect.Method.invoke(Method.java:511)


    at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:789)
    at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:556)
    at dalvik.system.NativeStart.main(Native Method)
java.lang.RuntimeException: Error receiving broadcast Intent { act=android.intent.action.PHONE_STATE flg=0x10 (has extras) } in anywheresoftware.b4a.phone.PhoneEvents$16@427bda50


    at android.app.LoadedApk$ReceiverDispatcher$Args.run(LoadedApk.java:771)
    at android.os.Handler.handleCallback(Handler.java:615)
    at android.os.Handler.dispatchMessage(Handler.java:92)
    at android.os.Looper.loop(Looper.java:137)
    at android.app.ActivityThread.main(ActivityThread.java:4791)
    at java.lang.reflect.Method.invokeNative(Native Method)
    at java.lang.reflect.Method.invoke(Method.java:511)
    at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:789)
    at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:556)
    at dalvik.system.NativeStart.main(Native Method)
Caused by: java.lang.RuntimeException: java.lang.ArrayIndexOutOfBoundsException: length=1; index=1
    at anywheresoftware.b4a.BA.raiseEvent2(BA.java:201)
    at anywheresoftware.b4a.BA.raiseEvent(BA.java:159)


    at anywheresoftware.b4a.phone.PhoneEvents$ActionHandler.send(PhoneEvents.java:326)
    at anywheresoftware.b4a.phone.PhoneEvents$15.handle(PhoneEvents.java:245)
    at anywheresoftware.b4a.phone.PhoneEvents$16.onReceive(PhoneEvents.java:268)
    at android.app.LoadedApk$ReceiverDispatcher$Args.run(LoadedApk.java:761)
    ... 9 more
Caused by: java.lang.ArrayIndexOutOfBoundsException: length=1; index=1
    at com.aung.blacklis.forblack._pe_phonestatechanged(forblack.java:136)
    at java.lang.reflect.Method.invokeNative(Native Method)
    at java.lang.reflect.Method.invoke(Method.java:511)
    at anywheresoftware.b4a.BA.raiseEvent2(BA.java:175)
    ... 14 more

This is my Service code...

#Region  Service Attributes
    #StartAtBoot: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Dim sq1 As SQL
    Dim c1 As Cursor
            Dim mysq_fo As String : mysq_fo = File.DirRootExternal & "/Android/AungLay_black"
                ' ////////////////////
'                Dim names, nums As String
'                Dim texR As TextReader
                Dim numbers() As String
'    --------------------
    Dim pe As PhoneEvents
    Dim pid As PhoneId
    Dim ac As AnswerCall
End Sub
Sub Service_Create
    If File.Exists(mysq_fo, "") = False Then
        File.MakeDir(File.DirRootExternal, "/Android/AungLay_black")
    End If
    ' ---------------------
    If File.Exists(mysq_fo, "Black_db.db") = False Then
        File.Copy(File.DirAssets, "Black_db.db", mysq_fo, "Black_db.db")
    End If
    ' --------------------
    If sq1.IsInitialized = False Then
        sq1.Initialize(mysq_fo, "Black_db.db", True)
    End If
    '    -----------------------------
    pe.InitializeWithPhoneState("pe", pid)
    ac.Initialize("ac")
   
End Sub

Sub Service_Start (StartingIntent As Intent)
    ToastMessageShow("Now Start Service!!!", True)
End Sub

Sub Service_Destroy

End Sub
Sub pe_PhoneStateChanged (State As String, IncomingNumber As String, Intent As Intent)
    ' ------------------ Whit DB
    c1 = sq1.ExecQuery("SELECT Number FROM Black_table")
    For i = 0 To c1.RowCount - 1
        c1.Position = i
                numbers = Array As String(c1.GetString("Number"))
                If numbers(i).Contains(IncomingNumber) Then
                    Kill_Call
'                    ToastMessageShow(IncomingNumber, True)
'                        ac.LetPhoneRing(3000)
'                        If ac.isRinging == True Then
'                            ac.AnswerPhone
'                        End If
'                        ac.enableSpeakerphone
                Else
'                    Kill_Call
                    ToastMessageShow(IncomingNumber, True)
                        ac.LetPhoneRing(3000)
                        If ac.isRinging == True Then
                            ac.AnswerPhone
                        End If
                        ac.enableSpeakerphone                   
                End If
    Next
End Sub
Sub Kill_Call
   '    For This ---- You should add "AddPermission("android.permission.CALL_PHONE")" in manifest editor
   Dim r As Reflector
   r.Target = r.GetContext
   Dim TelephonyManager, TelephonyInterface As Object
   TelephonyManager = r.RunMethod2("getSystemService", "phone", "java.lang.String")
   r.Target = TelephonyManager
   TelephonyInterface = r.RunMethod("getITelephony")
   r.Target = TelephonyInterface
   r.RunMethod("endCall")
End Sub

Please somebody help!

 

[Erel]

This line looks wrong:
If numbers(i).Contains(IncomingNumber) Then