TsgcWSPClient_AMQP › Events › OnAMQPQueuePurge
Fires when the server confirms that a queue has been purged (queue.purge-ok).
property OnAMQPQueuePurge: TsgcAMQPQueuePurgeEvent;
// TsgcAMQPQueuePurgeEvent = procedure(Sender: TObject; const aChannel, aQueue: string; aMessageCount: Integer) of object
—
Raised in response to PurgeQueue. aMessageCount is the number of messages that were discarded from aQueue. Only ready (non-delivered) messages are purged; messages currently delivered to consumers and pending acknowledgement are not affected.
procedure TForm1.oAMQPAMQPQueuePurge(Sender: TObject;
const aChannel, aQueue: string; aMessageCount: Integer);
begin
DoLog(Format('#AMQP Queue %s purged (%d messages)', [aQueue, aMessageCount]));
end;