├── .gitignore
├── AmazonEmailMessage.pas
├── AmazonEmailService.pas
├── AmazonEmailServiceConfiguration.pas
├── AmazonEmailServiceRegions.pas
├── AmazonEmailServiceRequests.pas
├── BuildQueryParameters.pas
├── EncodeQueryParams.pas
├── LICENSE
├── PopulateResponseInfo.pas
├── PrepareRequestSignature.pas
├── README.md
└── tests
    ├── AmazonEmailService.groupproj
    ├── AmazonEmailServiceConfigurationTests.pas
    ├── AmazonEmailServiceRegionsTests.pas
    ├── AmazonEmailServiceRequestsTests.pas
    ├── AmazonEmailServiceTests.dpr
    ├── AmazonEmailServiceTests.dproj
    ├── BuildQueryParametersTests.pas
    ├── DunitXTestRunner.pas
    ├── EncodeQueryParamsTests.pas
    ├── PopulateResponseInfoTests.pas
    ├── PrepareRequestSignatureTests.pas
    ├── README.md
    ├── libeay32.dll
    └── ssleay32.dll


/.gitignore:
--------------------------------------------------------------------------------
 1 | # Uncomment these types if you want even more clean repository. But be careful.
 2 | # It can make harm to an existing project source. Read explanations below.
 3 | #
 4 | # Resource files are binaries containing manifest, project icon and version info.
 5 | # They can not be viewed as text or compared by diff-tools. Consider replacing them with .rc files.
 6 | *.res
 7 | #
 8 | # Type library file (binary). In old Delphi versions it should be stored.
 9 | # Since Delphi 2009 it is produced from .ridl file and can safely be ignored.
10 | #*.tlb
11 | #
12 | # Diagram Portfolio file. Used by the diagram editor up to Delphi 7.
13 | # Uncomment this if you are not using diagrams or use newer Delphi version.
14 | #*.ddp
15 | #
16 | # Visual LiveBindings file. Added in Delphi XE2.
17 | # Uncomment this if you are not using LiveBindings Designer.
18 | #*.vlb
19 | #
20 | # Deployment Manager configuration file for your project. Added in Delphi XE2.
21 | # Uncomment this if it is not mobile development and you do not use remote debug feature.
22 | #*.deployproj
23 | #
24 | 
25 | # Delphi compiler-generated binaries (safe to delete)
26 | *.exe
27 | *.dll
28 | *.bpl
29 | *.bpi
30 | *.dcp
31 | *.so
32 | *.apk
33 | *.drc
34 | *.map
35 | *.dres
36 | *.rsm
37 | *.tds
38 | *.dcu
39 | 
40 | # Delphi autogenerated files (duplicated info)
41 | *.cfg
42 | *Resource.rc
43 | *.stat
44 | 
45 | # Delphi local files (user-specific info)
46 | *.local
47 | *.identcache
48 | *.projdata
49 | *.tvsconfig
50 | *.dsk
51 | *.skincfg
52 | 
53 | # Delphi history and backups
54 | __history/
55 | *.~*
56 | 
57 | #DunitX autogenerated files
58 | dunitx-results.xml
59 | 
60 | #Dcov generated files
61 | tests/coverage
62 | Delphi-Code-Coverage-*.log
63 | 


--------------------------------------------------------------------------------
/AmazonEmailMessage.pas:
--------------------------------------------------------------------------------
 1 | unit AmazonEmailMessage;
 2 | 
 3 | interface
 4 | 
 5 | type
 6 |   TBodyType = (btHTML, btText);
 7 | 
 8 |   TEmailMessage = record
 9 |     FromName: string;
10 |     FromAddress: string;
11 |     Recipients: TArray<string>;
12 |     ReplyTo: TArray<string>;
13 |     CC: TArray<string>;
14 |     BCC: TArray<string>;
15 |     Subject: string;
16 |     Body: string;
17 |     BodyType: TBodyType;
18 |   end;
19 | 
20 | implementation
21 | 
22 | end.
23 | 


--------------------------------------------------------------------------------
/AmazonEmailService.pas:
--------------------------------------------------------------------------------
  1 | unit AmazonEmailService;
  2 | 
  3 | interface
  4 | 
  5 | uses
  6 |   IPPeerAPI,
  7 |   Data.Cloud.CloudAPI,
  8 |   IPPeerClient,
  9 |   System.Classes,
 10 |   AmazonEmailMessage;
 11 | 
 12 | type
 13 |   TAmazonEmailService = class
 14 |   private
 15 |     FRegion: string;
 16 |     FAWSAccessKey: string;
 17 |     FAWSSecretKey: string;
 18 |     procedure IssueRequest(const QueryParameters: TStringStream; out Response: TCloudResponseInfo);
 19 |     procedure PopulateResponseInfo(const ResponseInfo: TCloudResponseInfo; const Peer: IIPHTTP); overload;
 20 |     procedure PopulateResponseInfo(const ResponseInfo: TCloudResponseInfo; const E: EIPHTTPProtocolExceptionPeer); overload;
 21 |     function BuildQueryParameters(const EmailMessage: TEmailMessage): TStringStream;
 22 |     procedure PrepareRequest(const Peer: IIPHTTP);
 23 |   public
 24 |     constructor Create(const Region, AWSAccessKey, AWSSecretKey: string); overload;
 25 |     constructor Create; overload;
 26 |     function Send(const EmailMessage: TEmailMessage; out Response: TCloudResponseInfo): Boolean;
 27 | 
 28 |     class function SendMail(const EmailMessage: TEmailMessage): Boolean; overload;
 29 |     class function SendMail(const EmailMessage: TEmailMessage; out Response: TCloudResponseInfo): Boolean; overload;
 30 |   end;
 31 | 
 32 | implementation
 33 | 
 34 | uses
 35 |   ActiveX,
 36 |   DateUtils,
 37 |   SysUtils,
 38 |   AmazonEmailServiceConfiguration,
 39 |   AmazonEmailServiceRegions,
 40 |   AmazonEmailServiceRequests,
 41 |   BuildQueryParameters,
 42 |   PopulateResponseInfo;
 43 | 
 44 | constructor TAmazonEmailService.Create(const Region, AWSAccessKey, AWSSecretKey: string);
 45 | begin
 46 |   FRegion := TAmazonEmailServiceRegions.FormatServiceURL(Region);
 47 |   FAWSAccessKey := AWSAccessKey;
 48 |   FAWSSecretKey := AWSSecretKey;
 49 | end;
 50 | 
 51 | constructor TAmazonEmailService.Create;
 52 | var
 53 |   Configuration: TAmazonEmailServiceConfiguration;
 54 |   Region: string;
 55 |   AccessKey: string;
 56 |   SecretKey: string;
 57 | begin
 58 |   Configuration := TAmazonEmailServiceConfiguration.Create;
 59 |   try
 60 |     Configuration.GetFromEnvironment(Region, AccessKey, SecretKey);
 61 |   finally
 62 |     Configuration.Free;
 63 |   end;
 64 | 
 65 |   Create(Region, AccessKey, SecretKey);
 66 | end;
 67 | 
 68 | procedure TAmazonEmailService.IssueRequest(const QueryParameters: TStringStream; out Response: TCloudResponseInfo);
 69 | var
 70 |   Peer: IIPHTTP;
 71 | begin
 72 |   Peer := PeerFactory.CreatePeer('', IIPHTTP, nil) as IIPHTTP;
 73 |   try
 74 |     Peer.IOHandler := PeerFactory.CreatePeer('', IIPSSLIOHandlerSocketOpenSSL, nil) as IIPSSLIOHandlerSocketOpenSSL;
 75 | 
 76 |     PrepareRequest(Peer);
 77 |     try
 78 |       Peer.DoPost(FRegion, QueryParameters);
 79 |       PopulateResponseInfo(Response, Peer);
 80 |     except
 81 |       on E: EIPHTTPProtocolExceptionPeer do
 82 |         PopulateResponseInfo(Response, E)
 83 |       else
 84 |         raise;
 85 |     end;
 86 |   finally
 87 |     if Assigned(Peer) then
 88 |     begin
 89 |       Peer.FreeIOHandler;
 90 |       Peer := nil;
 91 |     end;
 92 |   end;
 93 | end;
 94 | 
 95 | procedure TAmazonEmailService.PopulateResponseInfo(const ResponseInfo: TCloudResponseInfo; const Peer: IIPHTTP);
 96 | var
 97 |   PopulateResponseInfo: TPopulateResponseInfo;
 98 | begin
 99 |   PopulateResponseInfo := TPopulateResponseInfo.Create;
100 |   try
101 |     PopulateResponseInfo.FromPeer(ResponseInfo, Peer);
102 |   finally
103 |     PopulateResponseInfo.Free;
104 |   end;
105 | end;
106 | 
107 | procedure TAmazonEmailService.PopulateResponseInfo(const ResponseInfo: TCloudResponseInfo; const E: EIPHTTPProtocolExceptionPeer);
108 | var
109 |   PopulateResponseInfo: TPopulateResponseInfo;
110 | begin
111 |   PopulateResponseInfo := TPopulateResponseInfo.Create;
112 |   try
113 |     PopulateResponseInfo.FromExceptionPeer(ResponseInfo, E);
114 |   finally
115 |     PopulateResponseInfo.Free;
116 |   end;
117 | end;
118 | 
119 | procedure TAmazonEmailService.PrepareRequest(const Peer: IIPHTTP);
120 | var
121 |   AmazonEmailServiceRequests: TAmazonEmailServiceRequests;
122 | begin
123 |   AmazonEmailServiceRequests := TAmazonEmailServiceRequests.Create(FAWSAccessKey, FAWSSecretKey);
124 |   try
125 |     AmazonEmailServiceRequests.PrepareRequest(Peer);
126 |   finally
127 |     AmazonEmailServiceRequests.Free;
128 |   end;
129 | end;
130 | 
131 | function TAmazonEmailService.BuildQueryParameters(const EmailMessage: TEmailMessage): TStringStream;
132 | begin
133 |   Result := TBuildQueryParameters.GetQueryParams(EmailMessage);
134 | end;
135 | 
136 | function TAmazonEmailService.Send(const EmailMessage: TEmailMessage; out Response: TCloudResponseInfo): Boolean;
137 | var
138 |   QueryParameters: TStringStream;
139 | begin
140 |   CoInitialize(nil);
141 |   try
142 |     Response := TCloudResponseInfo.Create;
143 | 
144 |     QueryParameters := BuildQueryParameters(EmailMessage);
145 |     try
146 |       IssueRequest(QueryParameters, Response);
147 |       Result := (Response <> nil) and (Response.StatusCode = 200);
148 |     finally
149 |       if Assigned(QueryParameters) then
150 |         QueryParameters.Free;
151 |     end;
152 |   finally
153 |     CoUninitialize;
154 |   end;
155 | end;
156 | 
157 | class function TAmazonEmailService.SendMail(const EmailMessage: TEmailMessage): Boolean;
158 | var
159 |   Response: TCloudResponseInfo;
160 | begin
161 |   try
162 |     Result := TAmazonEmailService.SendMail(EmailMessage, Response);
163 |   finally
164 |     Response.Free;
165 |   end;
166 | end;
167 | 
168 | class function TAmazonEmailService.SendMail(const EmailMessage: TEmailMessage;
169 |   out Response: TCloudResponseInfo): Boolean;
170 | var
171 |   AmazonEmailService: TAmazonEmailService;
172 | begin
173 |   AmazonEmailService := TAmazonEmailService.Create;
174 |   try
175 |     Result := AmazonEmailService.Send(EmailMessage, Response);
176 |   finally
177 |     AmazonEmailService.Free;
178 |   end;
179 | end;
180 | 
181 | end.
182 | 


--------------------------------------------------------------------------------
/AmazonEmailServiceConfiguration.pas:
--------------------------------------------------------------------------------
 1 | unit AmazonEmailServiceConfiguration;
 2 | 
 3 | interface
 4 | 
 5 | type
 6 |   TAmazonEmailServiceConfiguration = class
 7 |   private
 8 |     procedure AssertValue(const VarValue, Description: string);
 9 |   public
10 |     procedure GetFromEnvironment(var Region, AccessKey, SecretKey: string);
11 |   end;
12 | 
13 | const
14 |   AWS_REGION = 'AWS_REGION';
15 |   AWS_ACCESS_KEY_ID = 'AWS_ACCESS_KEY_ID';
16 |   AWS_SECRET_ACCESS_KEY = 'AWS_SECRET_ACCESS_KEY';
17 | 
18 | implementation
19 | 
20 | uses
21 |   SysUtils,
22 |   Windows;
23 | 
24 | procedure TAmazonEmailServiceConfiguration.AssertValue(const VarValue, Description: string);
25 | begin
26 |   if VarValue.Trim = '' then
27 |     raise EArgumentNilException.Create(Format('No Amazon %s provided.', [Description]));
28 | end;
29 | 
30 | procedure TAmazonEmailServiceConfiguration.GetFromEnvironment(var Region, AccessKey, SecretKey: string);
31 | begin
32 |   Region := GetEnvironmentVariable(AWS_REGION);
33 |   AssertValue(Region, 'Region');
34 | 
35 |   AccessKey := GetEnvironmentVariable(AWS_ACCESS_KEY_ID);
36 |   AssertValue(AccessKey, 'Access Key');
37 | 
38 |   SecretKey := GetEnvironmentVariable(AWS_SECRET_ACCESS_KEY);
39 |   AssertValue(SecretKey, 'Secret Access Key');
40 | end;
41 | 
42 | end.
43 | 


--------------------------------------------------------------------------------
/AmazonEmailServiceRegions.pas:
--------------------------------------------------------------------------------
 1 | unit AmazonEmailServiceRegions;
 2 | 
 3 | interface
 4 | 
 5 | type
 6 |   TAmazonEmailServiceRegions = class
 7 |   public
 8 |     class function FormatServiceURL(const Region: string): string;
 9 |   end;
10 | 
11 | implementation
12 | 
13 | uses
14 |   SysUtils;
15 | 
16 | class function TAmazonEmailServiceRegions.FormatServiceURL(const Region: string): string;
17 | const
18 |   Protocol = 'https';
19 | begin
20 |   Result := Format('%s://email.%s.amazonaws.com', [Protocol, Region]);
21 | end;
22 | 
23 | end.
24 | 


--------------------------------------------------------------------------------
/AmazonEmailServiceRequests.pas:
--------------------------------------------------------------------------------
 1 | unit AmazonEmailServiceRequests;
 2 | 
 3 | interface
 4 | 
 5 | uses
 6 |   IPPeerAPI;
 7 | 
 8 | type
 9 |   TAmazonEmailServiceRequests = class
10 |   private
11 |     FAWSAccessKey: string;
12 |     FAWSSecretKey: string;
13 |     FDateRequest: TDateTime;
14 |     function GetCurrentDate: string;
15 |     function GetSignature(const StringToSign: string): string;
16 |   public
17 |     constructor Create(const AWSAccessKey, AWSSecretKey: string);
18 |     procedure PrepareRequest(const Peer: IIPHTTP);
19 |     property DateRequest: TDateTime read FDateRequest;
20 |   end;
21 | 
22 | implementation
23 | 
24 | uses
25 |   DateUtils,
26 |   SysUtils,
27 |   PrepareRequestSignature;
28 | 
29 | constructor TAmazonEmailServiceRequests.Create(const AWSAccessKey, AWSSecretKey: string);
30 | begin
31 |   FAWSAccessKey := AWSAccessKey;
32 |   FAWSSecretKey := AWSSecretKey;
33 | end;
34 | 
35 | function TAmazonEmailServiceRequests.GetCurrentDate: string;
36 | const
37 |   FORMAT_HTTP_DATE = 'ddd, dd mmm yyyy hh:nn:ss "GMT"';
38 | begin
39 |   FDateRequest := Now;
40 |   Result := FormatDateTime(FORMAT_HTTP_DATE, TTimeZone.Local.ToUniversalTime(FDateRequest), TFormatSettings.Create('en-US'));
41 | end;
42 | 
43 | function TAmazonEmailServiceRequests.GetSignature(const StringToSign: string): string;
44 | var
45 |   PrepareRequestSignature: TPrepareRequestSignature;
46 | begin
47 |   PrepareRequestSignature := TPrepareRequestSignature.Create(FAWSAccessKey, FAWSSecretKey);
48 |   try
49 |     Result := PrepareRequestSignature.GetSignature(StringToSign);
50 |   finally
51 |     PrepareRequestSignature.Free;
52 |   end;
53 | end;
54 | 
55 | procedure TAmazonEmailServiceRequests.PrepareRequest(const Peer: IIPHTTP);
56 | var
57 |   CurrentTime: string;
58 |   AuthorizationHeader: string;
59 | begin
60 |   Peer.GetRequest.ContentType := 'application/x-www-form-urlencoded';
61 |   Peer.GetRequest.ContentLength := 230;
62 | 
63 |   CurrentTime := GetCurrentDate;
64 |   Peer.GetRequest.CustomHeaders.AddValue('Date', CurrentTime);
65 | 
66 |   AuthorizationHeader := Format('AWS3-HTTPS AWSAccessKeyId=%s, Algorithm=HmacSHA256, Signature=%s',
67 |     [FAWSAccessKey, GetSignature(CurrentTime)]);
68 |   Peer.GetRequest.CustomHeaders.AddValue('X-Amzn-Authorization', AuthorizationHeader);
69 | end;
70 | 
71 | end.
72 | 


--------------------------------------------------------------------------------
/BuildQueryParameters.pas:
--------------------------------------------------------------------------------
 1 | unit BuildQueryParameters;
 2 | 
 3 | interface
 4 | 
 5 | uses
 6 |   AmazonEmailMessage,
 7 |   AmazonEmailService,
 8 |   System.Classes;
 9 | 
10 | type
11 |   TBuildQueryParameters = class
12 |   public
13 |     class function GetQueryParams(const EmailMessage: TEmailMessage): TStringStream;
14 |   end;
15 | 
16 | implementation
17 | 
18 | uses
19 |   SysUtils,
20 |   EncodeQueryParams,
21 |   System.NetEncoding;
22 | 
23 | class function TBuildQueryParameters.GetQueryParams(const EmailMessage: TEmailMessage): TStringStream;
24 | const
25 |   Action = 'SendEmail';
26 | var
27 |   I: Integer;
28 |   BodyType, Source: string;
29 | begin
30 |   Result := TStringStream.Create(EmptyStr, TEncoding.UTF8);
31 |   try
32 |     Result.WriteString('Action=' + ACTION);
33 | 
34 |     Source := Format('=?utf-8?B?%s?= <%s>', [TNetEncoding.Base64.Encode(EmailMessage.FromName), EmailMessage.FromAddress]);
35 |     Result.WriteString(Format('&Source=%s', [TEncodeQueryParams.Encode(Source)]));
36 | 
37 |     for I := Low(EmailMessage.Recipients) to High(EmailMessage.Recipients) do
38 |       Result.WriteString(Format('&Destination.ToAddresses.member.%d=%s', [I+1, TEncodeQueryParams.Encode(EmailMessage.Recipients[I])]));
39 | 
40 |     for I := Low(EmailMessage.ReplyTo) to High(EmailMessage.ReplyTo) do
41 |       Result.WriteString(Format('&ReplyToAddresses.member.%d=%s', [I+1, TEncodeQueryParams.Encode(EmailMessage.ReplyTo[I])]));
42 | 
43 |     Result.WriteString('&Message.Subject.Charset=UTF-8');
44 |     Result.WriteString(Format('&Message.Subject.Data=%s', [TEncodeQueryParams.Encode(EmailMessage.Subject)]));
45 | 
46 |     if EmailMessage.BodyType = btHTML then
47 |       BodyType := 'Html'
48 |     else
49 |       BodyType := 'Text';
50 |     Result.WriteString(Format('&Message.Body.%s.Charset=UTF-8', [BodyType]));
51 |     Result.WriteString(Format('&Message.Body.%s.Data=%s', [BodyType, TEncodeQueryParams.Encode(EmailMessage.Body)]));
52 |   except
53 |     Result.Free;
54 |     raise
55 |   end;
56 | end;
57 | 
58 | end.
59 | 


--------------------------------------------------------------------------------
/EncodeQueryParams.pas:
--------------------------------------------------------------------------------
 1 | unit EncodeQueryParams;
 2 | 
 3 | interface
 4 | 
 5 | type
 6 |   TEncodeQueryParams = class
 7 |   public
 8 |     class function Encode(const Str: string): string; overload; static;
 9 |     class function Encode(const Str: UTF8String): string;  overload; static;
10 |   end;
11 | 
12 | implementation
13 | 
14 | uses
15 |   SysUtils;
16 | 
17 | class function TEncodeQueryParams.Encode(const Str: string): string;
18 | begin
19 |   Result := Encode(UTF8Encode(Str));
20 | end;
21 | 
22 | class function TEncodeQueryParams.Encode(const Str: UTF8String): string;
23 | const
24 |   SAFE_CHARS = ['A'..'Z', 'a'..'z', '0', '1'..'9', '-', '_', '~', '.'];
25 | var
26 |   Ch: AnsiChar;
27 | begin
28 |   Result := '';
29 |   for Ch in Str do
30 |     if not CharInSet(Ch, SAFE_CHARS) then
31 |       Result := Result + '%'+ IntToHex(Ord(Ch), 2)
32 |     else
33 |       Result := Result + WideChar(Ch);
34 | end;
35 | 
36 | end.
37 | 


--------------------------------------------------------------------------------
/LICENSE:
--------------------------------------------------------------------------------
 1 | The MIT License (MIT)
 2 | 
 3 | Copyright (c) 2015 Monde Sistemas
 4 | 
 5 | Permission is hereby granted, free of charge, to any person obtaining a copy
 6 | of this software and associated documentation files (the "Software"), to deal
 7 | in the Software without restriction, including without limitation the rights
 8 | to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 9 | copies of the Software, and to permit persons to whom the Software is
10 | furnished to do so, subject to the following conditions:
11 | 
12 | The above copyright notice and this permission notice shall be included in all
13 | copies or substantial portions of the Software.
14 | 
15 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
16 | IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
17 | FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
18 | AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
19 | LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
20 | OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
21 | SOFTWARE.
22 | 
23 | 


--------------------------------------------------------------------------------
/PopulateResponseInfo.pas:
--------------------------------------------------------------------------------
  1 | unit PopulateResponseInfo;
  2 | 
  3 | interface
  4 | 
  5 | uses
  6 |   Data.Cloud.CloudAPI,
  7 |   IPPeerAPI;
  8 | 
  9 | type
 10 |   TPopulateResponseInfo = class
 11 |   public
 12 |     procedure FromPeer(const ResponseInfo: TCloudResponseInfo; const Peer: IIPHTTP); overload;
 13 |     procedure FromExceptionPeer(const ResponseInfo: TCloudResponseInfo; const ExceptionPeer: EIPHTTPProtocolExceptionPeer); overload;
 14 |   end;
 15 | 
 16 | implementation
 17 | 
 18 | uses
 19 |   Classes,
 20 |   SysUtils,
 21 |   XmlIntf,
 22 |   XmlDoc;
 23 | 
 24 | { TPopulateResponseInfo }
 25 | 
 26 | procedure TPopulateResponseInfo.FromExceptionPeer(const ResponseInfo: TCloudResponseInfo;
 27 |   const ExceptionPeer: EIPHTTPProtocolExceptionPeer);
 28 | const
 29 |   NODE_ERRORS = 'Errors';
 30 |   NODE_ERROR = 'Error';
 31 |   NODE_ERROR_MESSAGE = 'Message';
 32 |   NODE_ERROR_CODE = 'Code';
 33 |   NODE_REQUEST_ID = 'RequestId';
 34 |   NODE_RESPONSE_METADATA = 'ResponseMetadata';
 35 | var
 36 |   XmlDoc: IXMLDocument;
 37 |   IsErrors: Boolean;
 38 |   Aux, ErrorNode, MessageNode: IXMLNode;
 39 |   ErrorCode, ErrorMsg: string;
 40 | begin
 41 |   if ExceptionPeer.ErrorMessage.IsEmpty then
 42 |     Exit;
 43 | 
 44 |   XmlDoc := TXMLDocument.Create(nil);
 45 |   XmlDoc.LoadFromXML(ExceptionPeer.ErrorMessage);
 46 | 
 47 |   ResponseInfo.StatusCode := ExceptionPeer.ErrorCode;
 48 |   ResponseInfo.StatusMessage := ExceptionPeer.Message;
 49 | 
 50 |   IsErrors := AnsiPos(Format('<%s>', [NODE_ERRORS]), ExceptionPeer.ErrorMessage) > 0;
 51 | 
 52 |   //Parse the error and update the ResponseInfo StatusMessage
 53 |   if IsErrors or (AnsiPos('<ErrorResponse', ExceptionPeer.ErrorMessage) > 0) then
 54 |   begin
 55 |     //Amazon has different formats for returning errors as XML
 56 |     if IsErrors then
 57 |     begin
 58 |       ErrorNode := xmlDoc.DocumentElement.ChildNodes.FindNode(NODE_ERRORS);
 59 |       ErrorNode := ErrorNode.ChildNodes.FindNode(NODE_ERROR);
 60 |     end
 61 |     else
 62 |       ErrorNode := xmlDoc.DocumentElement.ChildNodes.FindNode(NODE_ERROR);
 63 | 
 64 |     if (ErrorNode <> nil) and (ErrorNode.HasChildNodes) then
 65 |     begin
 66 |       MessageNode := ErrorNode.ChildNodes.FindNode(NODE_ERROR_MESSAGE);
 67 | 
 68 |       if (MessageNode <> nil) then
 69 |         ErrorMsg := MessageNode.Text;
 70 | 
 71 |       if ErrorMsg <> EmptyStr then
 72 |       begin
 73 |         //Populate the error code
 74 |         Aux := ErrorNode.ChildNodes.FindNode(NODE_ERROR_CODE);
 75 |         if (Aux <> nil) then
 76 |           ErrorCode := Aux.Text;
 77 |         ResponseInfo.StatusMessage := Format('%s - %s (%s)', [ResponseInfo.StatusMessage, ErrorMsg, ErrorCode]);
 78 |       end;
 79 |     end;
 80 | 
 81 |     //populate the RequestId, which is structured differently than if this is not an error ResponseInfo
 82 |     Aux := xmlDoc.DocumentElement.ChildNodes.FindNode(NODE_REQUEST_ID);
 83 |     if (Aux <> nil) and (Aux.IsTextElement) then
 84 |     begin
 85 |       if not Assigned(ResponseInfo.Headers) then
 86 |         ResponseInfo.Headers := TStringList.Create;
 87 |       ResponseInfo.Headers.Values[NODE_REQUEST_ID] := Aux.Text;
 88 |     end;
 89 |   end
 90 |   //Otherwise, it isn't an error, but try to pase the RequestId anyway.
 91 |   else
 92 |   begin
 93 |     Aux := xmlDoc.DocumentElement.ChildNodes.FindNode(NODE_RESPONSE_METADATA);
 94 |     if Aux <> nil then
 95 |     begin
 96 |       Aux := Aux.ChildNodes.FindNode(NODE_REQUEST_ID);
 97 |       if Aux <> nil then
 98 |         if not Assigned(ResponseInfo.Headers) then
 99 |           ResponseInfo.Headers := TStringList.Create;
100 |         ResponseInfo.Headers.Values[NODE_REQUEST_ID] := Aux.Text;
101 |     end;
102 |   end;
103 | end;
104 | 
105 | procedure TPopulateResponseInfo.FromPeer(const ResponseInfo: TCloudResponseInfo; const Peer: IIPHTTP);
106 | begin
107 |   ResponseInfo.StatusCode := Peer.ResponseCode;
108 |   ResponseInfo.StatusMessage := Peer.ResponseText;
109 | end;
110 | 
111 | end.
112 | 


--------------------------------------------------------------------------------
/PrepareRequestSignature.pas:
--------------------------------------------------------------------------------
 1 | unit PrepareRequestSignature;
 2 | 
 3 | interface
 4 | 
 5 | uses
 6 |   Data.Cloud.CloudAPI;
 7 | 
 8 | type
 9 |   TPrepareRequestSignature = class
10 |   private
11 |     FConnectionInfo: TCloudConnectionInfo;
12 |   public
13 |     constructor Create(AWSAccessKey, AWSSecretKey: string);
14 |     destructor Destroy; override;
15 | 
16 |     function GetSignature(const StringToSign: string): string;
17 |   end;
18 | 
19 | implementation
20 | 
21 | uses
22 |   Data.Cloud.AmazonAPI;
23 | 
24 | constructor TPrepareRequestSignature.Create(AWSAccessKey, AWSSecretKey: string);
25 | begin
26 |   FConnectionInfo := TCloudConnectionInfo.Create(nil);
27 |   FConnectionInfo.AccountName := AWSAccessKey;
28 |   FConnectionInfo.AccountKey := AWSSecretKey;
29 | end;
30 | 
31 | destructor TPrepareRequestSignature.Destroy;
32 | begin
33 |   if Assigned(FConnectionInfo) then
34 |     FConnectionInfo.Free;
35 |   inherited;
36 | end;
37 | 
38 | function TPrepareRequestSignature.GetSignature(const StringToSign: string): string;
39 | var
40 |   AmazonEmailAuthentication: TAmazonAuthentication;
41 | begin
42 |   AmazonEmailAuthentication := TAmazonAuthentication.Create(FConnectionInfo);
43 |   try
44 |     Result := AmazonEmailAuthentication.BuildAuthorizationString(StringToSign);
45 |   finally
46 |     AmazonEmailAuthentication.Free;
47 |   end;
48 | end;
49 | 
50 | end.
51 | 


--------------------------------------------------------------------------------
/README.md:
--------------------------------------------------------------------------------
 1 | # delphi-aws-ses
 2 | 
 3 | Amazon Simple Email Service ([AWS SES](http://aws.amazon.com/ses)) library for Delphi applications.
 4 | 
 5 | ## Using
 6 | 
 7 | If you call the class method `TAmazonEmailService.SendMail` the library will look for the following environment variables: `AWS_REGION`, `AWS_ACCESS_KEY_ID` and `AWS_SECRET_ACCESS_KEY`. 
 8 | 
 9 | ```Delphi
10 | var
11 |   EmailMessage: TEmailMessage;
12 | begin
13 |   EmailMessage.Recipients := TArray<string>.Create('email@example.com', 'email2@example.com');
14 |   EmailMessage.FromName := 'John Doe'
15 |   EmailMessage.FromAddress := 'email@mail.com';
16 |   EmailMessage.Subject := 'This is the subject line with HTML.';
17 |   EmailMessage.Body := 'Hello. I hope you are having a good day.';
18 | 
19 |   TAmazonEmailService.SendMail(EmailMessage);
20 | end;
21 | ```
22 | 
23 | 
24 | You may also manually instantiate the class and pass parameters to the constructor method:
25 | 
26 | ```Delphi
27 | var
28 |   AmazonEmailService: TAmazonEmailService;
29 | begin
30 |   // ...
31 |   AmazonEmailService := TAmazonEmailService.Create(AWS_REGION, AWS_ACCESS_KEY_ID, AWS_SECRET_ACCESS_KEY);
32 |   try
33 |     AmazonEmailService.Send(EmailMessage);    
34 |   finally
35 |     AmazonEmailService.Free;
36 |   end;
37 |   
38 | ```
39 | 
40 | ### Body Type
41 | 
42 | **Declaration:** `TBodyType = (btHTML, btText);`
43 | 
44 | The email body can be sent in the following formats:
45 | 
46 |   * HTML - If the recipient's email client can interpret HTML, the body can include formatted text and hyperlinks
47 |   * Plain text - If the recipient's email client is text-based, the body must not contain any nonprintable characters.
48 | 
49 | By default, the email will have HTML-enabled. To use text-based email will need you to set the EmailBody parameter values to `btText`.
50 | 
51 | ### Response Info
52 | 
53 | It's also possible to get the response information, setting as a parameter to the SendMail method a variable of type TCloudResponseInfo.
54 | 
55 | ```Delphi
56 | var
57 |   ResponseInfo: TCloudResponseInfo;
58 | begin
59 |   // ...
60 |   TAmazonEmailService.SendMail(EmailMessage, ResponseInfo);
61 |   // ...
62 | ```
63 | 
64 | For example, if the email was sent successfully will be returned:
65 | 
66 | ```Delphi
67 | Response.StatusCode = 200
68 | Response.StatusMessage = 'HTTP/1.1 200 OK'
69 | ```
70 | 
71 | ## Executing the tests
72 | 
73 | You need DUnitX do run the tests.
74 | 
75 |   * Clone the [DUnitX](https://github.com/VSoftTechnologies/DUnitX/) repository locally
76 |   * Define a `DUNITX` environment variable, pointing to the DUnitX clone directory.
77 | 
78 | ## Contributing
79 | 
80 | If you got something that's worth including into the project please [submit a Pull Request](https://github.com/monde-sistemas/delphi-aws-ses/pulls) or [open an issue](https://github.com/monde-sistemas/delphi-aws-ses/issues) for further discussion.
81 | 
82 | ## License
83 | 
84 | This software is open source, licensed under the The MIT License (MIT). See [LICENSE](https://github.com/monde-sistemas/delphi-aws-ses/blob/master/LICENSE) for details.
85 | 


--------------------------------------------------------------------------------
/tests/AmazonEmailService.groupproj:
--------------------------------------------------------------------------------
 1 | <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
 2 |     <PropertyGroup>
 3 |         <ProjectGuid>{23D32098-FE48-49B3-AF28-4F9AA4AE61D8}</ProjectGuid>
 4 |     </PropertyGroup>
 5 |     <ItemGroup>
 6 |         <Projects Include="AmazonEmailServiceTests.dproj">
 7 |             <Dependencies/>
 8 |         </Projects>
 9 |     </ItemGroup>
10 |     <ProjectExtensions>
11 |         <Borland.Personality>Default.Personality.12</Borland.Personality>
12 |         <Borland.ProjectType/>
13 |         <BorlandProject>
14 |             <Default.Personality/>
15 |         </BorlandProject>
16 |     </ProjectExtensions>
17 |     <Target Name="AmazonEmailServiceTests">
18 |         <MSBuild Projects="AmazonEmailServiceTests.dproj"/>
19 |     </Target>
20 |     <Target Name="AmazonEmailServiceTests:Clean">
21 |         <MSBuild Projects="AmazonEmailServiceTests.dproj" Targets="Clean"/>
22 |     </Target>
23 |     <Target Name="AmazonEmailServiceTests:Make">
24 |         <MSBuild Projects="AmazonEmailServiceTests.dproj" Targets="Make"/>
25 |     </Target>
26 |     <Target Name="Build">
27 |         <CallTarget Targets="AmazonEmailServiceTests"/>
28 |     </Target>
29 |     <Target Name="Clean">
30 |         <CallTarget Targets="AmazonEmailServiceTests:Clean"/>
31 |     </Target>
32 |     <Target Name="Make">
33 |         <CallTarget Targets="AmazonEmailServiceTests:Make"/>
34 |     </Target>
35 |     <Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/>
36 | </Project>
37 | 


--------------------------------------------------------------------------------
/tests/AmazonEmailServiceConfigurationTests.pas:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/monde-sistemas/delphi-aws-ses/98b37371a06a73024fdde234050f024d5eee6ea2/tests/AmazonEmailServiceConfigurationTests.pas


--------------------------------------------------------------------------------
/tests/AmazonEmailServiceRegionsTests.pas:
--------------------------------------------------------------------------------
 1 | unit AmazonEmailServiceRegionsTests;
 2 | 
 3 | interface
 4 | 
 5 | uses
 6 |   DUnitX.TestFramework,
 7 |   AmazonEmailServiceRegions;
 8 | 
 9 | type
10 |   [TestFixture]
11 |   TAmazonEmailServiceRegionsTests = class
12 |   published
13 |     procedure FormatServiceURL_WithRegion_ReturnServiceURL;
14 |   end;
15 | 
16 | implementation
17 | 
18 | uses
19 |   SysUtils;
20 | 
21 | procedure TAmazonEmailServiceRegionsTests.FormatServiceURL_WithRegion_ReturnServiceURL;
22 | var
23 |   ServiceURL: string;
24 | begin
25 |   ServiceURL := TAmazonEmailServiceRegions.FormatServiceURL('eu-west-1');
26 |   Assert.AreEqual('https://email.eu-west-1.amazonaws.com', ServiceURL);
27 | end;
28 | 
29 | initialization
30 |   TDUnitX.RegisterTestFixture(TAmazonEmailServiceRegionsTests);
31 | 
32 | end.
33 | 


--------------------------------------------------------------------------------
/tests/AmazonEmailServiceRequestsTests.pas:
--------------------------------------------------------------------------------
 1 | unit AmazonEmailServiceRequestsTests;
 2 | 
 3 | interface
 4 | 
 5 | uses
 6 |   DUnitX.TestFramework,
 7 |   AmazonEmailServiceRequests;
 8 | 
 9 | type
10 |   [TestFixture]
11 |   TAmazonEmailServiceRequestsTests = class
12 |   strict private
13 |     FAmazonEmailServiceRequests: TAmazonEmailServiceRequests;
14 |     function GetCurrentDate(const ADateTime: TDateTime): string;
15 |   public
16 |     [Setup]
17 |     procedure SetUp;
18 |     [TearDown]
19 |     procedure TearDown;
20 |   published
21 |     procedure PrepareRequest_Peer_AssignRequests;
22 |   end;
23 | 
24 | implementation
25 | 
26 | uses
27 |   DateUtils,
28 |   SysUtils,
29 |   IPPeerAPI;
30 | 
31 | function TAmazonEmailServiceRequestsTests.GetCurrentDate(const ADateTime: TDateTime): string;
32 | const
33 |   FORMAT_HTTP_DATE = 'ddd, dd mmm yyyy hh:nn:ss "GMT"';
34 | begin
35 |   Result := FormatDateTime(FORMAT_HTTP_DATE, TTimeZone.Local.ToUniversalTime(ADateTime), TFormatSettings.Create('en-US'));
36 | end;
37 | 
38 | procedure TAmazonEmailServiceRequestsTests.PrepareRequest_Peer_AssignRequests;
39 | var
40 |   Peer: IIPHTTP;
41 | begin
42 |   Peer := PeerFactory.CreatePeer('', IIPHTTP, nil) as IIPHTTP;
43 |   try
44 |     FAmazonEmailServiceRequests.PrepareRequest(Peer);
45 | 
46 |     Assert.AreEqual('application/x-www-form-urlencoded', Peer.GetRequest.ContentType);
47 |     Assert.AreEqual<Int64>(230, Peer.GetRequest.ContentLength);
48 |     Assert.AreEqual(GetCurrentDate(FAmazonEmailServiceRequests.DateRequest), Peer.GetRequest.CustomHeaders.Values['Date']);
49 |     Assert.AreEqual('AWS3-HTTPS AWSAccessKeyId=AKIAJQF6P3QUHRSJPZCA, Algorithm=HmacSHA256, Signature=', Copy(Peer.GetRequest.CustomHeaders.Values['X-Amzn-Authorization'], 1, 80));
50 |     Assert.AreEqual(124, Length(Peer.GetRequest.CustomHeaders.Values['X-Amzn-Authorization']));
51 |   finally
52 |     Peer := nil;
53 |   end;
54 | end;
55 | 
56 | procedure TAmazonEmailServiceRequestsTests.SetUp;
57 | const
58 |   FAKE_AWS_ACCESS_KEY = 'AKIAJQF6P3QUHRSJPZCA';
59 |   FAKE_AWS_SECRET_KEY = 'BeVo2wwiGIg25t4jKxsqmzS3ljSxrdZfl/SJ+32K';
60 | begin
61 |   inherited;
62 |   FAmazonEmailServiceRequests := TAmazonEmailServiceRequests.Create(FAKE_AWS_ACCESS_KEY, FAKE_AWS_SECRET_KEY);
63 | end;
64 | 
65 | procedure TAmazonEmailServiceRequestsTests.TearDown;
66 | begin
67 |   inherited;
68 |   FAmazonEmailServiceRequests.Free;
69 | end;
70 | 
71 | initialization
72 |   TDUnitX.RegisterTestFixture(TAmazonEmailServiceRequestsTests);
73 | 
74 | end.
75 | 


--------------------------------------------------------------------------------
/tests/AmazonEmailServiceTests.dpr:
--------------------------------------------------------------------------------
 1 | program AmazonEmailServiceTests;
 2 | 
 3 | {$APPTYPE CONSOLE}
 4 | 
 5 | uses
 6 |   ActiveX,
 7 |   PrepareRequestSignatureTests in 'PrepareRequestSignatureTests.pas',
 8 |   EncodeQueryParamsTests in 'EncodeQueryParamsTests.pas',
 9 |   PopulateResponseInfoTests in 'PopulateResponseInfoTests.pas',
10 |   AmazonEmailServiceRegionsTests in 'AmazonEmailServiceRegionsTests.pas',
11 |   BuildQueryParametersTests in 'BuildQueryParametersTests.pas',
12 |   AmazonEmailServiceRequestsTests in 'AmazonEmailServiceRequestsTests.pas',
13 |   DunitXTestRunner in 'DunitXTestRunner.pas',
14 |   AmazonEmailServiceConfigurationTests in 'AmazonEmailServiceConfigurationTests.pas';
15 | 
16 | {$R *.RES}
17 | 
18 | begin
19 |   CoInitialize(nil);
20 |   try
21 |     TDUnitXTestRunner.RunTests;
22 |   finally
23 |     CoUninitialize;
24 |   end;
25 | end.
26 | 


--------------------------------------------------------------------------------
/tests/AmazonEmailServiceTests.dproj:
--------------------------------------------------------------------------------
  1 | <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
  2 |     <PropertyGroup>
  3 |         <ProjectGuid>{EA1C69F3-72E3-4B8D-A13E-31ED3822699A}</ProjectGuid>
  4 |         <ProjectVersion>16.1</ProjectVersion>
  5 |         <FrameworkType>None</FrameworkType>
  6 |         <Base>True</Base>
  7 |         <Config Condition="'$(Config)'==''">Debug</Config>
  8 |         <Platform Condition="'$(Platform)'==''">Win32</Platform>
  9 |         <TargetedPlatforms>1</TargetedPlatforms>
 10 |         <AppType>Console</AppType>
 11 |         <MainSource>AmazonEmailServiceTests.dpr</MainSource>
 12 |     </PropertyGroup>
 13 |     <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
 14 |         <Base>true</Base>
 15 |     </PropertyGroup>
 16 |     <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
 17 |         <Base_Win32>true</Base_Win32>
 18 |         <CfgParent>Base</CfgParent>
 19 |         <Base>true</Base>
 20 |     </PropertyGroup>
 21 |     <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
 22 |         <Base_Win64>true</Base_Win64>
 23 |         <CfgParent>Base</CfgParent>
 24 |         <Base>true</Base>
 25 |     </PropertyGroup>
 26 |     <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
 27 |         <Cfg_1>true</Cfg_1>
 28 |         <CfgParent>Base</CfgParent>
 29 |         <Base>true</Base>
 30 |     </PropertyGroup>
 31 |     <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
 32 |         <Cfg_1_Win32>true</Cfg_1_Win32>
 33 |         <CfgParent>Cfg_1</CfgParent>
 34 |         <Cfg_1>true</Cfg_1>
 35 |         <Base>true</Base>
 36 |     </PropertyGroup>
 37 |     <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
 38 |         <Cfg_2>true</Cfg_2>
 39 |         <CfgParent>Base</CfgParent>
 40 |         <Base>true</Base>
 41 |     </PropertyGroup>
 42 |     <PropertyGroup Condition="'$(Base)'!=''">
 43 |         <DCC_UnitSearchPath>..\;$(DUNITX);$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
 44 |         <SanitizedProjectName>AmazonEmailServiceTests</SanitizedProjectName>
 45 |         <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
 46 |         <DCC_Define>CONSOLE_TESTRUNNER;$(DCC_Define)</DCC_Define>
 47 |         <DCC_DcuOutput>.</DCC_DcuOutput>
 48 |         <DCC_E>false</DCC_E>
 49 |         <DCC_N>false</DCC_N>
 50 |         <DCC_S>false</DCC_S>
 51 |         <DCC_F>false</DCC_F>
 52 |         <DCC_K>false</DCC_K>
 53 |     </PropertyGroup>
 54 |     <PropertyGroup Condition="'$(Base_Win32)'!=''">
 55 |         <VerInfo_Locale>1033</VerInfo_Locale>
 56 |         <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
 57 |         <DCC_UsePackage>dxThemeRS21;dxPScxSchedulerLnkRS21;cxSchedulerRibbonStyleEventEditorRS21;cxSchedulerRS21;dxDBXServerModeRS21;DBXSqliteDriver;dxSkinsdxDLPainterRS21;fmx;cxVerticalGridRS21;IndySystem;dxSpreadSheetRS21;cxTreeListdxBarPopupMenuRS21;tethering;frxe21;vclib;cxPivotGridRS21;DBXInterBaseDriver;DataSnapClient;DataSnapServer;DataSnapCommon;dxPScxPivotGridLnkRS21;frx21;frxIBX21;DataSnapProviderClient;dxGaugeControlRS21;DBXSybaseASEDriver;cxEditorsRS21;DbxCommonDriver;dxPSPrVwRibbonRS21;vclimg;cxGridRS21;cxPivotGridOLAPRS21;dbxcds;dxPsPrVwAdvRS21;DatasnapConnectorsFreePascal;MetropolisUILiveTile;dxTileControlRS21;vcldb;vcldsnap;cxTreeListRS21;dxSpellCheckerRS21;dxdborRS21;cxSpreadSheetRS21;DBXDb2Driver;dxBarExtItemsRS21;dxWizardControlRS21;frxDBX21;DBXOracleDriver;CustomIPTransport;vclribbon;dxtrmdRS21;dsnap;IndyIPServer;fmxase;vcl;IndyCore;dxBarExtDBItemsRS21;dxGDIPlusRS21;DBXMSSQLDriver;IndyIPCommon;CloudService;dxSkinsdxBarPainterRS21;frxADO21;dxPSdxSpreadSheetLnkRS21;Editors_XE7;soapserver;dxDockingRS21;dxdbtrRS21;inetdbxpress;dxLayoutControlRS21;dsnapxml;dxPScxGridLnkRS21;dxPSdxFCLnkRS21;dxSkinscxSchedulerPainterRS21;adortl;dxPSLnksRS21;dxPSdxDBOCLnkRS21;madBasic_;fsADO21;cxLibraryRS21;bindcompfmx;dxComnRS21;cxDataRS21;dxTabbedMDIRS21;RESTBackendComponents;rtl;dbrtl;DbxClientDriver;dxorgcRS21;dxPScxExtCommonRS21;bindcomp;inetdb;dxPScxSSLnkRS21;dxPSdxOCLnkRS21;dxPScxTLLnkRS21;dxPSdxLCLnkRS21;DbxDevartPostgreSQLDriver210;DBXOdbcDriver;frxDB21;dxMapControlRS21;madDisAsm_;xmlrtl;DataSnapNativeClient;svnui;ibxpress;Cadena_XE7;cxExportRS21;IndyProtocols;DBXMySQLDriver;cxPivotGridChartRS21;dxFlowChartRS21;soaprtl;vclactnband;bindengine;bindcompdbx;fsDB21;bindcompvcl;cxPageControlRS21;dxCoreRS21;dxmdsRS21;vclie;cxSchedulerTreeBrowserRS21;DbxDevartInterBaseDriver210;fs21;madExcept_;vcltouch;dxPSCoreRS21;dxSkinscxPCPainterRS21;dxServerModeRS21;emsclient;dxPScxCommonRS21;dxPSdxDBTVLnkRS21;dxSkinsdxRibbonPainterRS21;VclSmp;VCLRESTComponents;DBXInformixDriver;dxADOServerModeRS21;dxBarDBNavRS21;dxRibbonCustomizationFormRS21;DataSnapConnectors;DataSnapServerMidas;dsnapcon;DBXFirebirdDriver;cxSchedulerGridRS21;inet;dxRibbonRS21;fmxobj;dxNavBarRS21;dxSkinsdxNavBarPainterRS21;soapmidas;vclx;cxBarEditItemRS21;dxPScxVGridLnkRS21;svn;DBXSybaseASADriver;dxBarRS21;fmxdae;dxSkinsCoreRS21;RESTComponents;dbexpress;DataSnapIndy10ServerTransport;fsIBX21;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
 58 |         <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
 59 |     </PropertyGroup>
 60 |     <PropertyGroup Condition="'$(Base_Win64)'!=''">
 61 |         <DCC_UsePackage>DBXSqliteDriver;fmx;IndySystem;tethering;vclib;DBXInterBaseDriver;DataSnapClient;DataSnapServer;DataSnapCommon;DataSnapProviderClient;DBXSybaseASEDriver;DbxCommonDriver;vclimg;dbxcds;DatasnapConnectorsFreePascal;MetropolisUILiveTile;vcldb;vcldsnap;DBXDb2Driver;DBXOracleDriver;CustomIPTransport;vclribbon;dsnap;IndyIPServer;fmxase;vcl;IndyCore;DBXMSSQLDriver;IndyIPCommon;CloudService;soapserver;inetdbxpress;dsnapxml;adortl;bindcompfmx;RESTBackendComponents;rtl;dbrtl;DbxClientDriver;bindcomp;inetdb;DBXOdbcDriver;xmlrtl;DataSnapNativeClient;ibxpress;IndyProtocols;DBXMySQLDriver;soaprtl;vclactnband;bindengine;bindcompdbx;bindcompvcl;vclie;vcltouch;emsclient;VclSmp;VCLRESTComponents;DBXInformixDriver;DataSnapConnectors;DataSnapServerMidas;dsnapcon;DBXFirebirdDriver;inet;fmxobj;soapmidas;vclx;DBXSybaseASADriver;fmxdae;RESTComponents;dbexpress;DataSnapIndy10ServerTransport;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
 62 |     </PropertyGroup>
 63 |     <PropertyGroup Condition="'$(Cfg_1)'!=''">
 64 |         <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
 65 |         <DCC_DebugDCUs>true</DCC_DebugDCUs>
 66 |         <DCC_Optimize>false</DCC_Optimize>
 67 |         <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
 68 |         <DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
 69 |         <DCC_RemoteDebug>true</DCC_RemoteDebug>
 70 |     </PropertyGroup>
 71 |     <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
 72 |         <DCC_TYPEINFO_IMPLICITLY_ADDED>false</DCC_TYPEINFO_IMPLICITLY_ADDED>
 73 |         <Manifest_File>None</Manifest_File>
 74 |         <VerInfo_Locale>1033</VerInfo_Locale>
 75 |         <DCC_RemoteDebug>false</DCC_RemoteDebug>
 76 |     </PropertyGroup>
 77 |     <PropertyGroup Condition="'$(Cfg_2)'!=''">
 78 |         <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
 79 |         <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
 80 |         <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
 81 |         <DCC_DebugInformation>0</DCC_DebugInformation>
 82 |     </PropertyGroup>
 83 |     <ItemGroup>
 84 |         <DelphiCompile Include="$(MainSource)">
 85 |             <MainSource>MainSource</MainSource>
 86 |         </DelphiCompile>
 87 |         <DCCReference Include="PrepareRequestSignatureTests.pas"/>
 88 |         <DCCReference Include="EncodeQueryParamsTests.pas"/>
 89 |         <DCCReference Include="PopulateResponseInfoTests.pas"/>
 90 |         <DCCReference Include="AmazonEmailServiceRegionsTests.pas"/>
 91 |         <DCCReference Include="BuildQueryParametersTests.pas"/>
 92 |         <DCCReference Include="AmazonEmailServiceRequestsTests.pas"/>
 93 |         <DCCReference Include="DunitXTestRunner.pas"/>
 94 |         <DCCReference Include="AmazonEmailServiceConfigurationTests.pas"/>
 95 |         <BuildConfiguration Include="Release">
 96 |             <Key>Cfg_2</Key>
 97 |             <CfgParent>Base</CfgParent>
 98 |         </BuildConfiguration>
 99 |         <BuildConfiguration Include="Base">
100 |             <Key>Base</Key>
101 |         </BuildConfiguration>
102 |         <BuildConfiguration Include="Debug">
103 |             <Key>Cfg_1</Key>
104 |             <CfgParent>Base</CfgParent>
105 |         </BuildConfiguration>
106 |     </ItemGroup>
107 |     <ProjectExtensions>
108 |         <Borland.Personality>Delphi.Personality.12</Borland.Personality>
109 |         <Borland.ProjectType>Application</Borland.ProjectType>
110 |         <BorlandProject>
111 |             <Delphi.Personality>
112 |                 <Source>
113 |                     <Source Name="MainSource">AmazonEmailServiceTests.dpr</Source>
114 |                 </Source>
115 |                 <Excluded_Packages>
116 |                     <Excluded_Packages Name="$(BDSBIN)\dclDataSnapFireDAC210.bpl">Embarcadero DataSnap FireDAC</Excluded_Packages>
117 |                     <Excluded_Packages Name="$(BDSBIN)\dcloffice2k210.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
118 |                     <Excluded_Packages Name="$(BDSBIN)\dclofficexp210.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
119 |                     <Excluded_Packages Name="C:\Program Files (x86)\FastReports\FastReport 5\LibD21\dclfsbde21.bpl">File C:\Program Files (x86)\FastReports\FastReport 5\LibD21\dclfsbde21.bpl not found</Excluded_Packages>
120 |                     <Excluded_Packages Name="C:\Program Files (x86)\FastReports\FastReport 5\LibD21\dclfrxbde21.bpl">File C:\Program Files (x86)\FastReports\FastReport 5\LibD21\dclfrxbde21.bpl not found</Excluded_Packages>
121 |                     <Excluded_Packages Name="C:\Program Files (x86)\FastReports\FastReport 5\LibD21\dclfstee21.bpl">FastScript 1.9 Tee Components</Excluded_Packages>
122 |                     <Excluded_Packages Name="C:\Program Files (x86)\FastReports\FastReport 5\LibD21\dclfrxtee21.bpl">(untitled)</Excluded_Packages>
123 |                 </Excluded_Packages>
124 |             </Delphi.Personality>
125 |             <Deployment>
126 |                 <DeployFile LocalName="Win32\Debug\AmazonEmailServiceTests.exe" Configuration="Debug" Class="ProjectOutput">
127 |                     <Platform Name="Win32">
128 |                         <RemoteName>AmazonEmailServiceTests.exe</RemoteName>
129 |                         <Overwrite>true</Overwrite>
130 |                     </Platform>
131 |                 </DeployFile>
132 |                 <DeployFile LocalName="$(BDS)\Redist\osx32\libcgunwind.1.0.dylib" Class="DependencyModule">
133 |                     <Platform Name="OSX32">
134 |                         <Overwrite>true</Overwrite>
135 |                     </Platform>
136 |                     <Platform Name="iOSSimulator">
137 |                         <Overwrite>true</Overwrite>
138 |                     </Platform>
139 |                 </DeployFile>
140 |                 <DeployClass Required="true" Name="DependencyPackage">
141 |                     <Platform Name="iOSDevice">
142 |                         <Operation>1</Operation>
143 |                         <Extensions>.dylib</Extensions>
144 |                     </Platform>
145 |                     <Platform Name="Win32">
146 |                         <Operation>0</Operation>
147 |                         <Extensions>.bpl</Extensions>
148 |                     </Platform>
149 |                     <Platform Name="OSX32">
150 |                         <RemoteDir>Contents\MacOS</RemoteDir>
151 |                         <Operation>1</Operation>
152 |                         <Extensions>.dylib</Extensions>
153 |                     </Platform>
154 |                     <Platform Name="iOSSimulator">
155 |                         <Operation>1</Operation>
156 |                         <Extensions>.dylib</Extensions>
157 |                     </Platform>
158 |                 </DeployClass>
159 |                 <DeployClass Name="DependencyModule">
160 |                     <Platform Name="iOSDevice">
161 |                         <Operation>1</Operation>
162 |                         <Extensions>.dylib</Extensions>
163 |                     </Platform>
164 |                     <Platform Name="Win32">
165 |                         <Operation>0</Operation>
166 |                         <Extensions>.dll;.bpl</Extensions>
167 |                     </Platform>
168 |                     <Platform Name="OSX32">
169 |                         <RemoteDir>Contents\MacOS</RemoteDir>
170 |                         <Operation>1</Operation>
171 |                         <Extensions>.dylib</Extensions>
172 |                     </Platform>
173 |                     <Platform Name="iOSSimulator">
174 |                         <Operation>1</Operation>
175 |                         <Extensions>.dylib</Extensions>
176 |                     </Platform>
177 |                 </DeployClass>
178 |                 <DeployClass Name="iPad_Launch2048">
179 |                     <Platform Name="iOSDevice">
180 |                         <Operation>1</Operation>
181 |                     </Platform>
182 |                     <Platform Name="iOSSimulator">
183 |                         <Operation>1</Operation>
184 |                     </Platform>
185 |                 </DeployClass>
186 |                 <DeployClass Name="ProjectOSXInfoPList">
187 |                     <Platform Name="OSX32">
188 |                         <RemoteDir>Contents</RemoteDir>
189 |                         <Operation>1</Operation>
190 |                     </Platform>
191 |                 </DeployClass>
192 |                 <DeployClass Name="ProjectiOSDeviceDebug">
193 |                     <Platform Name="iOSDevice">
194 |                         <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
195 |                         <Operation>1</Operation>
196 |                     </Platform>
197 |                 </DeployClass>
198 |                 <DeployClass Name="Android_SplashImage470">
199 |                     <Platform Name="Android">
200 |                         <RemoteDir>res\drawable-normal</RemoteDir>
201 |                         <Operation>1</Operation>
202 |                     </Platform>
203 |                 </DeployClass>
204 |                 <DeployClass Name="AndroidLibnativeX86File">
205 |                     <Platform Name="Android">
206 |                         <RemoteDir>library\lib\x86</RemoteDir>
207 |                         <Operation>1</Operation>
208 |                     </Platform>
209 |                 </DeployClass>
210 |                 <DeployClass Name="ProjectiOSResource">
211 |                     <Platform Name="iOSDevice">
212 |                         <Operation>1</Operation>
213 |                     </Platform>
214 |                     <Platform Name="iOSSimulator">
215 |                         <Operation>1</Operation>
216 |                     </Platform>
217 |                 </DeployClass>
218 |                 <DeployClass Name="ProjectOSXEntitlements">
219 |                     <Platform Name="OSX32">
220 |                         <RemoteDir>../</RemoteDir>
221 |                         <Operation>1</Operation>
222 |                     </Platform>
223 |                 </DeployClass>
224 |                 <DeployClass Name="AndroidGDBServer">
225 |                     <Platform Name="Android">
226 |                         <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
227 |                         <Operation>1</Operation>
228 |                     </Platform>
229 |                 </DeployClass>
230 |                 <DeployClass Name="iPhone_Launch640">
231 |                     <Platform Name="iOSDevice">
232 |                         <Operation>1</Operation>
233 |                     </Platform>
234 |                     <Platform Name="iOSSimulator">
235 |                         <Operation>1</Operation>
236 |                     </Platform>
237 |                 </DeployClass>
238 |                 <DeployClass Name="Android_SplashImage960">
239 |                     <Platform Name="Android">
240 |                         <RemoteDir>res\drawable-xlarge</RemoteDir>
241 |                         <Operation>1</Operation>
242 |                     </Platform>
243 |                 </DeployClass>
244 |                 <DeployClass Name="Android_LauncherIcon96">
245 |                     <Platform Name="Android">
246 |                         <RemoteDir>res\drawable-xhdpi</RemoteDir>
247 |                         <Operation>1</Operation>
248 |                     </Platform>
249 |                 </DeployClass>
250 |                 <DeployClass Name="iPhone_Launch320">
251 |                     <Platform Name="iOSDevice">
252 |                         <Operation>1</Operation>
253 |                     </Platform>
254 |                     <Platform Name="iOSSimulator">
255 |                         <Operation>1</Operation>
256 |                     </Platform>
257 |                 </DeployClass>
258 |                 <DeployClass Name="Android_LauncherIcon144">
259 |                     <Platform Name="Android">
260 |                         <RemoteDir>res\drawable-xxhdpi</RemoteDir>
261 |                         <Operation>1</Operation>
262 |                     </Platform>
263 |                 </DeployClass>
264 |                 <DeployClass Name="AndroidLibnativeMipsFile">
265 |                     <Platform Name="Android">
266 |                         <RemoteDir>library\lib\mips</RemoteDir>
267 |                         <Operation>1</Operation>
268 |                     </Platform>
269 |                 </DeployClass>
270 |                 <DeployClass Name="AndroidSplashImageDef">
271 |                     <Platform Name="Android">
272 |                         <RemoteDir>res\drawable</RemoteDir>
273 |                         <Operation>1</Operation>
274 |                     </Platform>
275 |                 </DeployClass>
276 |                 <DeployClass Name="DebugSymbols">
277 |                     <Platform Name="OSX32">
278 |                         <RemoteDir>Contents\MacOS</RemoteDir>
279 |                         <Operation>1</Operation>
280 |                     </Platform>
281 |                     <Platform Name="iOSSimulator">
282 |                         <Operation>1</Operation>
283 |                     </Platform>
284 |                     <Platform Name="Win32">
285 |                         <Operation>0</Operation>
286 |                     </Platform>
287 |                 </DeployClass>
288 |                 <DeployClass Name="DependencyFramework">
289 |                     <Platform Name="OSX32">
290 |                         <RemoteDir>Contents\MacOS</RemoteDir>
291 |                         <Operation>1</Operation>
292 |                         <Extensions>.framework</Extensions>
293 |                     </Platform>
294 |                     <Platform Name="Win32">
295 |                         <Operation>0</Operation>
296 |                     </Platform>
297 |                 </DeployClass>
298 |                 <DeployClass Name="Android_SplashImage426">
299 |                     <Platform Name="Android">
300 |                         <RemoteDir>res\drawable-small</RemoteDir>
301 |                         <Operation>1</Operation>
302 |                     </Platform>
303 |                 </DeployClass>
304 |                 <DeployClass Name="ProjectiOSEntitlements">
305 |                     <Platform Name="iOSDevice">
306 |                         <RemoteDir>../</RemoteDir>
307 |                         <Operation>1</Operation>
308 |                     </Platform>
309 |                 </DeployClass>
310 |                 <DeployClass Name="AdditionalDebugSymbols">
311 |                     <Platform Name="OSX32">
312 |                         <RemoteDir>Contents\MacOS</RemoteDir>
313 |                         <Operation>1</Operation>
314 |                     </Platform>
315 |                     <Platform Name="iOSSimulator">
316 |                         <Operation>1</Operation>
317 |                     </Platform>
318 |                     <Platform Name="Win32">
319 |                         <RemoteDir>Contents\MacOS</RemoteDir>
320 |                         <Operation>0</Operation>
321 |                     </Platform>
322 |                 </DeployClass>
323 |                 <DeployClass Name="AndroidClassesDexFile">
324 |                     <Platform Name="Android">
325 |                         <RemoteDir>classes</RemoteDir>
326 |                         <Operation>1</Operation>
327 |                     </Platform>
328 |                 </DeployClass>
329 |                 <DeployClass Name="ProjectiOSInfoPList">
330 |                     <Platform Name="iOSDevice">
331 |                         <Operation>1</Operation>
332 |                     </Platform>
333 |                     <Platform Name="iOSSimulator">
334 |                         <Operation>1</Operation>
335 |                     </Platform>
336 |                 </DeployClass>
337 |                 <DeployClass Name="iPad_Launch1024">
338 |                     <Platform Name="iOSDevice">
339 |                         <Operation>1</Operation>
340 |                     </Platform>
341 |                     <Platform Name="iOSSimulator">
342 |                         <Operation>1</Operation>
343 |                     </Platform>
344 |                 </DeployClass>
345 |                 <DeployClass Name="Android_DefaultAppIcon">
346 |                     <Platform Name="Android">
347 |                         <RemoteDir>res\drawable</RemoteDir>
348 |                         <Operation>1</Operation>
349 |                     </Platform>
350 |                 </DeployClass>
351 |                 <DeployClass Name="ProjectOSXResource">
352 |                     <Platform Name="OSX32">
353 |                         <RemoteDir>Contents\Resources</RemoteDir>
354 |                         <Operation>1</Operation>
355 |                     </Platform>
356 |                 </DeployClass>
357 |                 <DeployClass Name="ProjectiOSDeviceResourceRules">
358 |                     <Platform Name="iOSDevice">
359 |                         <Operation>1</Operation>
360 |                     </Platform>
361 |                 </DeployClass>
362 |                 <DeployClass Name="iPad_Launch768">
363 |                     <Platform Name="iOSDevice">
364 |                         <Operation>1</Operation>
365 |                     </Platform>
366 |                     <Platform Name="iOSSimulator">
367 |                         <Operation>1</Operation>
368 |                     </Platform>
369 |                 </DeployClass>
370 |                 <DeployClass Required="true" Name="ProjectOutput">
371 |                     <Platform Name="iOSDevice">
372 |                         <Operation>1</Operation>
373 |                     </Platform>
374 |                     <Platform Name="Android">
375 |                         <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
376 |                         <Operation>1</Operation>
377 |                     </Platform>
378 |                     <Platform Name="Win32">
379 |                         <Operation>0</Operation>
380 |                     </Platform>
381 |                     <Platform Name="OSX32">
382 |                         <RemoteDir>Contents\MacOS</RemoteDir>
383 |                         <Operation>1</Operation>
384 |                     </Platform>
385 |                     <Platform Name="iOSSimulator">
386 |                         <Operation>1</Operation>
387 |                     </Platform>
388 |                 </DeployClass>
389 |                 <DeployClass Name="AndroidLibnativeArmeabiFile">
390 |                     <Platform Name="Android">
391 |                         <RemoteDir>library\lib\armeabi</RemoteDir>
392 |                         <Operation>1</Operation>
393 |                     </Platform>
394 |                 </DeployClass>
395 |                 <DeployClass Name="Android_SplashImage640">
396 |                     <Platform Name="Android">
397 |                         <RemoteDir>res\drawable-large</RemoteDir>
398 |                         <Operation>1</Operation>
399 |                     </Platform>
400 |                 </DeployClass>
401 |                 <DeployClass Name="File">
402 |                     <Platform Name="iOSDevice">
403 |                         <Operation>0</Operation>
404 |                     </Platform>
405 |                     <Platform Name="Android">
406 |                         <Operation>0</Operation>
407 |                     </Platform>
408 |                     <Platform Name="Win32">
409 |                         <Operation>0</Operation>
410 |                     </Platform>
411 |                     <Platform Name="OSX32">
412 |                         <RemoteDir>Contents\MacOS</RemoteDir>
413 |                         <Operation>0</Operation>
414 |                     </Platform>
415 |                     <Platform Name="iOSSimulator">
416 |                         <Operation>0</Operation>
417 |                     </Platform>
418 |                 </DeployClass>
419 |                 <DeployClass Name="iPhone_Launch640x1136">
420 |                     <Platform Name="iOSDevice">
421 |                         <Operation>1</Operation>
422 |                     </Platform>
423 |                     <Platform Name="iOSSimulator">
424 |                         <Operation>1</Operation>
425 |                     </Platform>
426 |                 </DeployClass>
427 |                 <DeployClass Name="Android_LauncherIcon36">
428 |                     <Platform Name="Android">
429 |                         <RemoteDir>res\drawable-ldpi</RemoteDir>
430 |                         <Operation>1</Operation>
431 |                     </Platform>
432 |                 </DeployClass>
433 |                 <DeployClass Name="AndroidSplashStyles">
434 |                     <Platform Name="Android">
435 |                         <RemoteDir>res\values</RemoteDir>
436 |                         <Operation>1</Operation>
437 |                     </Platform>
438 |                 </DeployClass>
439 |                 <DeployClass Name="iPad_Launch1536">
440 |                     <Platform Name="iOSDevice">
441 |                         <Operation>1</Operation>
442 |                     </Platform>
443 |                     <Platform Name="iOSSimulator">
444 |                         <Operation>1</Operation>
445 |                     </Platform>
446 |                 </DeployClass>
447 |                 <DeployClass Name="Android_LauncherIcon48">
448 |                     <Platform Name="Android">
449 |                         <RemoteDir>res\drawable-mdpi</RemoteDir>
450 |                         <Operation>1</Operation>
451 |                     </Platform>
452 |                 </DeployClass>
453 |                 <DeployClass Name="Android_LauncherIcon72">
454 |                     <Platform Name="Android">
455 |                         <RemoteDir>res\drawable-hdpi</RemoteDir>
456 |                         <Operation>1</Operation>
457 |                     </Platform>
458 |                 </DeployClass>
459 |                 <DeployClass Name="ProjectAndroidManifest">
460 |                     <Platform Name="Android">
461 |                         <Operation>1</Operation>
462 |                     </Platform>
463 |                 </DeployClass>
464 |                 <ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
465 |                 <ProjectRoot Platform="iOSDevice" Name="$(PROJECTNAME).app"/>
466 |                 <ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
467 |                 <ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/>
468 |                 <ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
469 |                 <ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
470 |             </Deployment>
471 |             <Platforms>
472 |                 <Platform value="Win32">True</Platform>
473 |                 <Platform value="Win64">False</Platform>
474 |             </Platforms>
475 |             <UnitTesting>
476 |                 <TestFramework>DUnit / Delphi Win32</TestFramework>
477 |                 <TestRunner>Console</TestRunner>
478 |                 <SourceProjectName>D:\Monde\aws-ses\Playground\Playground.dproj</SourceProjectName>
479 |                 <TestProjectName/>
480 |             </UnitTesting>
481 |         </BorlandProject>
482 |         <ProjectFileVersion>12</ProjectFileVersion>
483 |     </ProjectExtensions>
484 |     <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
485 |     <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
486 |     <Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
487 | </Project>
488 | 


--------------------------------------------------------------------------------
/tests/BuildQueryParametersTests.pas:
--------------------------------------------------------------------------------
  1 | unit BuildQueryParametersTests;
  2 | 
  3 | interface
  4 | 
  5 | uses
  6 |   Classes,
  7 |   DUnitX.TestFramework,
  8 |   AmazonEmailMessage,
  9 |   BuildQueryParameters;
 10 | 
 11 | type
 12 |   [TestFixture]
 13 |   TBuildQueryParametersTests = class
 14 |   strict private
 15 |     FEmailMessage: TEmailMessage;
 16 |   private
 17 |     procedure AddRecipient(const Address: string);
 18 |   public
 19 |     [Setup]
 20 |     procedure SetUp;
 21 |   published
 22 |     procedure GetQueryParams_WithHTMLBody_EncodedParamsReturned;
 23 |     procedure GetQueryParams_WithTextBody_EncodedParamsReturned;
 24 |     procedure GetQueryParams_MutipleRecipients_RecipientsAdded;
 25 |     procedure GetQueryParams_WithReplyToAddresses_AddressesAdded;
 26 |     procedure GetQueryParams_FromNameSpecified_FromNameEncoded;
 27 |   end;
 28 | 
 29 | implementation
 30 | 
 31 | uses
 32 |   AmazonEmailService;
 33 | 
 34 | procedure TBuildQueryParametersTests.AddRecipient(const Address: string);
 35 | begin
 36 |   SetLength(FEmailMessage.Recipients, Length(FEmailMessage.Recipients) + 1);
 37 |   FEmailMessage.Recipients[High(FEmailMessage.Recipients)] := Address;
 38 | end;
 39 | 
 40 | procedure TBuildQueryParametersTests.GetQueryParams_MutipleRecipients_RecipientsAdded;
 41 | const
 42 |   ExpectedRecipients = '&Destination.ToAddresses.member.1=emailFrom%40mail.com' +
 43 |                     '&Destination.ToAddresses.member.2=emailFrom2%40mail.com';
 44 | var
 45 |   EncodedParams: TStringStream;
 46 | begin
 47 |   AddRecipient('emailFrom2@mail.com');
 48 | 
 49 |   EncodedParams := TBuildQueryParameters.GetQueryParams(FEmailMessage);
 50 |   try
 51 |     Assert.Contains(EncodedParams.DataString, ExpectedRecipients);
 52 |   finally
 53 |     EncodedParams.Free;
 54 |   end;
 55 | end;
 56 | 
 57 | procedure TBuildQueryParametersTests.GetQueryParams_FromNameSpecified_FromNameEncoded;
 58 | const
 59 |   ExpectedSource = '&Source=%3D%3Futf-8%3FB%3FW0FDTUVdIEpvaG4gRG9l%3F%3D%20%3Cemail%40mail.com%3E';
 60 | var
 61 |   EncodedParams: TStringStream;
 62 | begin
 63 |   FEmailMessage.FromName := '[ACME] John Doe';
 64 |   EncodedParams := TBuildQueryParameters.GetQueryParams(FEmailMessage);
 65 |   try
 66 |     Assert.Contains(EncodedParams.DataString, ExpectedSource);
 67 |   finally
 68 |     EncodedParams.Free;
 69 |   end;
 70 | end;
 71 | 
 72 | procedure TBuildQueryParametersTests.GetQueryParams_WithHTMLBody_EncodedParamsReturned;
 73 | const
 74 |   EXPECTED_RETURN = 'Action=SendEmail' +
 75 |                     '&Source=%3D%3Futf-8%3FB%3F%3F%3D%20%3Cemail%40mail.com%3E' +
 76 |                     '&Destination.ToAddresses.member.1=emailFrom%40mail.com' +
 77 |                     '&Message.Subject.Charset=UTF-8' +
 78 |                     '&Message.Subject.Data=This%20is%20the%20subject%20line%20with%20HTML.' +
 79 |                     '&Message.Body.Html.Charset=UTF-8' +
 80 |                     '&Message.Body.Html.Data=%3C%21DOCTYPE%20html%3E%3Chtml%3E%3Cbody%3E%3Cp%3EThis%20is%20' +
 81 |                     'an%20email%20link%3A%3Ca%20href%3D%22mailto%3Asomeone%40example.com%3FSubject%3DHello' +
 82 |                     '%2520again%22%20target%3D%22_top%22%3ESend%20Mail%3C%2Fa%3E%3C%2Fp%3E%3Cp%3E%3Cb%3ENote' +
 83 |                     '%3A%3C%2Fb%3E%20Spaces%20between%20words%20should%20be%20replaced%20by%20%2520%20to%20' +
 84 |                     'ensure%20that%20the%20browser%20will%20display%20the%20text%20properly.%3C%2Fp%3E%3C%2' +
 85 |                     'Fbody%3E%3C%2Fhtml%3E';
 86 | var
 87 |   EncodedParams: TStringStream;
 88 | begin
 89 |   FEmailMessage.BodyType := btHTML;
 90 |   FEmailMessage.Subject := 'This is the subject line with HTML.';
 91 |   FEmailMessage.Body := '<!DOCTYPE html>' +
 92 |     '<html>' +
 93 |     '<body>' +
 94 |     '<p>' +
 95 |     'This is an email link:' +
 96 |     '<a href="mailto:someone@example.com?Subject=Hello%20again" target="_top">Send Mail</a>' +
 97 |     '</p>' +
 98 |     '<p>' +
 99 |     '<b>Note:</b> Spaces between words should be replaced by %20 to ensure that the browser will display the text properly.' +
100 |     '</p>' +
101 |     '</body>' +
102 |     '</html>';
103 | 
104 |   EncodedParams := TBuildQueryParameters.GetQueryParams(FEmailMessage);
105 |   try
106 |     Assert.AreEqual(EXPECTED_RETURN, EncodedParams.DataString);
107 |   finally
108 |     EncodedParams.Free;
109 |   end;
110 | end;
111 | 
112 | procedure TBuildQueryParametersTests.GetQueryParams_WithReplyToAddresses_AddressesAdded;
113 | const
114 |   ExpectedRecipients = '&ReplyToAddresses.member.1=emailtoreply1%40mail.com' +
115 |                     '&ReplyToAddresses.member.2=emailtoreply2%40mail.com';
116 | var
117 |   EncodedParams: TStringStream;
118 | begin
119 |   FEmailMessage.ReplyTo := TArray<string>.Create('emailtoreply1@mail.com', 'emailtoreply2@mail.com');
120 | 
121 |   EncodedParams := TBuildQueryParameters.GetQueryParams(FEmailMessage);
122 |   try
123 |     Assert.Contains(EncodedParams.DataString, ExpectedRecipients);
124 |   finally
125 |     EncodedParams.Free;
126 |   end;
127 | end;
128 | 
129 | procedure TBuildQueryParametersTests.GetQueryParams_WithTextBody_EncodedParamsReturned;
130 | const
131 |   EXPECTED_RETURN = 'Action=SendEmail' +
132 |                     '&Source=%3D%3Futf-8%3FB%3F%3F%3D%20%3Cemail%40mail.com%3E' +
133 |                     '&Destination.ToAddresses.member.1=emailFrom%40mail.com' +
134 |                     '&Message.Subject.Charset=UTF-8' +
135 |                     '&Message.Subject.Data=This%20is%20the%20subject%20line.' +
136 |                     '&Message.Body.Text.Charset=UTF-8' +
137 |                     '&Message.Body.Text.Data=Hello.%20I%20hope%20you%20are%20having%20a%20good%20day.';
138 | var
139 |   EncodedParams: TStringStream;
140 | begin
141 |   FEmailMessage.BodyType := btText;
142 |   FEmailMessage.Subject := 'This is the subject line.';
143 |   FEmailMessage.Body := 'Hello. I hope you are having a good day.';
144 | 
145 |   EncodedParams := TBuildQueryParameters.GetQueryParams(FEmailMessage);
146 |   try
147 |     Assert.AreEqual(EXPECTED_RETURN, EncodedParams.DataString);
148 |   finally
149 |     EncodedParams.Free;
150 |   end;
151 | end;
152 | 
153 | procedure TBuildQueryParametersTests.SetUp;
154 | begin
155 |   inherited;
156 |   FEmailMessage.FromAddress := 'email@mail.com';
157 |   FEmailMessage.Recipients := TArray<string>.Create('emailFrom@mail.com');
158 | end;
159 | 
160 | initialization
161 |   TDUnitX.RegisterTestFixture(TBuildQueryParametersTests);
162 | 
163 | end.
164 | 


--------------------------------------------------------------------------------
/tests/DunitXTestRunner.pas:
--------------------------------------------------------------------------------
 1 | unit DUnitXTestRunner;
 2 | 
 3 | interface
 4 | 
 5 | type
 6 |   TDUnitXTestRunner = class
 7 |     class procedure RunTests;
 8 |   end;
 9 | 
10 | implementation
11 | 
12 | uses
13 |   DUnitX.AutoDetect.Console,
14 |   DUnitX.Loggers.Console,
15 |   DUnitX.Loggers.Xml.NUnit,
16 |   DUnitX.TestRunner,
17 |   DUnitX.TestFramework,
18 |   System.SysUtils;
19 | 
20 | class procedure TDUnitXTestRunner.RunTests;
21 | var
22 |   runner : ITestRunner;
23 |   results : IRunResults;
24 |   logger : ITestLogger;
25 |   nunitLogger : ITestLogger;
26 | begin
27 |   try
28 |     ReportMemoryLeaksOnShutdown := True;
29 | 
30 |     runner := TDUnitX.CreateRunner;
31 |     runner.UseRTTI := True;
32 |     logger := TDUnitXConsoleLogger.Create(true);
33 |     nunitLogger := TDUnitXXMLNUnitFileLogger.Create;
34 |     runner.AddLogger(logger);
35 |     runner.AddLogger(nunitLogger);
36 | 
37 |     results := runner.Execute;
38 | 
39 |     {$IFNDEF CI}
40 |       System.Write('Done.. press <Enter> key to quit.');
41 |       System.Readln;
42 |     {$ENDIF}
43 |   except
44 |     on E: Exception do
45 |     begin
46 |       System.Writeln(E.ClassName, ': ', E.Message);
47 |       {$IFNDEF CI}
48 |       System.Readln;
49 |       {$ENDIF}
50 |     end;
51 |   end;
52 | end;
53 | 
54 | end.
55 | 


--------------------------------------------------------------------------------
/tests/EncodeQueryParamsTests.pas:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/monde-sistemas/delphi-aws-ses/98b37371a06a73024fdde234050f024d5eee6ea2/tests/EncodeQueryParamsTests.pas


--------------------------------------------------------------------------------
/tests/PopulateResponseInfoTests.pas:
--------------------------------------------------------------------------------
  1 | unit PopulateResponseInfoTests;
  2 | 
  3 | interface
  4 | 
  5 | uses
  6 |   DUnitX.TestFramework,
  7 |   PopulateResponseInfo,
  8 |   Data.Cloud.CloudAPI;
  9 | 
 10 | type
 11 |   [TestFixture]
 12 |   TPopulateResponseInfoTests = class
 13 |   strict private
 14 |     FPopulateResponseInfo: TPopulateResponseInfo;
 15 |     FResponseInfo: TCloudResponseInfo;
 16 |   public
 17 |     [Setup]
 18 |     procedure SetUp;
 19 |     [TearDown]
 20 |     procedure TearDown;
 21 |   published
 22 |     procedure PopulateResponseInfoFromExceptionPeer_WhenSignatureDoesNotMatch_Populate;
 23 |     procedure PopulateResponseInfoFromExceptionPeer_WithInvalidParameterValue_Populate;
 24 |   end;
 25 | 
 26 | implementation
 27 | 
 28 | uses
 29 |   IPPeerAPI,
 30 |   SysUtils;
 31 | 
 32 | { TPopulateResponseInfoTests }
 33 | 
 34 | procedure TPopulateResponseInfoTests.PopulateResponseInfoFromExceptionPeer_WhenSignatureDoesNotMatch_Populate;
 35 | const
 36 |   ERROR_MESSAGE = '<ErrorResponse xmlns="http://ses.amazonaws.com/doc/2010-12-01/">'+
 37 |                   '  <Error>' +
 38 |                   '    <Type>Sender</Type>' +
 39 |                   '    <Code>SignatureDoesNotMatch</Code>' +
 40 |                   '    <Message>The request signature we calculated does not match the signature you provided. Check your AWS Secret Access Key and signing method. Consult the service documentation for details.</Message>' +
 41 |                   '  </Error>' +
 42 |                   '  <RequestId>1c37cce2-095f-11e5-b310-9f55ca999f88</RequestId>' +
 43 |                   '</ErrorResponse>';
 44 |   STATUS_MESSAGE = 'HTTP/1.1 403 Forbidden';
 45 |   STATUS_CODE = 403;
 46 | var
 47 |   ExceptionPeer: EIPHTTPProtocolExceptionPeer;
 48 |   MsgError: string;
 49 | begin
 50 |   ExceptionPeer := EIPHTTPProtocolExceptionPeer.Create(nil, ERROR_MESSAGE, STATUS_MESSAGE, STATUS_CODE);
 51 |   try
 52 |     FPopulateResponseInfo.FromExceptionPeer(FResponseInfo, ExceptionPeer);
 53 |     Assert.AreEqual(STATUS_CODE, FResponseInfo.StatusCode);
 54 |     MsgError := Format('%s - %s (%s)', [STATUS_MESSAGE, 'The request signature we calculated does not match the signature you provided. Check your AWS Secret Access Key and signing method. Consult the service documentation for details.', 'SignatureDoesNotMatch']);
 55 |     Assert.AreEqual(MsgError, FResponseInfo.StatusMessage);
 56 |   finally
 57 |     ExceptionPeer.Free;
 58 |   end;
 59 | end;
 60 | 
 61 | procedure TPopulateResponseInfoTests.PopulateResponseInfoFromExceptionPeer_WithInvalidParameterValue_Populate;
 62 | const
 63 |   ERROR_MESSAGE = '<ErrorResponse xmlns="http://ses.amazonaws.com/doc/2010-12-01/">' +
 64 |                   '  <Error>' +
 65 |                   '    <Type>Sender</Type>' +
 66 |                   '    <Code>InvalidParameterValue</Code>' +
 67 |                   '    <Message>Missing final ''@domain''</Message>' +
 68 |                   '  </Error>' +
 69 |                   '  <RequestId>4dbff96d-0962-11e5-ac94-dbc2e43ecbb8</RequestId>' +
 70 |                   '</ErrorResponse>';
 71 |   STATUS_MESSAGE = 'HTTP/1.1 400 Bad Request';
 72 |   STATUS_CODE = 400;
 73 | var
 74 |   ExceptionPeer: EIPHTTPProtocolExceptionPeer;
 75 |   MsgError: string;
 76 | begin
 77 |   ExceptionPeer := EIPHTTPProtocolExceptionPeer.Create(nil, ERROR_MESSAGE, STATUS_MESSAGE, STATUS_CODE);
 78 |   try
 79 |     FPopulateResponseInfo.FromExceptionPeer(FResponseInfo, ExceptionPeer);
 80 |     Assert.AreEqual(STATUS_CODE, FResponseInfo.StatusCode);
 81 |     MsgError := Format('%s - %s (%s)', [STATUS_MESSAGE, 'Missing final ''@domain''', 'InvalidParameterValue']);
 82 |     Assert.AreEqual(MsgError, FResponseInfo.StatusMessage);
 83 |   finally
 84 |     ExceptionPeer.Free;
 85 |   end;
 86 | end;
 87 | 
 88 | procedure TPopulateResponseInfoTests.SetUp;
 89 | begin
 90 |   inherited;
 91 |   FPopulateResponseInfo := TPopulateResponseInfo.Create;
 92 |   FResponseInfo := TCloudResponseInfo.Create;
 93 | end;
 94 | 
 95 | procedure TPopulateResponseInfoTests.TearDown;
 96 | begin
 97 |   inherited;
 98 |   FPopulateResponseInfo.Free;
 99 |   FResponseInfo.Free;
100 | end;
101 | 
102 | initialization
103 |   TDUnitX.RegisterTestFixture(TPopulateResponseInfoTests);
104 | 
105 | end.
106 | 


--------------------------------------------------------------------------------
/tests/PrepareRequestSignatureTests.pas:
--------------------------------------------------------------------------------
 1 | unit PrepareRequestSignatureTests;
 2 | 
 3 | interface
 4 | 
 5 | uses
 6 |   DUnitX.TestFramework,
 7 |   PrepareRequestSignature;
 8 | 
 9 | type
10 |   [TestFixture]
11 |   TPrepareRequestSignatureTests = class
12 |   strict private
13 |     FPrepareRequestSignature: TPrepareRequestSignature;
14 |   public
15 |     [Setup]
16 |     procedure SetUp;
17 |     [TearDown]
18 |     procedure TearDown;
19 |   published
20 |     procedure GetSignature_WithCorrectStringToSign_ReturnValidSignature;
21 |   end;
22 | 
23 | implementation
24 | 
25 | uses
26 |   { It needed make sure IPPeerCommon (or an alternative IP Implementarion unit) is in the uses clause }
27 |   IPPeerClient;
28 | 
29 | { TPrepareRequestSignatureTests }
30 | 
31 | procedure TPrepareRequestSignatureTests.GetSignature_WithCorrectStringToSign_ReturnValidSignature;
32 | var
33 |   StringToSign: string;
34 |   ReturnedSignature: string;
35 | begin
36 |   StringToSign := 'Tue, 02 Jun 2015 15:01:19 GMT';
37 |   ReturnedSignature := FPrepareRequestSignature.GetSignature(StringToSign);
38 |   Assert.AreEqual('QufC+soH9Cq9LAnOmTGgAs5dA4cjTptgGZhj3KuhQKs=', ReturnedSignature);
39 | end;
40 | 
41 | procedure TPrepareRequestSignatureTests.SetUp;
42 | const
43 |   AWSAccessKey = 'AKIAJQF6P3QUHRSJPZCA';
44 |   AWSSecretKey = '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';
45 | begin
46 |   inherited;
47 |   FPrepareRequestSignature := TPrepareRequestSignature.Create(AWSAccessKey, AWSSecretKey);
48 | end;
49 | 
50 | procedure TPrepareRequestSignatureTests.TearDown;
51 | begin
52 |   inherited;
53 |   FPrepareRequestSignature.Free;
54 | end;
55 | 
56 | initialization
57 |   TDUnitX.RegisterTestFixture(TPrepareRequestSignatureTests);
58 | 
59 | end.
60 | 


--------------------------------------------------------------------------------
/tests/README.md:
--------------------------------------------------------------------------------
1 | # Dependencies
2 | 
3 | [DunitX](https://github.com/VSoftTechnologies/DUnitX/)
4 | 
5 | ## Executing the tests
6 | 
7 |   * Clone the [DunitX](https://github.com/VSoftTechnologies/DUnitX/) repository locally
8 |   * Define a `DUNITX` environment variable, pointing to the DunitX clone directory.
9 | 


--------------------------------------------------------------------------------
/tests/libeay32.dll:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/monde-sistemas/delphi-aws-ses/98b37371a06a73024fdde234050f024d5eee6ea2/tests/libeay32.dll


--------------------------------------------------------------------------------
/tests/ssleay32.dll:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/monde-sistemas/delphi-aws-ses/98b37371a06a73024fdde234050f024d5eee6ea2/tests/ssleay32.dll


--------------------------------------------------------------------------------