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

Firemonkey 이메일 첨부화일 접근에러에 대해 권한문제?

2020.06.13 13:11

스카이 조회 수:327

안녕하세요. 

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

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 15896
공지 유용한 관련 사이트 관리자2 2014.03.20 54697
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 98154
1799 listview 에서 런타임에 이미지 넣는부분 [1] 종결자 2019.10.12 323
1798 10.4 Sydney 코드 인사이트 문제 [1] 불나방 2020.06.15 323
1797 [마이그레이션][델파이6>델파이XE8] 델파이 6으로 개발 된 프로그램을 XE8로 컨버젼 한 후 실행 오류 [1] file 똘귀아빠 2015.10.23 323
1796 BDE에서 FireDAC으로 전환후에 FDQuery에서 쿼리조건문에 한글이 들어갈시에는 [1] file 또보기 2016.11.17 325
1795 데이터스냅에서 접속 끊어짐에 대처할 수 있는 방법이 있습니까? [2] 거북이 2015.10.15 325
1794 태블릿 스플래시이미지에 9-Patch 이미지를 적용했을때 화면 이상 [5] 이지현 2017.04.06 326
1793 [공유] 멀티-디바이스 디자이너에서 마스터뷰를 상속한 개별뷰에서 수정한 내용을 원복할 수 있나요? Humphery 2015.09.24 326
1792 오픈소스 scannerMapp 에서 아래와 같은 에러가 나옵니다. [1] 김종찬 2018.07.30 327
» 이메일 첨부화일 접근에러에 대해 권한문제? [1] 스카이 2020.06.13 327
1790 [xe8] 앱이 항상 켜져있으려면.. [1] 가을이다 2015.12.28 327
1789 애플앱스토어 등록시 맥북외에 아이폰이나 아이패드 같은 디바이스도 필요한가요? [1] kerry 2016.02.18 327
1788 listview Data 뿌려주거나 클릭 시 EvalError 발생. [4] file 엔달 2018.09.27 328
1787 아이폰 TTS 예제.. 가을이다 2015.09.03 328
1786 ListBox style에서 text를 추가했는데 livebinding으로 연결이 가능한가요?? [1] 손주영 2016.03.17 328
1785 [마이그레이션] 엑셀 변환 시 "잘못된 변수 유형입니다" 오류가 발생합니다. 험프리 2016.09.29 329
1784 delphi 10.2 linux 연결 후 실행시 오류 메세지 [7] agallee 2017.04.12 329
1783 CPort baudrate 질문드려요 [1] 신종훈 2017.12.04 329
1782 Delphi 10.2 사용자 정의 컴포넌트 등록후 디자인타임에 안보임 file 미스터몽키 2019.08.23 329
1781 delphi 10.3.2 TRestClient 구조가 변경된듯 [1] 미스터몽키 2019.09.22 329
1780 ListView 의 스크롤 방법을 알고싶습니다. [2] 거북이 2015.12.15 329
쓰기
태그