为了简化MQ调用,写了个StompClient的包装类,可以供需要的参考: unit FStompClient; interface uses SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs, StompClient,StompTypes; type TMQLogEvent = procedure (log: String) of object; TMQMessageEvent = procedur…