Kdtop: Created page with " RPC Broker Help Home

TSharedRPCBroker Example

The following example demonstrates how a TSharedRPCBroker component can be used to connect to the V..."

2015-07-08T17:31:38Z

Created page with " RPC Broker Help Home <h2>TSharedRPCBroker Example</h2> The following example demonstrates how a TSharedRPCBroker component can be used to connect to the V..."

New page

[[RPC_Broker_Help| RPC Broker Help Home]]
<h2>TSharedRPCBroker Example</h2>
The following example demonstrates how a TSharedRPCBroker component can be used to connect to the VistA M Server, execute various remote procedures, return the results and finally disconnect from the server. This example assumes that a TSharedRPCBroker component already exists on the form:

'''procedure''' TForm1.Button1Click(Sender: TObject);
'''var'''
i: Integer;
'''begin'''
'''try'''
'''if not''' SharedRPCBroker1.Connected '''then'''
SharedRPCBRoker1.Connected := True; {connect to the server}
//assign RPC name
SharedRPCBroker1.RemoteProcedure := 'SOME APPLICATION RPC';
SharedRPCBroker1.Call; {make the call}
'''for''' i=0 '''to''' Pred(SharedRPCBroker1.Results.Count) do
ListBox1.Items.Add(SharedRPCBroker1.Results[i]); {display results}
'''except'''
//put error handling code here
'''end;'''
'''end;'''

RPC HELP TSharedRPCBroker Example - Revision history

Kdtop: Created page with " RPC Broker Help Home

TSharedRPCBroker Example