-
-
Notifications
You must be signed in to change notification settings - Fork 30
/
AWS.SNS.Config.pas
52 lines (41 loc) · 1.1 KB
/
AWS.SNS.Config.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
unit AWS.SNS.Config;
interface
uses
AWS.Runtime.ClientConfig,
AWS.Internal.SDKUtils;
type
TAmazonSimpleNotificationServiceConfig = class(TClientConfig)
strict private
class var FUserAgent: string;
private
class constructor Create;
strict protected
procedure Init; override;
function GetServiceVersion: string; override;
function GetRegionEndpointServiceName: string; override;
function GetUserAgent: string; override;
end;
implementation
{ TAmazonSimpleNotificationServiceConfig }
procedure TAmazonSimpleNotificationServiceConfig.Init;
begin
inherited;
AuthenticationServiceName := 'sns';
end;
function TAmazonSimpleNotificationServiceConfig.GetServiceVersion: string;
begin
Result := '2010-03-31';
end;
function TAmazonSimpleNotificationServiceConfig.GetRegionEndpointServiceName: string;
begin
Result := 'sns';
end;
class constructor TAmazonSimpleNotificationServiceConfig.Create;
begin
FUserAgent := TInternalSDKUtils.BuildUserAgentString('0.7.0.0');
end;
function TAmazonSimpleNotificationServiceConfig.GetUserAgent: string;
begin
Result := FUserAgent;
end;
end.