svn/view/Unit10.pas

unit Unit10;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, Vcl.Controls,
  IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl, IWCompEdit,
  IWVCLComponent, IWBaseLayoutComponent, IWBaseContainerLayout,
  IWContainerLayout, IWTemplateProcessorHTML, IWCompButton, IWHTMLControls,
  System.Variants,
  IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdMessage,
  IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase, IdSMTP;

type
  TIWForm10 = class(TIWAppForm)
    IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
    IWEdit1: TIWEdit;
    IWButton1: TIWButton;
    IWEdit2: TIWEdit;
    IWLink1: TIWLink;
    IdSMTP1: TIdSMTP;
    procedure IWButton1Click(Sender: TObject);
    procedure IWLink1Click(Sender: TObject);
    procedure IWAppFormCreate(Sender: TObject);
  public
  end;

implementation

{$R *.dfm}

uses Unit3;

procedure TIWForm10.IWAppFormCreate(Sender: TObject);
begin
  with IdSMTP1 do
  begin
    Password := DM.FDTable3.FieldByName('MAILPASS').AsString;
    Username := DM.FDTable3.FieldByName('MAILUSER').AsString;
    Host := DM.FDTable3.FieldByName('HOST').AsString;
  end;
end;

procedure TIWForm10.IWButton1Click(Sender: TObject);
var
  s: TIdMessage;
begin
  if DM.FDTable1.Locate('EMAIL;BIRTH', VarArrayOf([IWEdit1.Text, IWEdit2.Text]),
    []) = true then
  begin
    IdSMTP1.Connect;
    s := TIdMessage.Create(IdSMTP1);
    try
      s.ContentType := 'text/plain';
      s.From.Name := DM.FDTable3.FieldByName('NAME').AsString + ' shop';
      s.From.Address := '??shop@??.co.jp';
      s.Recipients.EMailAddresses := DM.FDTable1.FieldByName('EMAIL').AsString;
      s.Subject := DM.FDTable3.FieldByName('NAME').AsString +
        ' shop password user ' + DM.FDTable1.FieldByName('NAME').AsString;
      s.Body.Text := 'site password:' + DM.FDTable1.FieldByName
        ('PASSWORD').AsString;
    finally
      s.Free;
    end;
    IdSMTP1.Disconnect;
    WebApplication.ShowMessage('���M��������');
  end
  else
    WebApplication.ShowMessage('�o�^��������������');
end;

procedure TIWForm10.IWLink1Click(Sender: TObject);
begin
  Release;
end;

end.