RPC HELP TRPCBroker Example

TRPCBroker Example The following example demonstrates how a TRPCBroker 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 TRPCBroker component already exists on the form as brkrRPCBroker1: procedure TForm1.Button1Click(Sender: TObject); begin try {connect to the server} brkrRPCBroker1.Connected := True; //assign RPC name brkrRPCBroker1.RemoteProcedure := 'SOME APPLICATION RPC'; {make the call} brkrRPCBroker1.Call; {display results} ListBox1.Items := brkrRPCBroker1.Results; {disconnect from the server} brkrRPCBroker1.Connected := False; except //put error handling code here end; end;