Gracias Neftali
El codigo del ejemplo da el IMEI al cambiar la funcion me da el numero de telefono pero aparentemente en hexadecimal
aca les dejo el codigo, si alguien tiene alguna idea se lo agradezco
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
obj: JObject;
tm: JTelephonyManager;
identifier: String;
begin
identifier:= '';
obj := SharedActivityContext.getSystemService(TJContext.JavaClass.TELEPHONY_SERVICE);
if obj <> nil then
begin
tm := TJTelephonyManager.Wrap( (obj as ILocalObject).GetObjectID );
if tm <> nil then
identifier := JStringToString(tm.getLine1Number);
end;
if identifier = '' then
identifier := JStringToString(TJSettings_Secure.JavaClass.getString(SharedActivity.getContentResolver,
TJSettings_Secure.JavaClass.ANDROID_ID));
label1.Text:=identifier;
end;
y estas son las unit que hay que agregar
Código Delphi
[-] Androidapi.JNI.Telephony, Androidapi.JNI.Provider ,
Androidapi.JNIBridge, Androidapi.JNI.GraphicsContentViewText ,
Androidapi.JNI.JavaTypes,FMX.Helpers.Android, FMX.StdCtrls;
Saludos !!!!