AWS4D/src/AWS4D.S3.Credencial.pas at 9e463beefde612f39a9637441b9756e9ec2154ae · academiadocodigo/AWS4D · GitHub

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
unit AWS4D.S3.Credencial;

interface

uses
  AWS4D.Interfaces;

type

  TAWS4DCredential = class(TInterfacedObject, iAWS4DCredential)
    private
      [weak]
      FParent : iAWS4D;
      FAccountKey : String;
      FAccountName : String;
      FStorageEndPoint : String;
      FBucket : String;
      FBucketRegion : String;
    public
      constructor Create (aParent : iAWS4D);
      destructor Destroy; override;
      class function New(aParent : iAWS4D) : iAWS4DCredential; overload;
      function AccountKey( aValue : String ) : iAWS4DCredential; overload;
      function AccountName( aValue : String ) :  iAWS4DCredential; overload;
      function StorageEndPoint( aValue : String ) : iAWS4DCredential;  overload;
      function Bucket ( aValue : String ) : iAWS4DCredential; overload;
      function BucketRegion ( aValue : String) : iAWS4DCredential; overload;
      function AccountKey : String; overload;
      function AccountName : String; overload;
      function StorageEndPoint : String; overload;
      function Bucket : String; overload;
      function BucketRegion : String; overload;
      function &End : iAWS4D;
  end;

implementation

{ TAmazonS3Credencial }

function TAWS4DCredential.AccountKey(aValue: String): iAWS4DCredential;
begin
  Result := Self;
  FAccountKey := aValue;
end;

function TAWS4DCredential.AccountName(
  aValue: String): iAWS4DCredential;
begin
  Result := Self;
  FAccountName := aValue;
end;

function TAWS4DCredential.Bucket(aValue: String): iAWS4DCredential;
begin
  Result := Self;
  FBucket := aValue;
end;

function TAWS4DCredential.&End: iAWS4D;
begin
  Result := FParent;
end;

constructor TAWS4DCredential.Create(aParent : iAWS4D);
begin
  FParent := aParent;
end;

destructor TAWS4DCredential.Destroy;
begin

  inherited;
end;

class function TAWS4DCredential.New(aParent : iAWS4D) : iAWS4DCredential;
begin
  Result := Self.Create(aParent);
end;

function TAWS4DCredential.StorageEndPoint: String;
begin
  Result := FStorageEndPoint;
end;

function TAWS4DCredential.StorageEndPoint(
  aValue: String): iAWS4DCredential;
begin
  Result := Self;
  FStorageEndPoint := aValue;
end;

function TAWS4DCredential.AccountKey: String;
begin
  Result := FAccountKey;
end;

function TAWS4DCredential.AccountName: String;
begin
  Result := FAccountName;
end;

function TAWS4DCredential.Bucket: String;
begin
  Result := FBucket;
end;

function TAWS4DCredential.BucketRegion: String;
begin
  Result := FBucketRegion;
end;

function TAWS4DCredential.BucketRegion(aValue: String): iAWS4DCredential;
begin
  Result := Self;
  FBucketRegion := aValue;
end;

end.