Data.Cloud.AmazonAPI.TAmazonTableService

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:
- Eine Tabelle erstellen oder löschen.
- Vorhandene Tabellen auflisten.
- Die der Tabelle zugeordneten Metadaten abrufen.
- Eine Zeile oder mehrere Zeilen in eine Tabelle einfügen.
- Eine Zeile aus einer Tabelle löschen.
- Zeilen oder nur Zeilennamen (IDs) aus einer Tabelle abrufen.
- Bestimmte Spalten oder alle Spalten aus einer Zeile löschen.
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 werdenTabellenalsDomains,ZeilenalsItemsundSpaltenalsAttributesbezeichnet.
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;
}