var QueueUrl := 'https://...';
var Poller = TSQSQueuePoller.Create(QueueUrl)
as ISQSQueuePoller;
Poller.SkipDelete := True;
Poller.Poll(
procedure(
const AMessages:
TSQSMessages)
begin
for var LMessage
in AMessages
do
begin
// Process the message then delete it when you're done.
Poller.DeleteMessage(LMessage);
end;
end
);
