source: cprs/branches/tmg-cprs/BDK32/Samples/SharedRPCBroker/BrokerEx/fBrokerExample.dfm@ 504

Last change on this file since 504 was 453, checked in by Kevin Toppenberg, 17 years ago

Initial upload of TMG-CPRS 1.0.26.69
File size: 14.0 KB
RevLine 
[453]1object frmBrokerExample: TfrmBrokerExample
2 Left = 203
3 Top = 106
4 BorderStyle = bsSingle
5 Caption = 'RPCBroker Example (patch xwb*1.1*40 SharedRPCBroker)'
6 ClientHeight = 386
7 ClientWidth = 473
8 Color = clBtnFace
9 Font.Charset = DEFAULT_CHARSET
10 Font.Color = clBtnText
11 Font.Height = -13
12 Font.Name = 'System'
13 Font.Style = []
14 Menu = MainMenu1
15 OldCreateOrder = True
16 Position = poScreenCenter
17 OnCreate = FormCreate
18 PixelsPerInch = 96
19 TextHeight = 16
20 object GroupBox2: TGroupBox
21 Left = 8
22 Top = 0
23 Width = 457
24 Height = 73
25 Caption = 'VistA Server'
26 TabOrder = 0
27 object Label2: TLabel
28 Left = 6
29 Top = 51
30 Width = 67
31 Height = 16
32 AutoSize = False
33 Caption = 'Status:'
34 end
35 object Label3: TLabel
36 Left = 82
37 Top = 51
38 Width = 88
39 Height = 16
40 Caption = 'Disconnected'
41 Color = clBtnFace
42 Font.Charset = DEFAULT_CHARSET
43 Font.Color = clRed
44 Font.Height = -13
45 Font.Name = 'System'
46 Font.Style = []
47 ParentColor = False
48 ParentFont = False
49 end
50 object btnConnect: TButton
51 Left = 354
52 Top = 12
53 Width = 91
54 Height = 25
55 Caption = '&Connect'
56 Default = True
57 TabOrder = 2
58 OnClick = btnConnectClick
59 end
60 object edtPort: TEdit
61 Left = 192
62 Top = 24
63 Width = 49
64 Height = 24
65 Hint = 'Listener port number'
66 ParentShowHint = False
67 ShowHint = True
68 TabOrder = 1
69 Text = '9200'
70 OnChange = edtServerChange
71 end
72 object edtServer: TEdit
73 Left = 8
74 Top = 24
75 Width = 177
76 Height = 24
77 Hint = 'Name of server or IP address'
78 ParentShowHint = False
79 ShowHint = True
80 TabOrder = 0
81 Text = 'BROKERSERVER'
82 OnChange = edtServerChange
83 end
84 object BitBtn1: TBitBtn
85 Left = 354
86 Top = 44
87 Width = 91
88 Height = 25
89 TabOrder = 3
90 Kind = bkClose
91 end
92 object btnGetServerInfo: TBitBtn
93 Left = 248
94 Top = 24
95 Width = 73
96 Height = 25
97 Hint = 'GetServerInfo'
98 Caption = 'Server'
99 ParentShowHint = False
100 ShowHint = True
101 TabOrder = 4
102 OnClick = btnGetServerInfoClick
103 Glyph.Data = {
104 76010000424D7601000000000000760000002800000020000000100000000100
105 04000000000000010000120B0000120B00001000000000000000000000000000
106 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
107 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
108 00333FF777777777773F0000FFFFFFFFFF0377773F3F3F3F3F7308880F0F0F0F
109 0FF07F33737373737337088880FFFFFFFFF07F3337FFFFFFFFF7088880000000
110 00037F3337777777777308888033330F03337F3337F3FF7F7FFF088880300000
111 00007F3337F7777777770FFFF030FFFFFFF07F3FF7F7F3FFFFF708008030F000
112 00F07F7737F7F77777F70FFFF030F0AAE0F07F3FF7F7F7F337F708008030F0DA
113 D0F07F7737F7F7FFF7F70FFFF030F00000F07F33F7F7F77777370FF9F030FFFF
114 FFF07F3737F7FFFFFFF70FFFF030000000007FFFF7F777777777000000333333
115 3333777777333333333333333333333333333333333333333333}
116 NumGlyphs = 2
117 end
118 end
119 object PageControl1: TPageControl
120 Left = 8
121 Top = 76
122 Width = 457
123 Height = 305
124 ActivePage = TabSheet1
125 TabOrder = 1
126 object TabSheet1: TTabSheet
127 Caption = 'Echo string'
128 object lblSend: TLabel
129 Left = 8
130 Top = 24
131 Width = 96
132 Height = 16
133 Caption = 'Original string:'
134 end
135 object lblReturn: TLabel
136 Left = 8
137 Top = 144
138 Width = 93
139 Height = 16
140 Caption = 'Echoed string:'
141 end
142 object edtStrOrig: TEdit
143 Left = 8
144 Top = 40
145 Width = 225
146 Height = 24
147 TabOrder = 0
148 Text = 'Hello World!'
149 end
150 object edtStrRtrn: TEdit
151 Left = 8
152 Top = 160
153 Width = 225
154 Height = 24
155 ReadOnly = True
156 TabOrder = 1
157 end
158 object btnEchoString: TButton
159 Left = 8
160 Top = 88
161 Width = 225
162 Height = 25
163 Hint = 'XWB EXAMPLE ECHO STRING'
164 Caption = 'Execute RPC'
165 Default = True
166 ParentShowHint = False
167 ShowHint = True
168 TabOrder = 2
169 OnClick = btnEchoStringClick
170 end
171 object Memo1: TMemo
172 Left = 240
173 Top = 8
174 Width = 201
175 Height = 257
176 TabStop = False
177 Font.Charset = DEFAULT_CHARSET
178 Font.Color = clWindowText
179 Font.Height = -13
180 Font.Name = 'MS Sans Serif'
181 Font.Style = []
182 Lines.Strings = (
183 'Uses TRPCBroker.Call method '
184 'to return a single string.'
185 ''
186 'Original string passed in as '
187 'PType literal.'
188 ''
189 'RPC: XWB EXAMPLE ECHO '
190 'STRING.'
191 ''
192 'Return Value Type: SINGLE '
193 'VALUE.')
194 ParentColor = True
195 ParentFont = False
196 ReadOnly = True
197 TabOrder = 3
198 end
199 end
200 object TabSheet2: TTabSheet
201 Caption = 'Pass by reference'
202 object Label1: TLabel
203 Left = 8
204 Top = 24
205 Width = 70
206 Height = 16
207 Caption = 'Reference:'
208 end
209 object Label4: TLabel
210 Left = 8
211 Top = 144
212 Width = 40
213 Height = 16
214 Caption = 'Value:'
215 end
216 object edtReference: TEdit
217 Left = 8
218 Top = 40
219 Width = 225
220 Height = 24
221 TabOrder = 0
222 Text = '$HOROLOG'
223 end
224 object edtValue: TEdit
225 Left = 8
226 Top = 160
227 Width = 225
228 Height = 24
229 ReadOnly = True
230 TabOrder = 1
231 end
232 object btnPassByRef: TButton
233 Left = 8
234 Top = 88
235 Width = 225
236 Height = 25
237 Hint = 'XWB GET VARIABLE VALUE'
238 Caption = 'Execute RPC'
239 Default = True
240 ParentShowHint = False
241 ShowHint = True
242 TabOrder = 2
243 OnClick = btnPassByRefClick
244 end
245 object Memo2: TMemo
246 Left = 240
247 Top = 8
248 Width = 201
249 Height = 257
250 TabStop = False
251 Font.Charset = DEFAULT_CHARSET
252 Font.Color = clWindowText
253 Font.Height = -13
254 Font.Name = 'MS Sans Serif'
255 Font.Style = []
256 Lines.Strings = (
257 'Uses TRPCBroker.strCall '
258 'method to return a single string.'
259 ''
260 'Parameter passed in as PType '
261 'reference.'
262 ''
263 'RPC: XWB GET VARIABLE '
264 'VALUE.'
265 ''
266 'Return Value Type: SINGLE '
267 'VALUE.')
268 ParentColor = True
269 ParentFont = False
270 ReadOnly = True
271 TabOrder = 3
272 end
273 end
274 object TabSheet3: TTabSheet
275 Caption = 'Get list'
276 object Label5: TLabel
277 Left = 8
278 Top = 120
279 Width = 87
280 Height = 16
281 Caption = 'Returned list:'
282 end
283 object lstData: TListBox
284 Left = 8
285 Top = 136
286 Width = 225
287 Height = 129
288 ItemHeight = 16
289 TabOrder = 0
290 end
291 object btnGetList: TButton
292 Left = 8
293 Top = 88
294 Width = 225
295 Height = 25
296 Hint = 'XWB EXAMPLE GET LIST'
297 Caption = 'Execute RPC'
298 Default = True
299 ParentShowHint = False
300 ShowHint = True
301 TabOrder = 1
302 OnClick = btnGetListClick
303 end
304 object RadioButton1: TRadioButton
305 Left = 16
306 Top = 16
307 Width = 137
308 Height = 17
309 Caption = 'Number of lines'
310 Checked = True
311 TabOrder = 2
312 TabStop = True
313 end
314 object RadioButton2: TRadioButton
315 Left = 16
316 Top = 48
317 Width = 137
318 Height = 17
319 Caption = 'Kilobytes of data'
320 TabOrder = 3
321 end
322 object spnLines: TSpinEdit
323 Left = 160
324 Top = 16
325 Width = 65
326 Height = 26
327 MaxValue = 0
328 MinValue = 0
329 TabOrder = 4
330 Value = 50
331 end
332 object spnKbytes: TSpinEdit
333 Left = 160
334 Top = 48
335 Width = 65
336 Height = 26
337 MaxValue = 0
338 MinValue = 0
339 TabOrder = 5
340 Value = 32
341 end
342 object Memo3: TMemo
343 Left = 240
344 Top = 8
345 Width = 201
346 Height = 257
347 TabStop = False
348 Font.Charset = DEFAULT_CHARSET
349 Font.Color = clWindowText
350 Font.Height = -13
351 Font.Name = 'MS Sans Serif'
352 Font.Style = []
353 Lines.Strings = (
354 'Uses TRPCBroker.Call method '
355 'to return several strings.'
356 ''
357 'Two parameters passed in as '
358 'PType literal.'
359 ''
360 'RPC: XWB EXAMPLE GET LIST.'
361 ''
362 'Return Value Type: GLOBAL '
363 'ARRAY.'
364 ''
365 'WORD WRAP ON field is True '
366 'to break appart call result into '
367 'separate Results strings instead '
368 'of one long Results[0] string.')
369 ParentColor = True
370 ParentFont = False
371 ReadOnly = True
372 TabOrder = 6
373 end
374 end
375 object TabSheet4: TTabSheet
376 Caption = 'WP Text'
377 object lblList: TLabel
378 Left = 8
379 Top = 56
380 Width = 177
381 Height = 17
382 AutoSize = False
383 Caption = 'REMOTE PROCEDURE file description:'
384 end
385 object btnWPText: TButton
386 Left = 8
387 Top = 16
388 Width = 225
389 Height = 25
390 Hint = 'XWB EXAMPLE WPTEXT'
391 Caption = 'Execute RPC'
392 Default = True
393 ParentShowHint = False
394 ShowHint = True
395 TabOrder = 0
396 OnClick = btnWPTextClick
397 end
398 object mmoText: TMemo
399 Left = 8
400 Top = 80
401 Width = 225
402 Height = 185
403 ReadOnly = True
404 ScrollBars = ssVertical
405 TabOrder = 1
406 end
407 object Memo4: TMemo
408 Left = 240
409 Top = 8
410 Width = 201
411 Height = 257
412 TabStop = False
413 Font.Charset = DEFAULT_CHARSET
414 Font.Color = clWindowText
415 Font.Height = -13
416 Font.Name = 'MS Sans Serif'
417 Font.Style = []
418 Lines.Strings = (
419 'Uses TRPCBroker.lstCall '
420 'method to return several strings.'
421 ''
422 'No parameters are used in this '
423 'call.'
424 ''
425 'RPC: XWB EXAMPLE WPTEXT.'
426 ''
427 'Return Value Type: WORD '
428 'PROCESSING.'
429 ''
430 'WORD WRAP ON field is False '
431 'to allow memo box to control '
432 'word wrapping as necessary.')
433 ParentColor = True
434 ParentFont = False
435 ReadOnly = True
436 TabOrder = 2
437 end
438 end
439 object TabSheet5: TTabSheet
440 Caption = 'Sort numbers'
441 object Label6: TLabel
442 Left = 8
443 Top = 120
444 Width = 87
445 Height = 16
446 Caption = 'Returned list:'
447 end
448 object Label7: TLabel
449 Left = 8
450 Top = 8
451 Width = 72
452 Height = 16
453 Caption = 'How many:'
454 end
455 object lblStatus: TLabel
456 Left = 8
457 Top = 56
458 Width = 57
459 Height = 16
460 Caption = 'lblStatus'
461 Visible = False
462 end
463 object lstSorted: TListBox
464 Left = 8
465 Top = 136
466 Width = 225
467 Height = 129
468 ItemHeight = 16
469 TabOrder = 0
470 end
471 object btnSortNum: TButton
472 Left = 8
473 Top = 88
474 Width = 225
475 Height = 25
476 Hint = 'XWB EXAMPLE SORT NUMBERS'
477 Caption = 'Execute RPC'
478 Default = True
479 ParentShowHint = False
480 ShowHint = True
481 TabOrder = 1
482 OnClick = btnSortNumClick
483 end
484 object spnNumbers: TSpinEdit
485 Left = 8
486 Top = 24
487 Width = 81
488 Height = 26
489 MaxValue = 10000
490 MinValue = 0
491 TabOrder = 2
492 Value = 500
493 end
494 object rgrDirection: TRadioGroup
495 Left = 104
496 Top = 8
497 Width = 121
498 Height = 65
499 Caption = 'Sort direction'
500 ItemIndex = 0
501 Items.Strings = (
502 'low -> high'
503 'high -> low')
504 TabOrder = 3
505 end
506 object Memo5: TMemo
507 Left = 240
508 Top = 8
509 Width = 201
510 Height = 257
511 TabStop = False
512 Font.Charset = DEFAULT_CHARSET
513 Font.Color = clWindowText
514 Font.Height = -13
515 Font.Name = 'MS Sans Serif'
516 Font.Style = []
517 Lines.Strings = (
518 'Uses TRPCBroker.Call method '
519 'to return several strings.'
520 ''
521 'First parameter passed in as '
522 'literal, second as list. See how '
523 'Mult is used.'
524 ''
525 'RPC: XWB EXAMPLE SORT '
526 'NUMBERS.'
527 ''
528 'Return Value Type: ARRAY.'
529 ''
530 'This call can take a while to '
531 'complete. RPCTimeLimit '
532 'property is adjusted.')
533 ParentColor = True
534 ParentFont = False
535 ReadOnly = True
536 TabOrder = 4
537 end
538 end
539 end
540 object MainMenu1: TMainMenu
541 Left = 160
542 Top = 320
543 object Help1: TMenuItem
544 Caption = '&Help'
545 object AboutExample: TMenuItem
546 Caption = '&About RPC Broker Example...'
547 OnClick = AboutExampleClick
548 end
549 end
550 end
551 object Timer1: TTimer
552 OnTimer = Timer1Timer
553 Left = 16
554 Top = 320
555 end
556 object RPCBroker1: TSharedRPCBroker
557 ClearParameters = True
558 ClearResults = True
559 ListenerPort = 0
560 RpcVersion = '0'
561 LogIn.Mode = lmAVCodes
562 LogIn.PromptDivision = False
563 AllowShared = True
564 RPCTimeLimit = 30
565 Left = 84
566 Top = 327
567 end
568end
Note: See TracBrowser for help on using the repository browser.