자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 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 17293
공지 유용한 관련 사이트 관리자2 2014.03.20 56180
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 99600
2899 XE2 사용하다 10.2를 써보니 Table 콤포넌트가 없네요? [1] 날라리아 2018.11.23 139
2898 DSProviderConnection 사용시 에러가나네요 [2] file 우나리어 2019.07.18 139
2897 데이터스냅 한글 인코딩 질문입니다. [1] file devdev 2019.11.21 139
2896 refind 기능을 이용하여 pageControl 에 올라가 있는 버튼은 수정이 안되나요 ? [1] 개미 2020.11.26 139
2895 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 11 - Exercise 1 [1] 관리자 2016.05.10 140
2894 TMainMenu Height 문의 드립니다 [1] if문 2016.05.30 140
2893 [10.3.3 브리핑] 업데이트에서 버그가 개선되었는지 확인하는 방법은? 험프리 2019.12.05 140
2892 1217 질문 연장 Update Local File Cache 시 다음과 같은 메세지가 뜹니다. [2] kerry 2016.02.19 140
2891 컴파일과 저장관련 문의드립니다~ [1] syc 2016.04.12 140
2890 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 22 - Exercise 1 [2] 관리자 2016.05.27 141
2889 [RAD서버] RAD서버 애플리케이션이 지원하는 플랫폼이 무엇인지 궁금합니다. 관리자 2016.06.24 141
2888 MultiView에서 MultiDetail3.InternalPlaceOffset.X 를 수정할 수가 없네요. 어려워 2016.07.17 141
2887 Class안의 function를 어떻게 global function에서 활용할 수 있는지... 한시민 2017.12.19 141
2886 맥에서 Provision profile이 등록이 안되서 생기는 문제 같은데요. [3] file 화이부동 2019.08.04 141
2885 [10.2 도쿄 출시세미나] 리눅스 플랫폼에서, http클라이언트는 indy기반인가요? 험프리 2017.04.06 141
2884 컴포넌트 팔레트(오브젝트 인스펙터) 폰트 변경 문의 file 훗남님 2017.02.27 141
2883 data snap utf8 관련 오류 [2] file 사랑남 2015.08.26 142
2882 Tgrid 사용가능한지요? [1] 도담 2017.07.22 142
2881 radsetver 10.2 ios 개발 인증관련 [1] file 밤바야 2017.11.21 142
2880 기술자료에 있는 REST API 에러 원인 좀 file 봉프 2019.03.04 142