Firemonkey [Android] 폰번호 가져오기

2014.09.05 01:48

타락천사 조회 수:36652

스마트폰 전화번호 가져 옵니다. (전화번호부 아닙니다)

다른 사이트에 거의 동일한 팁이 올라 왔습니다. 아무거나 상관 없습니다.


uses
{$IFDEF Android}
      ,FMX.Platform.Android
      ,FMX.Helpers.Android
      ,Androidapi.JNI.Telephony
      ,Androidapi.JNI.GraphicsContentViewText
      ,Androidapi.JNIBridge
      ,Androidapi.Helpers
{$ENDIF}


.....................


function DoGetPhoneNumber: string;
var
  sTemp: string;
  nPos: integer;
{$IFDEF Android}
  tMgr: JTelephonyManager;
{$ENDIF}
begin
  integer(Result) := 0;
{$IFDEF Android}
  tMgr := TJTelephonyManager.Wrap((SharedActivityContext.getSystemService(TJContext.JavaClass.TELEPHONY_SERVICE)
        as ILocalObject).GetObjectID);
  sTemp := JStringToString(tMgr.getLine1Number);

  nPos := Pos('10', sTemp);
  if nPos > 0 then
    Result := '0' + Copy(sTemp, nPos, MaxInt)
  else
    Result := sTemp;
{$ENDIF}
end;

번호 제목 글쓴이 날짜 조회 수
공지 [DelphiCon 요약] 코드사이트 로깅 실전 활용 기법 (Real-world CodeSite Logging Techniques) 관리자 2021.01.19 7528
공지 [UX Summit 요약] 오른쪽 클릭은 옳다 (Right Click is Right) 관리자 2020.11.16 7279
공지 [10.4 시드니] What's NEW! 신기능 자세히 보기 관리자 2020.05.27 9687
공지 RAD스튜디오(델파이,C++빌더) - 고객 사례 목록 관리자 2018.10.23 14763
공지 [데브기어 컨설팅] 모바일 앱 & 업그레이드 마이그레이션 [1] 관리자 2017.02.06 16476
공지 [전체 목록] 이 달의 기술자료 & 기술레터 관리자 2017.02.06 12246
공지 RAD스튜디오(델파이, C++빌더) - 시작하기 [1] 관리자 2015.06.30 31607
공지 RAD스튜디오(델파이,C++빌더) - 모바일 앱 개발 사례 (2020년 11월 업데이트 됨) 험프리 2014.01.16 167198
1397 N 윈도우와 맥 개발 시작을 위한 파이어몽키 코스북: 무료 다운로드 제공(385페이지) 관리자 2013.04.05 152221
1396 ComPort(시리얼 통신) 컴포넌트 설치안내 [11] file 험프리 2013.12.04 85710
1395 델파이 튜토리얼 자습서 이용 안내 관리자 2014.09.01 71832
1394 [REST API] REST 기반 파일 업로드와 다운로드 구현하기 험프리 2020.08.31 57388
1393 이 달의 기술자료 - 2014년 11월 험프리 2014.10.13 54029
1392 이 달의 기술자료 - 2014년 6월 file 험프리 2014.06.05 50011
1391 CD-ROM 열고 닫기 박병일 2011.12.22 44715
1390 Find the O/S Language Type c2design 2014.07.30 39909
» [Android] 폰번호 가져오기 [1] 타락천사 2014.09.05 36652
1388 이 달의 기술자료 - 2014년 12월 file 험프리 2014.11.26 32365
1387 RAD Studio XE6 Update1 발표 [1] Humphery 2014.06.20 29376
1386 델파이XE2 파이어몽키 기반 아이폰앱 개발에서 제스춰를 인식시키는 방법 박병일 2012.01.25 21804
1385 SendMessage 함수를 이용한 메세지 전송 관리자 2012.01.05 17982
1384 델파이 XE2에서 dbExpress를 이용해 오라클 연결하기 file 박병일 2012.02.15 17563
1383 이 달의 기술자료 - 2014년 4월 file 험프리 2014.04.03 16750
1382 다중 클라이언트를 위한 DataSnap 서버 만들기 관리자 2011.12.22 15874
1381 이 달의 기술자료 - 2015년 03월 험프리 2015.02.25 15757