TsgcWSPClient_STOMP_ActiveMQ › Events › OnActiveMQError
Fires when an ERROR frame is received from the ActiveMQ broker; delivers the error message and the full ERROR Headers.
property OnActiveMQError: TsgcWSActiveMQSTOMPErrorEvent;
// TsgcWSActiveMQSTOMPErrorEvent = procedure(Connection: TsgcWSConnection; MessageText: String; Headers: TsgcWSActiveMQSTOMPHeadersError) of object
—
Raised when the ActiveMQ broker sends an ERROR frame. The broker will normally close the connection after sending an ERROR, so the session should be considered terminated. Parameters:
procedure TForm1.ActiveMQError(Connection: TsgcWSConnection;
MessageText: String; Headers: TsgcWSActiveMQSTOMPHeadersError);
begin
Memo1.Lines.Add('ActiveMQ error: ' + MessageText);
if Headers.ReceiptId <> '' then
Memo1.Lines.Add(' (related to receipt ' + Headers.ReceiptId + ')');
end;