var QueueUrl := 'https://...';
var Poller = TSQSQueuePoller.Create(QueueUrl)
as ISQSQueuePoller;
Poller.Poll(
procedure(
const AMessages:
TSQSMessages)
begin
for var LMessage
in AMessages
do
begin
// If you need more time to process the message,
// change it's visibility timeout.
Poller.ChangeMessageVisibilityTimeout(LMessage, 900);
end;
end
);
