자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 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 19663
공지 유용한 관련 사이트 관리자2 2014.03.20 58614
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 102137
1799 listview 에서 런타임에 이미지 넣는부분 [1] 종결자 2019.10.12 348
1798 ListView 의 스크롤 방법을 알고싶습니다. [2] 거북이 2015.12.15 348
1797 델파이 JSON 관련 질문 있습니다. [2] yawayo 2020.07.20 348
1796 VB, FORTRAN 소스코드를 Delphi로 변환하는 방법이 있나요? [1] 험프리 2021.04.21 348
1795 모바일에서 메일전송시 ssl negotiation failed 메세지?? [1] kerry 2017.12.08 349
1794 10.2.3 폼디자인 델 7 처럼 변경? [4] midas 2018.07.02 349
1793 No provisioning profile found for the selected build configuration 에라가 나는데요? [3] file 화이부동 2018.10.12 349
1792 help문서가 열리지않는 현상.. 푸른하늘 2015.04.13 349
1791 ios 앱 외부 url 호출 방법 문의 [1] 사랑남 2015.08.28 349
1790 VtChart에 관한 문의 [4] file noblemanpjh 2015.07.31 349
1789 [마이그레이션] 엑셀 변환 시 "잘못된 변수 유형입니다" 오류가 발생합니다. 험프리 2016.09.29 350
1788 애플 푸시알림을 사용하기 위해서 설정하는 방법은? [1] 화이부동 2016.12.22 350
1787 EMS 서버를 운영서버로 전환하는 중 에러 [1] 봉프 2019.12.23 350
1786 C++ Dll 구조체 데이터형식 관련 문의 [2] woofer 2020.03.25 350
1785 XE8 (VCL)에서는 그림회전 [1] file barcode0 2016.01.18 351
1784 [XE8 출시세미나] 비콘의 종류가 매우 다양한데요 엠바카데로에서 테스트한 케이스는 얼마나 되나요? [1] Humphery 2015.04.30 351
1783 IOS 개발중 오류....확인부탁드립니다. [1] 박정희 2016.10.24 352
» 이메일 첨부화일 접근에러에 대해 권한문제? [1] 스카이 2020.06.13 352
1781 Delphi 10 Seattle 리포팅툴 [1] 라시드 2015.10.06 352
1780 [xe8] 앱이 항상 켜져있으려면.. [1] 가을이다 2015.12.28 353