Data.Cloud.AmazonAPI.TAmazonQueueService

提供: RAD Studio API Documentation
移動先: 案内検索

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

Delphi

TAmazonQueueService = class(TAmazonBasicService)

C++

class PASCALIMPLEMENTATION TAmazonQueueService : public TAmazonBasicService

プロパティ

種類 可視性 ソース ユニット
class public
Data.Cloud.AmazonAPI.pas
Data.Cloud.AmazonAPI.hpp
Data.Cloud.AmazonAPI Data.Cloud.AmazonAPI


説明

Amazon Simple Queue Service(SQS)に接続できるようにします。

このクラスには、以下の用途のメソッドが用意されています。

さらに、TAmazonQueueService には、応答を XML 形式で返すメソッドも次のようにいくつか用意されています。

Amazon Simple Queue Service(SQS) API の詳細については、公式の『Amazon Simple Queue Service ドキュメント』を参照してください。

次のサンプル コードでは、TAmazonQueueService クラスを使ってキューを新しく作成する方法の例を示しています。

Delphi の場合:
var
  ResponseInfo: TCloudResponseInfo;
  QueueURL: String;
  QueueService: TAmazonQueueService;
begin
  QueueService := TAmazonQueueService.Create(AmazonConnectionInfo1);
  ResponseInfo := TCloudResponseInfo.Create;
  try 
    if QueueService.CreateQueue('QueueName', QueueURL, -1, ResponseInfo) then
      Memo1.Lines.Append('Success! QueueURL: ' + QueueURL);
    else
      Memo1.Lines.Append(Format('Failure! %s', [ResponseInfo.StatusMessage]));
  finally
    QueueService.Free;
    ResponseInfo.Free;
  end;
end;
C++ の場合:
TCloudResponseInfo *ResponseInfo;
String QueueURL;
TAmazonQueueService *QueueService;
QueueService = new TAmazonQueueService(AmazonConnectionInfo1);
ResponseInfo = new TCloudResponseInfo;
try
{
    if (QueueService->CreateQueue("testqueue", QueueURL, -1, ResponseInfo))
    {
        Memo1->Lines->Append("Success! QueueURL: " + QueueURL);
    }
    else
    {
        TVarRec args[1] = {ResponseInfo->StatusMessage};
        Memo1->Lines->Append(Format("Failure! %s", args, 0));
    }
}
__finally
{
    delete QueueService;
    delete ResponseInfo;
}

関連項目