RPC HELP Tutorial Step 2 - Revision history

Kdtop at 14:59, 17 July 2015

2015-07-17T14:59:09Z

← Older revision		Revision as of 14:59, 17 July 2015
Line 6:		Line 6:

	To retrieve the end-user workstation's designated server and port:		To retrieve the end-user workstation's designated server and port:
	# Include the RPCConf1 unit in your Pascal file's uses clause. This is the unit that [[RPC_HELP_GetServerInfo\|GetServerInfo]] is a part of. EDITOR's NOTE: this file is in the BDK folder, in the Source subfolder.		# Include the RPCConf1 unit in your Pascal file's uses clause. This is the unit that [[RPC_HELP_GetServerInfo\|GetServerInfo]] is a part of. '''EDITOR'S NOTE''': this file is in the BDK folder, in the Source subfolder.
	# Double-click on a blank region of the form. This creates an event handler procedure, TForm1.FormCreate, in your Pascal source code.		# Double-click on a blank region of the form. This creates an event handler procedure, TForm1.FormCreate, in your Pascal source code.
	# Add code to the FormCreate event handler that retrieves the correct server and port to connect to, using the [[RPC_HELP_GetServerInfo\|GetServerInfo]] function. If mrCancel is returned, your code should quit. Otherwise, your code should then set brkrRPCBroker1's Server and ListenerPort properties to the returned values.		# Add code to the FormCreate event handler that retrieves the correct server and port to connect to, using the [[RPC_HELP_GetServerInfo\|GetServerInfo]] function. If mrCancel is returned, your code should quit. Otherwise, your code should then set brkrRPCBroker1's Server and ListenerPort properties to the returned values. '''EDITOR'S NOTE''': At our site, and I believe many other sites, we no longer use the Windows system registry to hold the server and port values. Instead we place them, for example with CPRS, as a command-line parameter. For the purpose of this tutorial, I recommend hard coding in the address and port directly into the brkrRPCBroker1, and then skipping the call to [[RPC_HELP_GetServerInfo\|GetServerInfo]].

	The code should look like the following:		The code should look like the following:

Kdtop at 14:56, 15 July 2015

2015-07-15T14:56:30Z

← Older revision		Revision as of 14:56, 15 July 2015
Line 6:		Line 6:

	To retrieve the end-user workstation's designated server and port:		To retrieve the end-user workstation's designated server and port:
	# Include the RPCConf1 unit in your Pascal file's uses clause. This is the unit that [[RPC_HELP_GetServerInfo\|GetServerInfo]] is a part of.		# Include the RPCConf1 unit in your Pascal file's uses clause. This is the unit that [[RPC_HELP_GetServerInfo\|GetServerInfo]] is a part of. EDITOR's NOTE: this file is in the BDK folder, in the Source subfolder.
	# Double-click on a blank region of the form. This creates an event handler procedure, TForm1.FormCreate, in your Pascal source code.		# Double-click on a blank region of the form. This creates an event handler procedure, TForm1.FormCreate, in your Pascal source code.
	# Add code to the FormCreate event handler that retrieves the correct server and port to connect to, using the [[RPC_HELP_GetServerInfo\|GetServerInfo]] function. If mrCancel is returned, your code should quit. Otherwise, your code should then set brkrRPCBroker1's Server and ListenerPort properties to the returned values.		# Add code to the FormCreate event handler that retrieves the correct server and port to connect to, using the [[RPC_HELP_GetServerInfo\|GetServerInfo]] function. If mrCancel is returned, your code should quit. Otherwise, your code should then set brkrRPCBroker1's Server and ListenerPort properties to the returned values.

Kdtop at 20:44, 5 July 2015

2015-07-05T20:44:43Z

← Older revision		Revision as of 20:44, 5 July 2015
Line 1:		Line 1:
			[[RPC_Broker_Help\| RPC Broker Help Home]]

			[[RPC_Broker_Help#Tutorial\|Tutorial Home]]
	<h2>Tutorial: Step 2 -- Get Server/Port</h2>		<h2>Tutorial: Step 2 -- Get Server/Port</h2>
	The [[RPC_HELP_TRPCBroker\|TRPCBroker]] component you've added to your form is hard coded to access the Broker server and listener port that it picks up from your own (developer) workstation (by default, BROKERSERVER and 9200). Naturally you don't want this to be the only server and port that your application can connect to. To retrieve the end-user workstation's designated Broker server and port to connect to, as stored in their Registry, you can use the [[RPC_HELP_GetServerInfo\|GetServerInfo]] function.		The [[RPC_HELP_TRPCBroker\|TRPCBroker]] component you've added to your form is hard coded to access the Broker server and listener port that it picks up from your own (developer) workstation (by default, BROKERSERVER and 9200). Naturally you don't want this to be the only server and port that your application can connect to. To retrieve the end-user workstation's designated Broker server and port to connect to, as stored in their Registry, you can use the [[RPC_HELP_GetServerInfo\|GetServerInfo]] function.

Kdtop: Created page with "

Tutorial: Step 2 -- Get Server/Port

The TRPCBroker component you've added to your form is hard coded to access the Broker server and listener ..."

2015-07-05T17:02:28Z

Created page with "<h2>Tutorial: Step 2 -- Get Server/Port</h2> The TRPCBroker component you've added to your form is hard coded to access the Broker server and listener ..."

New page

<h2>Tutorial: Step 2 -- Get Server/Port</h2>
The [[RPC_HELP_TRPCBroker|TRPCBroker]] component you've added to your form is hard coded to access the Broker server and listener port that it picks up from your own (developer) workstation (by default, BROKERSERVER and 9200). Naturally you don't want this to be the only server and port that your application can connect to. To retrieve the end-user workstation's designated Broker server and port to connect to, as stored in their Registry, you can use the [[RPC_HELP_GetServerInfo|GetServerInfo]] function.

To retrieve the end-user workstation's designated server and port:
# Include the RPCConf1 unit in your Pascal file's uses clause. This is the unit that [[RPC_HELP_GetServerInfo|GetServerInfo]] is a part of.
# Double-click on a blank region of the form. This creates an event handler procedure, TForm1.FormCreate, in your Pascal source code.
# Add code to the FormCreate event handler that retrieves the correct server and port to connect to, using the [[RPC_HELP_GetServerInfo|GetServerInfo]] function. If mrCancel is returned, your code should quit. Otherwise, your code should then set brkrRPCBroker1's Server and ListenerPort properties to the returned values.

The code should look like the following:

'''procedure''' TForm1.FormCreate(Sender: TObject);
'''var''' ServerStr: String;
PortStr: String;
'''begin'''
// Get the correct port and server from the Registry.
if GetServerInfo(ServerStr,PortStr)<> mrCancel then begin
brkrRPCBroker1.Server:=ServerStr;
brkrRPCBroker1.ListenerPort:=StrToInt(PortStr);
{connectOK}
'''end else begin'''
Application.Terminate;
'''end;'''
'''end;'''

Now that you have code to retrieve the appropriate RPC Broker server and listener port, in the next section of the tutorial ([[RPC_HELP_Tutorial_Step_3|Step 3]]) your application will use the [[RPC_HELP_TRPCBroker|TRPCBroker]] component to establish a connection to the VistA M Server.

<h4>[[RPC_HELP_Tutorial_Step_1|PREV: Step 1: Create Application with an RPC Broker Component]]</h4>
<h4>[[RPC_HELP_Tutorial_Step_3|NEXT: Step 3: Establish Broker Connection]]</h4>