Data.Cloud.AmazonAPI.TAmazonTableService

Delphi
TAmazonTableService = class(TAmazonBasicService)
C++
class PASCALIMPLEMENTATION TAmazonTableService : public TAmazonBasicService
Propriétés
Type | Visibilité | Source | Unité | Parent |
---|---|---|---|---|
class | public | Data.Cloud.AmazonAPI.pas Data.Cloud.AmazonAPI.hpp |
Data.Cloud.AmazonAPI | Data.Cloud.AmazonAPI |
Description
Vous permet d'établir une connexion au service Amazon SimpleDB.
Cette classe fournit des méthodes que vous pouvez utiliser pour :
- Créer ou supprimer une table.
- Lister les tables existantes.
- Obtenir les métadonnées associées à une table.
- Insérer une ligne ou plusieurs lignes dans une table.
- Supprimer une ligne d'une table.
- Récupérer des lignes ou simplement les noms des lignes (ID) d'une table.
- Supprimer des colonnes spécifiques ou toutes les colonnes d'une ligne.
Par ailleurs, TAmazonTableService fournit des méthodes qui renvoient la réponse au format XML analysé :
Pour plus d'informations sur l'API Amazon SimpleDB, voir la documentation officielle Amazon SimpleDB (EN).
- Remarque : La documentation officielle d'Amazon fait référence à
Tables
en tant queDomains
, àRows
en tant queItems
et àColumns
en tant queAttributes
.
L'extrait de code suivant montre comment créer une nouvelle table en utilisant l'API TAmazonTableService :
Delphi :
var
ResponseInfo: TCloudResponseInfo;
TableService: TAmazonTableService;
TableName:String;
begin
TableName := 'TableName';
TableService := TAmazonTableService.Create(AmazonConnectionInfo1);
ResponseInfo := TCloudResponseInfo.Create;
try
if TableService.CreateTable(TableName, ResponseInfo) then
Memo1.Lines.Append('Success! Table: ' + TableName + ' created.')
else
Memo1.Lines.Append(Format('Failure! %s', [ResponseInfo.StatusMessage]));
finally
TableService.Free;
ResponseInfo.Free;
end;
end;
C++ :
TCloudResponseInfo *ResponseInfo;
String TableName;
TAmazonTableService *TableService;
TableName = "TableName";
TableService = new TAmazonTableService(AmazonConnectionInfo1);
ResponseInfo = new TCloudResponseInfo;
try
{
if (TableService->CreateTable(TableName, ResponseInfo))
{
Memo1->Lines->Append("Success! Table: " + TableName + " created.");
}
else
{
TVarRec args[1] = {ResponseInfo->StatusMessage};
Memo1->Lines->Append(Format("Failure! %s", args, 0));
}
}
__finally
{
delete TableService;
delete ResponseInfo;
}