Data.Cloud.AmazonAPI.TAmazonTableService

Aus RAD Studio API Documentation
Wechseln zu: Navigation, Suche

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

Delphi

TAmazonTableService =  class(TAmazonBasicService)

C++

class PASCALIMPLEMENTATION TAmazonTableService : public TAmazonBasicService

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 SimpleDB.

Mit den Methoden dieser Klasse können Sie:

Zusätzlich stellt TAmazonTableService Methoden bereit, die die Antwort in einem XML-Format zurückgeben:

Weitere Informationen über die API Amazon SimpleDB finden Sie in der offiziellen Dokumentation zu Amazon SimpleDB (EN).

Hinweis:
In der offiziellen Amazon-Dokumentation werden Tabellen als Domains, Zeilen als Items und Spalten als Attributes bezeichnet.

Das folgende Codefragment zeigt, wie mit der TAmazonTableService-API eine neue Tabelle erstellt wird:

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

Siehe auch