Difference between revisions of "RPC HELP Tutorial Step 2"
| 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. | ||
Revision as of 14:56, 15 July 2015
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 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 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 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.
- Add code to the FormCreate event handler that retrieves the correct server and port to connect to, using the 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 (Step 3) your application will use the TRPCBroker component to establish a connection to the VistA M Server.
