Working Example Code of Using STOMP In Your Application
object frmMain: TfrmMain Left = 0 Top = 0 BorderIcons = [biSystemMenu] BorderStyle = Single Caption = #144’Delphi STOMP Client’ ClientHeight = 495 ClientWidth = 384 FormFactor.Width = 320 FormFactor.Height = 480 FormFactor.Devices = [Desktop] OnCreate = FormCreate DesignerMasterStyle = 0 object btnSubscribe: TButton Position.X = 32.000000000000000000 Position.Y = 32.000000000000000000 TabOrder = 0 Text = ‘Subscribe’ OnClick = btnSubscribeClick end object edtTopic: TEdit Touch.InteractiveGestures = [LongTap, DoubleTap] TabOrder = 1 Position.X = 120.000000000000000000 Position.Y = 32.000000000000000000 Size.Width = 233.000000000000000000 Size.Height = 22.000000000000000000 Size.PlatformDefault = False end object Label1: TLabel Position.X = 120.000000000000000000 Position.Y = 16.000000000000000000 Text = ‘Topic’ TabOrder = 2 end object btnPublish: TButton Position.X = 32.000000000000000000 Position.Y = 80.000000000000000000 TabOrder = 3 Text = ‘Publish’ OnClick = btnPublishClick end object edtMessage: TEdit Touch.InteractiveGestures = [LongTap, DoubleTap] TabOrder = 4 Position.X = 120.000000000000000000 Position.Y = 80.000000000000000000 Size.Width = 233.000000000000000000 Size.Height = 22.000000000000000000 Size.PlatformDefault = False end object Label2: TLabel Position.X = 120.000000000000000000 Position.Y = 64.000000000000000000 Text = ‘Message’ TabOrder = 5 end object Memo1: TMemo Touch.InteractiveGestures = [Pan, LongTap, DoubleTap] DataDetectorTypes = [] Position.X = 32.000000000000000000 Position.Y = 120.000000000000000000 Size.Width = 321.000000000000000000 Size.Height = 345.000000000000000000 Size.PlatformDefault = False TabOrder = 6 Viewport.Width = 317.000000000000000000 Viewport.Height = 341.000000000000000000 end end
