Delphi FMX And​​roid应用获取设备电话号码

uses
 System.SysUtils,
 Androidapi.Helpers,
 Androidapi.JNI.GraphicsContentViewText,
 Androidapi.JNI.JavaTypes,
 Androidapi.JNI.Telephony;function DeviceTelephoneNumber: string;var
 TelephonyManagerObj: JObject;
 TelephonyManager: JTelephonyManager;begin
 TelephonyManagerObj:= TAndroidHelper.Context.getSystemService(
   TJContext.JavaClass.TELEPHONY_SERVICE);
 if TelephonyManagerObj <> nil then
 begin
   TelephonyManager := TJTelephonyManager.Wrap(TelephonyManagerObj);
   if TelephonyManager <> nil then
     Result := JStringToString(TelephonyManager.getLine1Number);
 end;

end;

也可以使用此代码，该代码可在Android 5.1及更高版本中使用。

function DeviceTelephoneNumbers: TArray<string>;var
 SubscriptionManager: JSubscriptionManager;
 I, SubscriptionInfoCount: Integer;
 SubscriptionInfoList: JList;
 SubscriptionInfo: JSubscriptionInfo;begin
 // Subscription manager is only available in Android 5.1 and later
 if TOSVersion.Check(5, 1) then
 begin
   SubscriptionManager := TJSubscriptionManager.JavaClass.from(
     TAndroidHelper.Context);
   SubscriptionInfoCount := SubscriptionManager.getActiveSubscriptionInfoCount;
   SubscriptionInfoList := SubscriptionManager.getActiveSubscriptionInfoList;
   SetLength(Result, SubscriptionInfoCount);
   for I := 0 to Pred(SubscriptionInfoCount) do
   begin
     SubscriptionInfo := TJSubscriptionInfo.Wrap(SubscriptionInfoList.get(I));
     if SubscriptionInfo <> nil then
       Result[I] := JStringToString(SubscriptionInfo.getNumber);
   end;
 end
 else
 begin
   // If running on older OS, use older API
   SetLength(Result, SubscriptionInfoCount);
   Result[0] := DeviceTelephoneNumber
 end;end;