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 à Tablesen tant queDomains, àRowsen tant queItemset àColumnsen 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;
}