Data.Cloud.AmazonAPI.TAmazonStorageService
Delphi
TAmazonStorageService = class(TAmazonService)
C++
class PASCALIMPLEMENTATION TAmazonStorageService : public TAmazonService
Eigenschaften
Typ | Sichtbarkeit | Quelle | Unit | Übergeordnet |
---|---|---|---|---|
class | public | Data.Cloud.AmazonAPI.pas Data.Cloud.AmazonAPI.hpp |
Data.Cloud.AmazonAPI | Data.Cloud.AmazonAPI |
Beschreibung
Ermöglicht die Verbindung zum Dienst Amazon Simple Storage Service (S3).
Diese Klasse stellt Methoden zum Verwalten von Buckets und Objekten bereit. Einige der wichtiger Methoden sind:
- CreateBucket
- DeleteBucket
- ListBuckets
- GetBucket
- CopyObject
- DeleteObject
- GetObject
- GetObjectTorrent
- GetObjectProperties
- InitiateMultipartUpload
In der TAmazonStorageService-API-Dokumentation finden Sie eine Liste aller verfügbaren Methoden.
Weitere Informationen über die API Amazon Simple Storage Service (S3) finden Sie in der offiziellen Dokumentation zu Amazon Simple Storage Service (EN).
- Hinweis: In Amazon Simple Storage Service (S3) gibt es kein Ordnerkonzept. Es gibt Möglichkeiten zur Verwaltung von Objekten, sodass sie die "Ordnerstruktur" zu verwenden scheinen. Weitere Informationen finden Sie unter Objects:Object Key and Metadata (EN).
Das folgende Codefragment zeigt, wie mit der TAmazonStorageService-API ein neues Bucket erstellt wird:
Delphi:
var
ResponseInfo: TCloudResponseInfo;
StorageService: TAmazonStorageService;
BucketName:String;
begin
BucketName := 'my-bucket-name-vjsep967w37'; // the bucket name must be unique
StorageService := TAmazonStorageService.Create(AmazonConnectionInfo1);
ResponseInfo := TCloudResponseInfo.Create;
try
if StorageService.CreateBucket(BucketName, amzbaNotSpecified, amzrNotSpecified, ResponseInfo) then
Memo1.Lines.Append('Success! Bucket: ' + BucketName + ' created.')
else
Memo1.Lines.Append(Format('Failure! %s', [ResponseInfo.StatusMessage]));
finally
StorageService.Free;
ResponseInfo.Free;
end;
end;
C++:
TCloudResponseInfo *ResponseInfo;
String BucketName;
TAmazonStorageService *StorageService;
BucketName = "my-bucket-name-vjsep967w37"; // the bucket name must be unique
StorageService = new TAmazonStorageService(AmazonConnectionInfo1);
ResponseInfo = new TCloudResponseInfo;
try
{
if (StorageService->CreateBucket(BucketName, amzbaNotSpecified, amzrNotSpecified, ResponseInfo))
{
Memo1->Lines->Append("Success! Bucket: " + BucketName + " created.");
}
else
{
TVarRec args[1] = {ResponseInfo->StatusMessage};
Memo1->Lines->Append(Format("Failure! %s", args, 0));
}
}
__finally
{
delete StorageService;
delete ResponseInfo;
}