RPC HELP XWB ARE RPCS AVAILABLE Example

From VistApedia
Jump to navigationJump to 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
Retrieved from "https://vistapedia.com/index.php?title=RPC_HELP_XWB_ARE_RPCS_AVAILABLE_Example&oldid=16776"