자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 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 49238
공지 유용한 관련 사이트 관리자2 2014.03.20 88836
2892 (자문 자답) JSON 안의 특정 필드 값만 바꾸는 방법은 TJsonPair를 사용하면 간단합니다. (POST, PUT 방식으로 특정 필드만 교체할 때, 특히 유용) [2] WhiteC 2020.06.15 698
2891 코로나19 세미나 관련 DB오류 질문드립니다. file 유정 2020.06.25 567
2890 [세미나: 데이터와 RAD] REST 클라이언트의 DataSetAdapter에서 XML을 다룰 수 있나요? [1] 험프리 2020.06.24 818
2889 10.3.3에서 TChart관련 문의드립니다. [2] ppqao 2020.06.22 895
2888 [세미나: 데이터와 RAD] 데모를 이전 버전으로 돌려보는 것도 가능할까요? 험프리 2020.06.24 510
2887 [세미나: 데이터와 RAD] DataSnap 으로도 REST API 구현이 되는가요? 험프리 2020.06.24 1013
2886 10.4 Sydney 코드 인사이트 문제 [1] 불나방 2020.06.15 557
2885 [TRibbon] 텍스트 크기 설정에 따른 TRibbon 장애 문의입니다. file 초보델팡이 2020.06.22 402
2884 안드로이드 디바이스 인식하지 못하고 있어요. [1] file 연금술사 2020.06.19 433
2883 윈도우 DIP 변경시 MainMenu 폰트 크기 크게 보이는 현상. [1] max 2020.06.15 471
» 이메일 첨부화일 접근에러에 대해 권한문제? [1] 스카이 2020.06.13 642
2881 FDStoredProc 파라메터 오류 문의 [1] arabianwine 2020.06.11 632
2880 GetIt Package Manager 에러 대처방법 [1] 스카이 2020.06.14 946
2879 PAServer 원격 연결이 안돼는 증상??? [2] sihwan 2020.06.03 527
2878 "D3D_SHADER_MACRO" 에러가 발생 합니다. [2] 하루 2020.06.10 499
2877 델파이로 시스템 초기화 버전 만들려고하는데 C드라이브 초기화 우루사 2020.06.14 441
2876 [Application Error] 문의 드립니다. [1] file 초보델팡이 2020.06.09 480
2875 [질문]10.4에서 Linux 클라이언트 개발? [1] 오는새벽 2020.06.11 447
2874 [10.4 시드니 신기능] 이제 리눅스 클라이언트 프로그램 개발이 윈도우처럼 가능합니까? 험프리 2020.06.10 684
2873 dbexpress mssql connection 질문 라우토 2020.06.11 465