A utility class for long polling messages in a loop.
Messages are automatically deleted from the queue at the end of the given Poll procedure. Use SkipDelete property to change this behaviour.
var QueueUrl := 'https://...';
var Poller = TSQSQueuePoller.Create(QueueUrl) as ISQSQueuePoller;
Poller.Poll(
procedure(const AMessages: TSQSMessages)
begin
// Do something with AMessages.
end
);
