iOS Question Proximity sensor in iOS

[Augusto]

Hi to everybody,

I'm porting an app from B4A to B4i. In B4A I'm able to read the proximity sensor values with

Dim proxSens As PhoneSensors
proxSens.Initialize2(proxSens.TYPE_PROXIMITY, 2)
proxSens.StartListening("ProxData")

Searching in the forum, I haven't found anything to do the same in B4i. Someone could help me?

Thanks

 

[Erel]

Sub EnableProximityMonitoring As Boolean
   Dim no As NativeObject
   no = no.Initialize("UIDevice").RunMethod("currentDevice", Null)
   no.SetField("proximityMonitoringEnabled", True)
   Return no.GetField("proximityMonitoringEnabled").AsBoolean
End Sub

Sub GetProximityState As Boolean
   Dim no As NativeObject
   no = no.Initialize("UIDevice").RunMethod("currentDevice", Null)
   Return no.GetField("proximityState").AsBoolean
End Sub

EnableProximityMonitoring returns true if proximity sensor is supported.
You can then check GetProximityState to get the state. Note that the screen will turn off automatically once you call EnableProximityMonitoring and the proximity sensor state is true.

 

[Augusto]

Thank you Erel, it works!