RPC HELP XWB IS RPC AVAILABLE Example

From VistApedia
Jump to: navigation, search

RPC Broker Help Home

XWB IS RPC AVAILABLE Example

The following is example of the XWB IS RPC AVAILABLE RPC:

   brkrRPCBroker1.RemoteProcedure := 'XWB IS RPC AVAILABLE';
   brkrRPCBroker1.Param[0].Value :='XWB GET VARIABLE VALUE';
   brkrRPCBroker1.Param[0].PType := literal;
   brkrRPCBroker1.Param[1].Value := 'R';
   brkrRPCBroker1.Param[1].PType := literal;
   {no version number passed in this example as XWB GET VARIABLE VALUE has only one version}
   try
     brkrRPCBroker1.Call;
   except
     On EBrokerError do
       ShowMessage('Connection to server could not be established!');
   end;
   .; branch code to handle RPC availability