Data.Cloud.AmazonAPI.TAmazonTableService

De RAD Studio API Documentation
Aller à : navigation, rechercher

Data.Cloud.AmazonAPI.TAmazonBasicServiceData.Cloud.AmazonAPI.TAmazonServiceData.Cloud.CloudAPI.TCloudServiceSystem.TObjectTAmazonTableService

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 :

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 que Domains, à Rows en tant que Items et à Columns en tant que Attributes.

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;
}

Voir aussi