RPC HELP XWB ARE RPCS AVAILABLE Example

From VistApedia
Jump to: navigation, search

RPC Broker Help Home

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