indy10を使ってAndroidデバイスでメール送受信について (ID:148795)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

HFUKUSHIさん度々お世話になります。
ありがとうございます。
ホームにボタンを配置しClickイベントを記述しただけのものです。
Androidデバイスで実行すると
「プロジェクト****.apkは例外クラスEIdOSSLCouldNotLoadSSLLibray
（メッセージ'SSLraibraryが読み込めませんでした。）を送出しました」
という警告がでてメール送信できません。
何が原因なのかな

************************************************************
unit Main;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.Controls.Presentation, FMX.StdCtrls, IdTCPConnection, IdTCPClient,
  IdBaseComponent, IdComponent, IdIOHandler, IdIOHandlerSocket,
  IdIOHandlerStack, IdSSL, IdSSLOpenSSL;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { private 宣言 }
  public
    { public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}
{$R *.LgXhdpiTb.fmx ANDROID}

uses
  IdMessage, IdSMTP,IdExplicitTLSClientServerBase, IdEMailAddress;

procedure TForm1.Button1Click(Sender: TObject);
var
  smtp: TIdSMTP;
  ssl: TIdSSLIOHandlerSocketOpenSSL;
  msg: TIdMessage;
begin

//  Client.IOHandler := TIdSSLIOHandlerSocketOpenSSL1.Create;

smtp:=TIdSMTP.Create();
  try
    smtp.Host:='smtp.gmail.com';
    smtp.Port:=465;
    smtp.Username:='******@gmail.com';
    smtp.Password:='vds9ecuS';
    ssl:=TIdSSLIOHandlerSocketOpenSSL.Create();
    try
      ssl.Host:=smtp.Host;
      ssl.Port:=smtp.Port;
      ssl.Destination:=ssl.Host+':'+IntToStr(ssl.Port);
      smtp.IOHandler:=ssl;
      smtp.UseTLS:=TIdUseTLS.utUseImplicitTLS;

smtp.Connect;//接続
      msg:=TIdMessage.Create();
      try
        msg.ContentType:='text/plain';
        msg.CharSet:='UTF-8';
        msg.ContentTransferEncoding:='BASE64';
        msg.From.Address:=******@gmail.com';//メールの送り元。通常はgmailのアドレス

msg.Recipients.Add.Address:='123456@zzzzz.co.jp' ;//送り先1人目
//        msg.Recipients.Add.Address:='hoge_to2@hoge.hoge' ;//送り先2人目。不要な場合はこの行を削除
//        msg.CCList.Add.Address    :='hote_cc1@hoge.hoge' ;//Ccの送り先。不要な場合はこの行を削除
//        msg.BccList.Add.Address   :='hoge_bcc1@hoge.hoge';//Bccの送り先。不要な場合はこの行を削除

msg.Subject:='メールの件名を記述';

msg.Body.Add('メール本文1行目');
        msg.Body.Add('メール本文の2行目');

smtp.Send(msg);//メールの送信
      finally
        msg.Free;
      end;
      smtp.Disconnect();
    finally
      ssl.Free;
    end;
  finally
    smtp.Free;
  end;
end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る