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 werdenTabellen
alsDomains
,Zeilen
alsItems
undSpalten
alsAttributes
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;
}