zoukankan      html  css  js  c++  java
  • delphi for android 获取手机号

    delphi for android 获取手机号

    uses
      System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
      FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,Androidapi.JNI.GraphicsContentViewText,
      Androidapi.JNIBridge,  Androidapi.JNI.Telephony, Androidapi.JNI.JavaTypes,
      FMX.Helpers.Android, FMX.StdCtrls;
    
    type
      TForm1 = class(TForm)
        btn1: TButton;
        lbl1: TLabel;
        procedure btn1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
      TelephonyManager: JTelephonyManager;
      TelephonyServiceNative: JObject;
    
    implementation
    
    {$R *.fmx}
    
    procedure TForm1.btn1Click(Sender: TObject);
    begin
      TelephonyServiceNative := SharedActivityContext.getSystemService
        (TJContext.JavaClass.TELEPHONY_SERVICE);
      if Assigned(TelephonyServiceNative) then
          TelephonyManager := TJTelephonyManager.Wrap
            ((TelephonyServiceNative as ILocalObject).GetObjectID);
      lbl1.Text:=JStringToString(TelephonyManager.getLine1Number);//取得手机号
    
    end;
    
    ---------------------
  • 相关阅读:
    B-树和B+树
    线程与内核对象的同步-2
    线程与内核对象的同步
    高级线程同步 临界区
    Levenshtein Distance (编辑距离) 算法详解
    平衡二叉树
    静态查找表
    C++中的容器类详解
    How do I list all tables/indices contained in an SQLite database
    SmartGit STUDY 2
  • 原文地址:https://www.cnblogs.com/m0488/p/9750790.html
Copyright © 2011-2022 走看看