Data.Cloud.AmazonAPI.TAmazonQueueService
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;
}