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
