새로운 글
새로운 덧글

Firemonkey [Android] 폰번호 가져오기

2014.09.05 01:48

타락천사 조회 수:17735

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

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


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;

번호 제목 글쓴이 날짜 조회 수
공지 [데브기어 컨설팅] 모바일 앱 & 업그레이드 마이그레이션 [1] 관리자 2017.02.06 2944
공지 이 달의 기술자료 & 기술레터 관리자 2017.02.06 567
공지 [프로그래밍 강의] 2018.5~2018.7 (델파이/C++빌더 마스터 과정-7월 개강) 관리자 2015.01.22 6012
공지 RAD Studio(Delphi, C++Builder) 시작하기 관리자 2015.06.30 10467
공지 RAD 스튜디오로 개발된 모바일 앱 사례(17년 12월 13일 업데이트) 험프리 2014.01.16 147717
845 윈도우와 맥 개발 시작을 위한 파이어몽키 코스북: 무료 다운로드 제공(385페이지) 관리자 2013.04.05 151956
844 델파이 튜토리얼 자습서 이용 안내 관리자 2014.09.01 70796
843 이 달의 기술자료 - 2014년 11월 험프리 2014.10.13 53865
842 CD-ROM 열고 닫기 박병일 2011.12.22 44533
841 이 달의 기술자료 - 2014년 12월 file 험프리 2014.11.26 32209
840 이 달의 기술자료 - 2014년 6월 file 험프리 2014.06.05 29662
839 RAD Studio XE6 Update1 발표 [1] Humphery 2014.06.20 29200
» [Android] 폰번호 가져오기 [1] 타락천사 2014.09.05 17735
837 델파이 XE2에서 dbExpress를 이용해 오라클 연결하기 file 박병일 2012.02.15 17222
836 최신버전에서 ComPort(시리얼 통신) 컴포넌트 설치안내 [10] file 험프리 2013.12.04 16346
835 이 달의 기술자료 - 2014년 4월 file 험프리 2014.04.03 16252
834 SendMessage 함수를 이용한 메세지 전송 관리자 2012.01.05 16131
833 이 달의 기술자료 - 2015년 03월 험프리 2015.02.25 15589
832 델파이 XE2 로 아이폰 하드웨어 컨트롤 하기 박병일 2012.01.19 15154
831 다중 클라이언트를 위한 DataSnap 서버 만들기 관리자 2011.12.22 14868
830 이 달의 기술자료 - 2015년 02월 file 험프리 2015.01.29 14775
829 델파이XE2의 VCL Styles 활용하기 박병일 2012.01.19 14275
828 파이어몽키 기반의 아이폰앱 개발에서 주소록 가져오기 박병일 2012.01.25 13746
827 파이어몽키 3D Text Editor file 박병일 2012.02.06 13684


광고 모듈이 설치되어 있지 않아 실행을 중단합니다..