修改後的交互：

部署測試環境：

Windows2003+Windows xp+IBM MQ 7.0.5

具體實現步驟：

1. 部署MQ客戶端，delphi連接IBM MQ需要MQ客戶端支持；

2. 部署MQ服務端；

   

   

   

   

   

   
   

   
   

   
   

3. delphi客戶端編寫；

   窗體源碼：

4. object Form1: TForm1
     Left = 744
     Top = 189
     BorderIcons = [biSystemMenu, biMinimize]
     BorderStyle = bsSingle
     Caption = #26041#27491'HIS_IBM MQ'#28040#24687#23458#25143#31471#27979#35797#24037#20855'_By '#35199#21335#21306' '#23002#28023#26093
     ClientHeight = 480
     ClientWidth = 826
     Color = clBtnFace
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clWindowText
     Font.Height = -11
     Font.Name = 'MS Sans Serif'
     Font.Style = []
     Icon.Data = {
       0000010001002020000001002000A81000001600000028000000200000004000
       0000010020000000000000100000120B0000120B000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000003535FF000000FF000303FF960202
       FF7F0000FF000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000007272FF000000FF000404FF860505
       FF770000FF000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       000000000000000000000000000000000000000000000000FF000303FF790202
       FF710000FF000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       000000000000000000000000000000000000000000000000FF000202FF6F0202
       FF6D0000FF000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       000000000000000000000000000000000000FEFEFF000000FF000202FF6B0101
       FF6B0000FF00FEFEFF0000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       000000000000000000000000000000000000A2A2FF000000FF000505FF100808
       FF110808FF081A1AFF020303FF001F1FFF00000000000101FF000202FF680101
       FF690101FF00000000001F1FFF000303FF001A1AFF020808FF080808FF110505
       FF100000FF00A2A2FF0000000000000000000000000000000000000000000000
       000000000000000000000000000000000000A4A4FF000000FF000202FF6C0101
       FFCF0101FFBD0303FFA10303FF7A0202FF650303FF4E0202FF3A0101FF8C0202
       FF8F0303FF3A0303FF4E0202FF650303FF7A0303FFA10101FFBD0101FFCF0202
       FF6C0000FF00A4A4FF0000000000000000000000000000000000000000000000
       000000000000000000000000000000000000000000000202FF000404FF460000
       FFF40000FFFF0000FFFF0000FFFF0000FFFF0000FFFA0000FFF50000FFF90000
       FFFA0000FFF50000FFFA0000FFFF0000FFFF0000FFFF0000FFFF0000FFF40404
       FF460202FF000000000000000000000000000000000000000000000000000000
       000000000000000000000000000000000000000000000303FF000404FF210101
       FFE10000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
       FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0101FFE10404
       FF210303FF000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000303FF000505FF0B0101FF800000
       FFF90000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
       FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFF90101
       FF800505FF0B0303FF0000000000000000000000000000000000000000000000
       00000000000000000000000000000202FF000303FF150101FF980000FFF90000
       FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
       FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
       FFF90101FF980303FF150202FF00000000000000000000000000000000000000
       0000000000002020FF000000FF000404FF250101FFB00000FFFD0000FFFF0000
       FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
       FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
       FFFF0000FFFD0101FFB00404FF250000FF002020FF0000000000000000000000
       00000C0CFF000000FF000303FF390101FFCA0000FFFF0000FFFF0000FFFF0000
       FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
       FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
       FFFF0000FFFF0000FFFF0101FFCA0303FF390000FF000C0CFF00000000000606
       FF000B0BFF020303FF500101FFDC0000FFFF0000FFFF0000FFFF0000FFFF0000
       FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
       FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
       FFFF0000FFFF0000FFFF0000FFFF0101FFDC0303FF500B0BFF020606FF000909
       FF070202FF690000FFEB0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
       FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
       FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
       FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFEB0202FF690909FF070202
       FF860000FFF30000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
       FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
       FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
       FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFF30202FF860303
       FF3D0101FF9C0000FFF80000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
       FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
       FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
       FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFF80101FF9C0303FF3D0505
       FF000606FF1F0101FFDF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
       FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
       FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
       FFFF0000FFFF0000FFFF0000FFFF0000FFFF0101FFDF0606FF1F0505FF000303
       FF000404FF430000FFF30000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
       FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
       FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
       FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFF30404FF430303FF000000
       FF000202FF790000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
       FFFF0000FFFD0101FFDC0000FFF20000FFFF0000FFFF0000FFFF0000FFFF0000
       FFFF0000FFFF0000FFFF0000FFFF0000FFF20101FFDC0000FFFD0000FFFF0000
       FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0202FF790000FF001111
       FF070202FFAD0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
       FFFF0101FFBA0505FF280101FFAE0000FFFF0000FFFF0000FFFF0000FFFF0000
       FFFF0000FFFF0000FFFF0000FFFF0101FFAE0505FF280101FFBA0000FFFF0000
       FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0202FFAD1111FF070505
       FF280101FFE00000FFFF0101FFF20101FFCF0000FFD10000FFFD0000FFFF0101
       FFCF0202FF2A0909FF0C0101FFC30000FFFF0000FFFF0000FFFF0000FFFF0000
       FFFF0000FFFF0000FFFF0000FFFF0101FFC30909FF0C0202FF2A0101FFCF0000
       FFFF0000FFFD0000FFD10101FFCF0101FFF20000FFFF0101FFE00505FF280606
       FF320303FF870303FF5F0404FF3A0A0AFF130404FF2E0101FFE30000FFDE0303
       FF3E0000FF000505FF220101FFE20000FFFF0000FFFF0000FFFF0000FFFF0000
       FFFF0000FFFF0000FFFF0000FFFF0101FFE20505FF220000FF000303FF3E0000
       FFDE0101FFE30404FF2E0A0AFF130404FF3A0303FF5F0303FF870606FF321212
       FF021515FF021313FF00000000000808FF000707FF080202FF9E0303FF540000
       FF000303FF000404FF3A0000FFF20000FFFF0000FFFF0000FFFF0000FFFF0000
       FFFF0000FFFF0000FFFF0000FFFF0000FFF20404FF3A0303FF000000FF000303
       FF540202FF9E0707FF080808FF00000000001313FF001515FF021212FF020000
       00000000000000000000000000002C2CFF001313FF010606FF1A0404FF050505
       FF000000FF000505FF5E0000FFFD0000FFFF0000FFFF0000FFFF0000FFFF0000
       FFFF0000FFFF0000FFFF0000FFFF0000FFFD0505FF5E0000FF000505FF000404
       FF050606FF1A1313FF012C2CFF00000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000003B3B
       FF000000FF000202FF8F0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
       FFFF0000FFFF0000FFFF0000FFFF0000FFFF0202FF8F0000FF003B3BFF000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000909
       FF000C0CFF050101FFAF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
       FFFF0000FFFF0000FFFF0000FFFF0000FFFF0101FFAF0C0CFF050909FF000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000707
       FF000707FF110101FFCC0000FFFF0000FFF80000FFFE0000FFFF0000FFFF0000
       FFFF0000FFFF0000FFFE0000FFF80000FFFF0101FFCC0707FF110707FF000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000303
       FF000404FF310101FFCE0202FF830303FF480101FFC70000FFFF0000FFFF0000
       FFFF0000FFFF0101FFC70303FF480202FF830101FFCE0404FF310303FF000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000303
       FF000505FF180404FF290B0BFF020000FF000303FF5A0000FFF80000FFFF0000
       FFFF0000FFF80303FF5A0000FF000B0BFF020404FF290505FF180303FF000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       FF000000FF000000FF000000FF000606FF000707FF100101FFBB0000FFFF0000
       FFFF0101FFBB0707FF100606FF000000FF000000FF000000FF000000FF000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000C0C0FF000000FF000303FF550000FFF70000
       FFF60303FF550000FF00C6C6FF00000000000000000000000000000000000000
       000000000000000000000000000000000000000000000000000000000000FFFE
       7FFFFFFE7FFFFFFE7FFFFFFE7FFFFFFE7FFFFE1E787FFE00007FFE00007FFE00
       007FFC00003FF800001FF000000FE00000078000000100000000000000000000
       000080000001800000018000000100000000000000000040020038C0031CF8C0
       031FFFC003FFFF8001FFFF8001FFFF8001FFFF8811FFFFB81DFFFFFC3FFF}
     OldCreateOrder = False
     Position = poDesktopCenter
     PixelsPerInch = 96
     TextHeight = 13
     object Label1: TLabel
       Left = 8
       Top = 8
       Width = 80
       Height = 19
       Caption = #26381#21153#22120'IP'
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -19
       Font.Name = #26032#23435#20307
       Font.Style = []
       ParentFont = False
     end
     object Label2: TLabel
       Left = 286
       Top = 8
       Width = 100
       Height = 19
       Caption = #38431#21015#31649#29702#22120
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -19
       Font.Name = #26032#23435#20307
       Font.Style = []
       ParentFont = False
     end
     object Label3: TLabel
       Left = 8
       Top = 38
       Width = 80
       Height = 19
       Caption = #26381#21153#31471#21475
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -19
       Font.Name = #26032#23435#20307
       Font.Style = []
       ParentFont = False
     end
     object Label4: TLabel
       Left = 286
       Top = 41
       Width = 80
       Height = 19
       Caption = #38431#21015#21517#31216
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -19
       Font.Name = #26032#23435#20307
       Font.Style = []
       ParentFont = False
     end
     object Label5: TLabel
       Left = 567
       Top = 8
       Width = 80
       Height = 19
       Caption = #36890#36947#21517#31216
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -19
       Font.Name = #26032#23435#20307
       Font.Style = []
       ParentFont = False
     end
     object Label6: TLabel
       Left = 32
       Top = 98
       Width = 80
       Height = 19
       Caption = #23646#24615#21517#31216
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -19
       Font.Name = #26032#23435#20307
       Font.Style = []
       ParentFont = False
     end
     object Label7: TLabel
       Left = 567
       Top = 41
       Width = 80
       Height = 19
       Caption = #29992#25143#26631#24535
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -19
       Font.Name = #26032#23435#20307
       Font.Style = []
       ParentFont = False
     end
     object Label8: TLabel
       Left = 172
       Top = 98
       Width = 60
       Height = 19
       Caption = #23646#24615#20540
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -19
       Font.Name = #26032#23435#20307
       Font.Style = []
       ParentFont = False
     end
     object Label9: TLabel
       Left = 8
       Top = 378
       Width = 160
       Height = 19
       Caption = 'replyToQueueName'
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -19
       Font.Name = #26032#23435#20307
       Font.Style = []
       ParentFont = False
     end
     object Label10: TLabel
       Left = 8
       Top = 346
       Width = 130
       Height = 19
       Caption = 'extend_sub_id'
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -19
       Font.Name = #26032#23435#20307
       Font.Style = []
       ParentFont = False
     end
     object Label11: TLabel
       Left = 8
       Top = 314
       Width = 130
       Height = 19
       Caption = 'order_exec_id'
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -19
       Font.Name = #26032#23435#20307
       Font.Style = []
       ParentFont = False
     end
     object Label12: TLabel
       Left = 8
       Top = 282
       Width = 110
       Height = 19
       Caption = 'send_sys_id'
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -19
       Font.Name = #26032#23435#20307
       Font.Style = []
       ParentFont = False
     end
     object Label13: TLabel
       Left = 8
       Top = 250
       Width = 120
       Height = 19
       Caption = 'exec_unit_id'
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -19
       Font.Name = #26032#23435#20307
       Font.Style = []
       ParentFont = False
     end
     object Label14: TLabel
       Left = 8
       Top = 218
       Width = 130
       Height = 19
       Caption = 'apply_unit_id'
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -19
       Font.Name = #26032#23435#20307
       Font.Style = []
       ParentFont = False
     end
     object Label15: TLabel
       Left = 8
       Top = 186
       Width = 90
       Height = 19
       Caption = 'domain_id'
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -19
       Font.Name = #26032#23435#20307
       Font.Style = []
       ParentFont = False
     end
     object Label16: TLabel
       Left = 8
       Top = 154
       Width = 100
       Height = 19
       Caption = 'service_id'
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -19
       Font.Name = #26032#23435#20307
       Font.Style = []
       ParentFont = False
     end
     object Label17: TLabel
       Left = 8
       Top = 122
       Width = 110
       Height = 19
       Caption = 'hospital_id'
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -19
       Font.Name = #26032#23435#20307
       Font.Style = []
       ParentFont = False
     end
     object Label18: TLabel
       Left = 8
       Top = 72
       Width = 80
       Height = 19
       Caption = #23383#31526#32534#30721
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -19
       Font.Name = #26032#23435#20307
       Font.Style = []
       ParentFont = False
     end
     object Memo1: TMemo
       Left = 303
       Top = 308
       Width = 521
       Height = 166
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -19
       Font.Name = #26032#23435#20307
       Font.Style = []
       ParentFont = False
       ScrollBars = ssBoth
       TabOrder = 0
     end
     object Edit1: TEdit
       Left = 90
       Top = 4
       Width = 161
       Height = 27
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -19
       Font.Name = #26032#23435#20307
       Font.Style = []
       ParentFont = False
       TabOrder = 1
       Text = '192.168.188.130'
     end
     object Edit2: TEdit
       Left = 90
       Top = 36
       Width = 161
       Height = 27
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -19
       Font.Name = #26032#23435#20307
       Font.Style = []
       ParentFont = False
       TabOrder = 2
       Text = '1414'
     end
     object Edit3: TEdit
       Left = 384
       Top = 4
       Width = 161
       Height = 27
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -19
       Font.Name = #26032#23435#20307
       Font.Style = []
       ParentFont = False
       TabOrder = 3
       Text = 'QueueManger'
     end
     object Edit4: TEdit
       Left = 384
       Top = 36
       Width = 161
       Height = 27
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -19
       Font.Name = #26032#23435#20307
       Font.Style = []
       ParentFont = False
       TabOrder = 4
       Text = 'LocalQueue'
     end
     object Edit5: TEdit
       Left = 649
       Top = 4
       Width = 161
       Height = 27
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -19
       Font.Name = #26032#23435#20307
       Font.Style = []
       ParentFont = False
       TabOrder = 5
       Text = 'CONN'
     end
     object Edit6: TEdit
       Left = 649
       Top = 36
       Width = 161
       Height = 27
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -19
       Font.Name = #26032#23435#20307
       Font.Style = []
       ParentFont = False
       TabOrder = 6
       Text = 'hji116'
     end
     object Edit7: TEdit
       Left = 157
       Top = 122
       Width = 140
       Height = 21
       TabOrder = 7
       Text = '450960682'
     end
     object Edit8: TEdit
       Left = 157
       Top = 154
       Width = 140
       Height = 21
       TabOrder = 8
       Text = 'BS004'
     end
     object Edit9: TEdit
       Left = 157
       Top = 186
       Width = 140
       Height = 21
       TabOrder = 9
       Text = '0'
     end
     object Edit10: TEdit
       Left = 156
       Top = 218
       Width = 140
       Height = 21
       TabOrder = 10
       Text = '0'
     end
     object Edit11: TEdit
       Left = 8
       Top = 402
       Width = 287
       Height = 21
       TabOrder = 11
     end
     object Edit13: TEdit
       Left = 156
       Top = 346
       Width = 140
       Height = 21
       TabOrder = 12
       Text = '0'
     end
     object Edit14: TEdit
       Left = 156
       Top = 314
       Width = 140
       Height = 21
       TabOrder = 13
       Text = '0'
     end
     object Edit15: TEdit
       Left = 156
       Top = 282
       Width = 140
       Height = 21
       TabOrder = 14
       Text = 'S005'
     end
     object Edit16: TEdit
       Left = 156
       Top = 250
       Width = 140
       Height = 21
       TabOrder = 15
       Text = '0'
     end
     object Button1: TButton
       Left = 8
       Top = 424
       Width = 105
       Height = 49
       Caption = #21457#36865#28040#24687
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -21
       Font.Name = #26032#23435#20307
       Font.Style = [fsBold]
       ParentFont = False
       TabOrder = 16
       OnClick = Button1Click
     end
     object Button2: TButton
       Left = 187
       Top = 424
       Width = 105
       Height = 49
       Caption = #25509#25910#28040#24687
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -21
       Font.Name = #26032#23435#20307
       Font.Style = [fsBold]
       ParentFont = False
       TabOrder = 17
       OnClick = Button2Click
     end
     object Memo2: TMemo
       Left = 303
       Top = 80
       Width = 521
       Height = 113
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -19
       Font.Name = #26032#23435#20307
       Font.Style = []
       ParentFont = False
       ScrollBars = ssBoth
       TabOrder = 18
     end
     object Edit12: TEdit
       Left = 90
       Top = 67
       Width = 161
       Height = 27
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -19
       Font.Name = #26032#23435#20307
       Font.Style = []
       ParentFont = False
       TabOrder = 19
       Text = '1381'
     end
     object Memo3: TMemo
       Left = 303
       Top = 195
       Width = 521
       Height = 113
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -19
       Font.Name = #26032#23435#20307
       Font.Style = []
       ParentFont = False
       ScrollBars = ssBoth
       TabOrder = 20
     end
   end

程序源碼：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,MQIC,CMQXPas,untPub;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Memo1: TMemo;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    Button1: TButton;
    Button2: TButton;
    Memo2: TMemo;
    Label18: TLabel;
    Edit12: TEdit;
    Memo3: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  pom: TMQCD;
  ConnectOpts: MQCNO;
  QMgrPutName: MQCHAR48; //發送隊列管理器名稱
  MyHConn: MQHCONN;
  Compcode, Reason: MQLONG;
  ObjDesc: MQOD;
  ConnOpts: MQLONG;
  AHObj: MQHOBJ;
  sErrMsgTemp: string;
  sXML:string;
  pBuffer: PChar;
  MsgDesc: MQMD;
  PutMsgOptions: MQPMO;
begin
  //1連接隊列
  StrCopy(QMgrPutName, PChar(Edit3.Text));

  MyHConn := 0;
  SetMQCD_CLIENT_CONN_DEFAULT(pom);

  StrCopy(pom.ConnectionName,PChar(trim(Edit1.Text )+'('+trim(edit2.text)+')'));
  StrCopy(pom.ChannelName,PChar(trim(edit5.text)));
  StrCopy(pom.QMgrName,PChar(trim(edit4.text)));
  StrCopy(pom.UserIdentifier,PChar(trim(edit6.text)));
  pom.Version := MQCD_VERSION_7;

  ConnectOpts := MQCNO_DEFAULT;
  ConnectOpts.ClientConnOffset := 0;
  ConnectOpts.ClientConnPtr := @pom;
  ConnectOpts.Version := MQCNO_VERSION_2;
  MQCONNX(@QMgrPutName, @ConnectOpts, @MyHConn, @Compcode, @Reason);
  if Compcode = MQCC_OK then
    //showmessage('連接隊列_成功')
    memo1.Lines.Add(FormatdateTime('yyyy-MM-dd HH:mm:ss',now)+'連接隊列_成功...')
  else
    //showmessage('連接隊列_失敗|' + inttostr(Compcode) + '|' + inttostr(Reason));
    memo1.Lines.Add(FormatdateTime('yyyy-MM-dd HH:mm:ss',now)+'連接隊列_失敗|' + inttostr(Compcode) + '|' + inttostr(Reason));

  //2.打開隊列
  ObjDesc := MQOD_DEFAULT;
  StrCopy(ObjDesc.ObjectName,PChar(trim(edit4.text)));
  ConnOpts := MQOO_OUTPUT + MQOO_FAIL_IF_QUIESCING;
  MQOPEN(MyHConn, @ObjDesc, ConnOpts, @AHObj, @CompCode, @Reason);
  if (Compcode = MQCC_OK) and (Reason = MQRC_NONE) then
  begin
    //ShowMessage('打開隊列_成功|');
    memo1.Lines.Add(FormatdateTime('yyyy-MM-dd HH:mm:ss',now)+'打開隊列_成功|');
  end
  else
  begin
    //ShowMessage('打開隊列_失敗|' + '|' + inttostr(Compcode) + '|' + inttostr(Reason));
    memo1.Lines.Add(FormatdateTime('yyyy-MM-dd HH:mm:ss',now)+'打開隊列_失敗|' + '|' + inttostr(Compcode) + '|' + inttostr(Reason));
  end;

  //3.發送消息
  if AHObj <= 0 then Exit;
  sXML:=memo2.Text ;
  pBuffer:=StrAlloc(Length(sXML));
  pBuffer := StrPCopy(pBuffer, sXML);
  MsgDesc := MQMD_DEFAULT;
  MsgDesc.Version := MQMD_VERSION_2;
  MsgDesc.Format := MQFMT_STRING;
  MsgDesc.CodedCharSetId := strtoint(trim(edit12.text));    //MQCCSI_APPL; 字符編碼
  PutMsgOptions := MQPMO_DEFAULT;
  PutMsgOptions.Version := MQPMO_VERSION_2;
  PutMsgOptions.Options := MQPMO_FAIL_IF_QUIESCING;
  MQPUT(MyHConn, AHObj, @MsgDesc, @PutMsgOptions, Length(sXML), pBuffer, @CompCode, @Reason);
  if (Reason <> MQRC_NONE) or (CompCode <> MQCC_OK) then
  begin
    //ShowMessage('往消息隊列發送消息失敗|' + inttostr(CompCode) + '|' + inttostr(Reason)+#13#10+sXML);
    memo1.Lines.Add(FormatdateTime('yyyy-MM-dd HH:mm:ss',now)+'往消息隊列發送消息失敗|' + inttostr(CompCode) + '|' + inttostr(Reason)+#13#10+'消息內容:'+sXML);
  end
  else begin
    //ShowMessage('往消息隊列發送消息成功！'+#13#10+sXML);
     memo1.Lines.Add(FormatdateTime('yyyy-MM-dd HH:mm:ss',now)+'往消息隊列發送消息成功！'+#13#10+'消息內容:'+sXML);
  end;

  //4.關閉隊列
  ConnOpts := MQCO_NONE;
  MQCLOSE(MyHConn, @AHObj, ConnOpts, @CompCode, @Reason);
  if (Compcode = MQCC_OK) and (Reason = MQRC_NONE) then
  begin
    //ShowMessage('關閉隊列成功');
    memo1.Lines.Add(FormatdateTime('yyyy-MM-dd HH:mm:ss',now)+'關閉隊列成功');
  end
  else
  begin
    memo1.Lines.Add(FormatdateTime('yyyy-MM-dd HH:mm:ss',now)+'關閉隊列失敗|' + inttostr(Compcode) + '|' + inttostr(Reason));
  end;

  //5.關閉連接
  MQDISC(@MyHConn, @CompCode, @Reason);
  if (CompCode = MQCC_OK) and (Reason = MQRC_NONE) then
  begin
    //ShowMessage('連接斷開成功');
    memo1.Lines.Add(FormatdateTime('yyyy-MM-dd HH:mm:ss',now)+'連接斷開成功');
  end
  else
  begin
    //ShowMessage('連接斷開錯誤|' + inttostr(CompCode) + '|' + inttostr(Reason));
    memo1.Lines.Add(FormatdateTime('yyyy-MM-dd HH:mm:ss',now)+'連接斷開錯誤|' + inttostr(CompCode) + '|' + inttostr(Reason));
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  conn: Tconn;
  MyHConn: MQHCONN;
  AHObj:MQHOBJ;
  msg:string;
  outXML:string;
  sError :string;
  length:integer;
begin
  length:=0;
  conn.ConnectionName:=trim(Edit1.Text )+'('+trim(edit2.text)+')';
  conn.ChannelName:=trim(edit5.text);
  conn.QMgrName:=trim(edit3.text);
  conn.QueueName :=trim(edit4.text);
  MyHConn:=0;
  while true do
  begin
    if not perpareMQGET(conn,MyHConn,AHObj,msg) then break;
    try
      if MQ_GET(MyHConn,AHObj,0,outXML,msg) then
      begin
        //memo3.Lines.Clear;
        memo3.Lines.Add(outXML) ;
        length:=length+1;
      end
      else
      begin
        memo3.Lines.Add('當前隊列中無消息。。。'+msg);
        memo3.Lines.Add('當前隊列深度為:'+inttostr(length)) ;
        break;
      end;
    finally
      if not endMQGET(MyHConn,AHObj,msg) then
        ShowMessage(msg);
    end;
  end;

end;
end.

{
 用ReplyToQ 存貯消息頭信息的方式如下：
StrCopy(MsgDesc.ReplyToQ, PChar(sHeader));
sHeader 存儲消息頭內容，格式為
hospital_id:service_id:domain_id:apply_unit_id:exec_unit_id:send_sys_id:order_exec_id:extend_sub_id
中間由冒號分隔
各單元註釋
hospital_id: 醫療機構代碼
service_id: 消息ID
domain_id: 就診類別ID(01 門診,2 急診,0201 普通急診,0202 急診留觀,03 住院,04 體檢,0401 普通體檢,0402
幹保體檢,05 轉院)
apply_unit_id: 申請科室ID
exec_unit_id: 執行科室ID
send_sys_id: 發送系統ID
order_exec_id：醫囑執行分類編碼
extend_sub_id：擴展碼（empi使用時放入域ID，其它系統標0）
}

效果截圖：

下載鏈接：delphi客戶端連接IBM MQ

delphi客戶端連接IBM MQ