RPC HELP XWB ARE RPCS AVAILABLE Example
From VistApedia
XWB ARE RPCS AVAILABLE Example
The following is example of the XWB ARE RPCS AVAILABLE RPC:
brkrRPCBroker1.RemoteProcedure := 'XWB ARE RPCS AVAILABLE'; brkrRPCBroker1.Param[0].Ptype:= Literal; brkrRPCBroker1.Param[0].Value := 'L'; brkrRPCBroker1.Param[1].Ptype := List; brkrRPCBroker1.Param[1].Mult['0'] = 'MY FIRST RPC'; brkrRPCBroker1.Param[1].Mult['1'] = 'MY OTHER RPC^2'; try brkrRPCBroker1.Call; except On EBrokerError do ShowMessage('Connection to server could not be established!'); end; .; branch code to handle availability of RPCs