Data.Cloud.AmazonAPI.TAmazonQueueService

• Aller au parent : Data.Cloud.AmazonAPI
• Méthodes
• Propriétés
• Champs

Delphi

TAmazonQueueService = class(TAmazonBasicService)

C++

class PASCALIMPLEMENTATION TAmazonQueueService : public TAmazonBasicService

Propriétés

Type	Visibilité	Source	Unité	Parent
class	public	Data.Cloud.AmazonAPI.pas Data.Cloud.AmazonAPI.hpp	Data.Cloud.AmazonAPI	Data.Cloud.AmazonAPI

Description

Vous permet d'établir une connexion à Amazon Simple Queue Service (SQS).

Cette classe fournit des méthodes que vous pouvez utiliser pour :

• Gérer des files d'attente :
  • Créer ou supprimer une file d'attente.
  • Lister les files d'attente existantes.
  • Ajouter ou retirer des permissions de file d'attente.
  • Obtenir ou définir les propriétés d'une file d'attente.
• Gérer des messages :
  • Ajouter ou supprimer un message.
  • Modifier la visibilité d'un message.
  • Obtenir ou lire des messages.
  • Trouver le nombre maximum de messages que vous pouvez récupérer à partir d'une file d'attente.

Par ailleurs, TAmazonQueueService fournit des méthodes qui renvoient la réponse au format XML analysé :

• ListQueuesXML
• GetMessagesXML
• GetQueuePropertiesXML

Pour plus d'informations sur l'API Amazon Simple Queue Service (SQS), voir la documentation officielle Amazon Simple Queue Service (EN).

L'extrait de code suivant montre comment créer une nouvelle file d'attente en utilisant la classe 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;
}

Voir aussi

• Documentation Amazon Simple Queue Service (EN)

• Data.Cloud.AmazonAPI.TAmazonTableService

• Data.Cloud.AmazonAPI.TAmazonStorageService

• Data.Cloud.AmazonAPI.TAmazonConnectionInfo