자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

안녕하세요. 

안드로이드에서 생성된 파일을 메일 등으로 보내는 루틴은

wwEmailWithAttachment.pas를 통해 구현을 했습니다.

그러나 안드로이드 7.1에서는 되었는데

그 이후 버젼에서는 아래 사진과 같이 에러가 발생합니다.

권한문제인것 같습니다만 해결할 방법은 있을까요?

 

----------- 추신 ---------------

wwEmailWithAttachment.pas 내 안드로이드 부분을 인텐트를 사용하여

다음과 같이 수정했습니다.

{$region 'android'}

{$ifdef android}

procedure wwEmail(Recipients: Array of String; ccRecipients: Array of String;

  bccRecipients: Array of String; subject, Content, AttachmentPath: string;

  mimeTypeStr: string = '');

var

  Intent: JIntent;

  Uri: Jnet_Uri;

  AttachmentFile: JFile;

  i: integer;

  emailAddresses: TJavaObjectArray<JString>;

begin
  Intent := TJIntent.Create;
  Intent.setAction(TJIntent.JavaClass.ACTION_SENDTO);
  Intent.setData(TJnet_Uri.JavaClass.parse(StringToJString('mailto:')));
 
  emailAddresses := TJavaObjectArray<JString>.Create(length(Recipients));
  for i := Low(Recipients) to High(Recipients) do
    emailAddresses.Items[i] := StringToJString(Recipients[i]);
 
  AttachmentFile := TJFile.JavaClass.init(StringToJString(AttachmentPath));
  Uri := TJnet_Uri.JavaClass.fromFile(AttachmentFile);
 
  Intent.putExtra(TJIntent.JavaClass.EXTRA_EMAIL, emailAddresses);
  Intent.putExtra(TJIntent.JavaClass.EXTRA_SUBJECT, StringToJString(subject));
  Intent.putExtra(TJIntent.JavaClass.EXTRA_TEXT, StringToJString(Content));
  Intent.putExtra(TJIntent.JavaClass.EXTRA_STREAM, TJParcelable.Wrap((Uri as ILocalObject).GetObjectID));
 
  SharedActivity.startActivity(Intent);
end;
{$endif}
{$endregion}
 
그러나 실행해보면 ''첨부화일에 대한 권한이 거부되었습니다."라고 화일이 첨부되지 않는데
해결방법이 있을까요?
 

 

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 19791
공지 유용한 관련 사이트 관리자2 2014.03.20 58761
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 102313
1819 Xe5에서 안드로이드 버전 얼마까지 지원되나요? [1] 농가사랑 2016.06.01 216
1818 안녕하세요. teeresou.res, teefonts.res 관련 질문 입니다. file 클라장이 2016.06.01 205
1817 부팅시 자동실행(브로드캐스트 리시버)예제를 따라하니 앱이 강제 종료됩니다. [1] file 김태윤 2016.06.01 811
1816 [질문]문장에서 원하는 단어 검색 하는 방법이 궁금합니다 [6] delphi 2016.06.02 4130
1815 안드로이드 디버깅이 재대로 실행되지 않습니다. [3] hsson 2016.06.03 435
1814 베를린 설치 후 시애틀에서 개발하던 소스 읽어들인후,, 코드 도움말 팝업 안됨.. 별땅땅쫑 2016.06.07 169
1813 다국어 사용시 에러 생기는 이유를 알려주세요 [3] silkroad99 2016.06.08 300
1812 델파이 프로페셔널버젼에서 로컬DB 개발작업이 가능한가요? [1] 드레곤 2016.06.09 286
1811 LiveBinding을 이용하여 DB와 Grid, Edit를 연결하고 DB에 변경된 데이터를 저장하는 방법 문의드립니다. [2] 기룬이 2016.06.09 736
1810 [시애틀]비콘을 안드로이드 서비스로 감지하는데 자꾸 응답없음으로 강제종료됩니다. [2] 김태윤 2016.06.09 553
1809 ios ,아이폰 mssql 2000 데이터접속시 한글깨짐 [4] file 텔로스김 2016.06.10 1120
1808 win8 에서 실행시키면 pagecontrol의 각 tab 부분이 하얗게만 나옵니다.(글자도 안나옴) [3] file 하얀돌 2016.06.10 913
1807 10 seattle 배포파일 생성이 되지 않습니다. [1] 이정규 2016.06.10 325
1806 델파이 10.1 베를린에 포함된 InterBaseXE7 문의 드립니다. [1] 짧굵 2016.06.10 231
1805 [베를린] 동일한 프로젝트를 베를린으로 빌드하면 세마포어 핸들이 증가합니다. 델사냥 2016.06.12 171
1804 개발구현 문의 [1] komi1 2016.06.14 123
1803 [시애틀]디버그 모드 진입 불가 [1] 김태윤 2016.06.14 423
1802 안드로이드 플랫폼에서 jpg, png파일 포맷 사용하려면 [2] superman 2016.06.15 769
1801 윈도우 8에서 10으로 업데이트 후 인터베이스 접속에 어려움을 겪고 있습니다. [1] file 손보라 2016.06.15 542
1800 Delphi XE7 설치 시 오류 발생의 건 [1] 최슬기 2016.06.15 336