자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 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 39650
공지 유용한 관련 사이트 관리자2 2014.03.20 79164
2892 [마이그레이션] if char in CharSet then 구문에서 W1050 경고를 너무 많이 발생합니다. 험프리 2017.01.31 338
2891 델파이 안드로이드 에서 사이즈 질문 [1] 루피 2016.11.12 338
2890 RAD 스튜디오 베를린 10.1에서 인포믹스 DB를 지원하나요? 험프리 2016.12.08 338
2889 델파이 Note 컴퍼넌트 오류 [1] file 김진석 2018.12.23 338
2888 TWebBrowser 페이지 연결오류 file miracles 2019.03.19 338
2887 Berlin 에서 Rio 로 변경 오류 (추가) 제트콜 2019.03.28 338
2886 Delphi 10 Seattle 안드로이드 WDSL 오류 [1] 작은고추 2017.05.05 339
2885 여러 Package 작성시 특정 유닛을 공유하는 방법 100jk 2018.10.05 339
2884 프로그램 실행시 del1.mb 와같은 파일이 생겨요 [1] file 맛재현 2018.10.23 339
2883 XE3에서 다국어버전작업중 Fastreport 관련 질문입니다. [1] file 바다를향해 2018.11.06 339
2882 델파이5 Indy9 소켓 관련 문의 땡이 2019.06.19 339
2881 모바일에서 datasnap을 이용해 데이터를 가져올때 [2] 종결자 2019.12.16 339
2880 다시 글올립니다. dll 불러온 화면에서 탭키, 방향키가 작동이 안됩니다. 쭈니쿤 2016.04.29 339
2879 ClientDataSet open ios에서 midas Libary 추가했는데도 같은 메세시지 가 뜸니다. [1] kerry 2015.10.28 339
2878 XE6에서 FastReport [1] file 나도몰라 2015.11.02 339
2877 connection editer 희망나라 2021.03.12 339
2876 2017-1-11 RAD Studio 10.1 Berlin 핫픽스가 나왔네요. 얄리 2017.01.23 340
2875 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 16 - Exercise 1 [1] 관리자 2016.05.27 340
2874 CallBack 문의사항 [1] 파란하늘 2017.07.13 340
2873 10.2.1 릴리즈 설치후 Xe8 에서 개발된 앱 컴파일 [2] 희망나라 2017.08.11 340