盒子论坛 v2.1

unit UnitMainScreen;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.Controls.Presentation, FMX.StdCtrls,BroadcastReceiver
  {$IFDEF ANDROID}
  ,Androidapi.JNI.GraphicsContentViewText
  ,Androidapi.Helpers
  ,Androidapi.JNI.Telephony
  ,Androidapi.JNI.JavaTypes
  ,Androidapi.JNIBridge

  ,Androidapi.JNI.Os
  {$ENDIF}
  ,MainUnit;

type
  TMainScreen = class(TForm)
    ToolBar1: TToolBar;
    ToolBar2: TToolBar;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    StyleBook1: TStyleBook;
    procedure BroadcastReceiverReceive(Context: JContext; Intent: JIntent);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
    BroadcastReceiver:TBroadcastReceiver;
  public
    { Public declarations }
  end;

var
  MainScreen: TMainScreen;

implementation

uses ToastAndroid;

{$R *.fmx}

procedure TMainScreen.BroadcastReceiverReceive(Context: JContext;
  Intent: JIntent);
{$IFDEF ANDROID}
var
  telephonyManager: JTelephonyManager;
  obj: JObject;
  Temp: String;
  list: JPhoneStateListener;
  Iintent:JIntent;
begin
  if not BroadcastReceiver.HasPermission('android.permission.READ_PHONE_STATE') then
  begin
    ShowMessage('You don''t have permission for Read Phone State!');
    Exit;
  end;

  Obj := SharedActivityContext.getSystemService(TJContext.JavaClass.TELEPHONY_SERVICE);
  telephonyManager := TJTelephonyManager.Wrap( (obj as ILocalObject).GetObjectID );
// telephonyManager.listen();

  Temp := JStringToString(intent.getStringExtra(StringToJString('incoming_number')));
  if Temp.Length > 0 then
    Toast('In coming call number: '+Temp,TToastLength.ShortToast)
      if Temp = '1371510xxxx' then

  else
    Toast('No Number..',TToastLength.ShortToast);
{$ELSE}
begin
{$ENDIF}
end;

procedure TMainScreen.Button1Click(Sender: TObject);
begin
  BroadcastReceiver:= TBroadcastReceiver.Create(self);
  BroadcastReceiver.onReceive:=BroadcastReceiverReceive;
  BroadcastReceiver.RegisterReceive;
end;

procedure TMainScreen.Button2Click(Sender: TObject);
begin
  BroadcastReceiver.Add('android.intent.action.PHONE_STATE');
end;

procedure TMainScreen.Button3Click(Sender: TObject);
begin
  BroadcastReceiver.SendBroadcast('android.intent.action.PHONE_STATE')
end;

procedure TMainScreen.Button4Click(Sender: TObject);
begin
  Close;
end;

end.
----------------------------------------------
Delphi业余爱好者

作者：

gxxuej (kk)	▲▲▲▲▲	-
	普通会员

2016/1/26 17:04:11

3楼：

这段代码一切OK，但把这些代码放在在Serivces中，编译安装通过，但始终没有反应，监听不到来电，不知问题在哪？请问各位高手：在seattle Android Serivces中实现receiver有什么特别的要求吗？能否给一个在Android Serivces 中检测电话状态的Demo?
----------------------------------------------
-

作者：

ww1000 (Delphis)	▲▲▲▲▲	-
	普通会员

2016/2/17 13:07:42

4楼：

d
----------------------------------------------
阳光总在

信息

登陆以后才能回复