UnDemo.dfm 2.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142
  1. object MainForm: TMainForm
  2. Left = 547
  3. Top = 203
  4. BorderStyle = bsDialog
  5. Caption = 'I'#32593#20851#38598#20013#35748#35777'Demo'
  6. ClientHeight = 422
  7. ClientWidth = 415
  8. Color = clBtnFace
  9. Font.Charset = ANSI_CHARSET
  10. Font.Color = clWindowText
  11. Font.Height = -12
  12. Font.Name = #23435#20307
  13. Font.Style = []
  14. OldCreateOrder = False
  15. Position = poDesktopCenter
  16. PixelsPerInch = 96
  17. TextHeight = 12
  18. object Label1: TLabel
  19. Left = 32
  20. Top = 22
  21. Width = 60
  22. Height = 12
  23. Caption = #26381#21153#22120'IP'#65306
  24. end
  25. object Label2: TLabel
  26. Left = 32
  27. Top = 54
  28. Width = 72
  29. Height = 12
  30. Caption = #26381#21153#22120#31471#21475#65306
  31. end
  32. object Label3: TLabel
  33. Left = 32
  34. Top = 86
  35. Width = 60
  36. Height = 12
  37. Caption = #24212#29992#26631#35782#65306
  38. end
  39. object Label4: TLabel
  40. Left = 32
  41. Top = 118
  42. Width = 72
  43. Height = 12
  44. Caption = #39041#21457#32773#20027#39064#65306
  45. end
  46. object Label5: TLabel
  47. Left = 32
  48. Top = 152
  49. Width = 60
  50. Height = 12
  51. Caption = #23458#25143#31471'IP'#65306
  52. end
  53. object edtServerIP: TEdit
  54. Left = 139
  55. Top = 14
  56. Width = 250
  57. Height = 20
  58. TabOrder = 0
  59. Text = '127.0.0.1'
  60. end
  61. object edtServerPort: TEdit
  62. Left = 139
  63. Top = 46
  64. Width = 250
  65. Height = 20
  66. TabOrder = 1
  67. Text = '6180'
  68. end
  69. object edtAppFlag: TEdit
  70. Left = 139
  71. Top = 78
  72. Width = 250
  73. Height = 20
  74. TabOrder = 2
  75. Text = 'testApp'
  76. end
  77. object edtIsuerDN: TEdit
  78. Left = 139
  79. Top = 110
  80. Width = 250
  81. Height = 20
  82. TabOrder = 3
  83. end
  84. object memAuthResult: TMemo
  85. Left = 24
  86. Top = 176
  87. Width = 369
  88. Height = 191
  89. ReadOnly = True
  90. ScrollBars = ssBoth
  91. TabOrder = 4
  92. end
  93. object btnAuth: TButton
  94. Left = 64
  95. Top = 382
  96. Width = 75
  97. Height = 25
  98. Caption = #35748#35777
  99. TabOrder = 5
  100. OnClick = btnAuthClick
  101. end
  102. object btnClose: TButton
  103. Left = 272
  104. Top = 382
  105. Width = 75
  106. Height = 25
  107. Caption = #20851#38381
  108. TabOrder = 6
  109. OnClick = btnCloseClick
  110. end
  111. object edtClientIP: TEdit
  112. Left = 139
  113. Top = 144
  114. Width = 250
  115. Height = 20
  116. TabOrder = 7
  117. end
  118. object XMLDoc: TXMLDocument
  119. Left = 176
  120. Top = 376
  121. DOMVendorDesc = 'MSXML'
  122. end
  123. object IdHTTP1: TIdHTTP
  124. AuthRetries = 0
  125. AuthProxyRetries = 0
  126. AllowCookies = True
  127. ProxyParams.BasicAuthentication = False
  128. ProxyParams.ProxyPort = 0
  129. Request.ContentLength = -1
  130. Request.ContentRangeEnd = 0
  131. Request.ContentRangeStart = 0
  132. Request.ContentRangeInstanceLength = 0
  133. Request.ContentType = 'text/xml'
  134. Request.Accept = 'text/html, */*'
  135. Request.BasicAuthentication = False
  136. Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
  137. HTTPOptions = [hoForceEncodeParams]
  138. Left = 216
  139. Top = 376
  140. end
  141. end