새로운 글
새로운 덧글

자유롭게 질의 및 응답을 할 수 있는 게시판이며 어느 누구도 답변을 달아야만 하는 의무는 없습니다. 
  • 제품설치/등록/제품 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

Firemonkey XE10에서 Send mail 문제

2017.03.01 22:41

당신이먼저 조회 수:180

배우고 익히는데 많은 도움에 항상 감사를 드립니다.

 

개발 버젼 : XE10 seattle 에서 Android 플랫폼으로 TIdSMTP 컴포넌트로 메일을 보내는 프로그램을 짜봤는데 윈도우 플랫폼에서는 메일이 시원스럽게 잘 보내집니다.

다만 Android 플랫폼에서는 보내지를 못합니다.

어느부분이 문제인지 알수가 없어 문의를 드립니다.

참고로 해당 소스도 보내드립니다. 

 

 

 

unit MailDemoU;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
  FMX.MobilePreview,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase, IdSMTP,IdSSLOpenSSL,
  IdMessage,IdText,IdAttachment, FMX.Edit, FMX.Controls.Presentation;

type
  THeaderFooterForm = class(TForm)
    Header: TToolBar;
    Footer: TToolBar;
    HeaderLabel: TLabel;
    Button1: TButton;
    edtEmailAddr: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    function SendMail(idFrom, pw, idTo, aSubject, aText: string): Boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  HeaderFooterForm: THeaderFooterForm;

  gEmailFlag,
  gSecritCode : String;
implementation

{$R *.fmx}

 

function THeaderFooterForm.SendMail(idFrom, pw, idTo, aSubject, aText: string): Boolean;
var
  SMTP: TIdSMTP;
  SSL: TIdSSLIOHandlerSocketOpenSSL;
  MM: TIdMessage;
begin
  result := false;
  SMTP := TIdSMTP.Create(nil);
  SSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  MM := TIdMessage.Create(nil);
  try
    SMTP.Host      := 'smtp.gmail.com';
    SMTP.Port      := 587; // 465 또는 587
    SMTP.Username  := idFrom;
    SMTP.Password  := pw;
    SMTP.IOHandler := SSL;
    SMTP.UseTLS    := utUseExplicitTLS;

    SSL.Host := SMTP.Host;
    SSL.Port := SMTP.Port;

    MM.From.Address := idFrom;
    MM.Recipients.EMailAddresses := idTo;
    MM.ContentTransferEncoding := 'base64';
    MM.Subject := aSubject;

    with TIdText.Create(MM.MessageParts, MM.Body) do
    begin
      CharSet := 'utf-8';
      Body.Text := aText;
    end;

       // send mail
    try
      try
        SMTP.Connect;
        SMTP.Send(MM);
        result := true;
      except
        on E: Exception do
          showmessage('ERROR: ' + E.Message);
      end;
    finally
      if SMTP.Connected then
        SMTP.Disconnect;
    end;
  finally
    SMTP.Free;
    SSL.Free;
    MM.Free;

  end;
end;


procedure THeaderFooterForm.Button1Click(Sender: TObject);
Var
   idFrom    ,
   pw        ,
   idTo      ,
   aSubject  ,
   aText     ,
   sEmailAddr : String;

begin
   gSecritCode:= '';

   gEmailFlag := 'N';
   sEmailAddr := edtEmailAddr.Text;
   With THeaderFooterForm do
   Begin

   End;


   idFrom      := 'aaaaaaaa@gmail.com';  // From Mail
   pw          := '1234567890';

   idTo        := sEmailAddr;
   aSubject    := 'Mail Test';
   aText       := 'Send Texting';


   if SendMail(idFrom, pw, idTo, aSubject, aText) <> TRUE  Then
      Begin
         ShowMessage('Check Mail addr. !!');
      End
   Else
      Begin
         ShowMessage('Completed of Send Mail. !!');
      End

 

 

end;

end.

 


 

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2019.8~2019.12 관리자 2015.01.22 9009
공지 유용한 관련 사이트 관리자2 2014.03.20 46455
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 87465
415 Tgrid 사용가능한지요? [1] 도담 2017.07.22 88
414 xe 10.2 에서 Form transparency 기능 문의 vastia 2017.07.20 66
413 DataSNAP 연결하여 클라이언트에서 업무처리중에 네트웍이 끊기면 [2] 0Erros 2017.07.16 199
412 Android에서 TImage 의 크기가 왜 변하나요? [2] file 쿠리 2017.07.05 184
411 ListBox 사용시 최대 몇개의 아이템을 추가 가능할 까요? [3] file 쿠리 2017.07.04 165
410 모바일에서 메일로 첨부화일을 보내는 방법은 있나요? [2] 스카이 2017.06.24 397
409 안드로이드에서 백그라운드 푸쉬 해결방법. [4] 나즈나 2017.06.19 1662
408 Gesture 적용이 않됩니다. [2] file 쿠리 2017.06.13 113
407 델파이에서 SDK 정보가 증발되는 버그 제보 및 안드로이드 빌드 시 Exec Error 해결방법입니다. [2] file 나즈나 2017.06.16 193
406 모바일 폼 구성시 여러개 폼 생성 방법 [6] 수강생 2014.04.28 2807
405 정현수님의 토스트 샘플로 공부중 동작하지 않아 질문입니다. [2] 나즈나 2017.06.14 77
404 주소록 가져오는 셈플 테스트가 안됩니다. [1] 쿠리 2017.06.09 66
403 FCM 사용. [2] nazuna 2017.06.10 510
402 델파이 시애틀로 ios 10버전의 기기 컴파일시 가능여부 [2] 김태윤 2017.06.12 115
401 ble 관련 질문 드립니다. [1] kimds 2017.05.30 70
400 안드로이드 앱 테더링 연결 문제 [2] file YGPOS 2017.05.24 352
399 delphi xe10 firemonkey로 개발한 앱 rooting 폰 및 중국폰 에서 사용 가능 유무 당신이먼저 2017.05.19 119
398 델파이 10 Seattle로 안드로이드 Nougat 개발. [1] hsson 2017.05.19 131
397 Tokyo 에서 컴파일 후 실행파일에 Malware 로 잡히는 증상발생 [3] file 크루노 2017.05.16 280
396 xe10.2 버전 서브 폼닫기 안됨 [2] 텔로스김 2017.05.12 247



광고 모듈이 설치되어 있지 않아 실행을 중단합니다..