RPC HELP XWB DIRECT RPC Example

From VistApedia
Jump to: navigation, search

RPC Broker Help Home

XWB DIRECT RPC Example

The following is example of the XWB DIRECT RPC:

   brkrRPCBroker1.RemoteProcedure := 'XWB DIRECT RPC';
   brkrRPCBroker1.Param[0].Ptype:= Literal;
   brkrRPCBroker1.Param[0].Value := 'Station Number';
   brkrRPCBroker1.Param[1].Ptype:= Literal;
   brkrRPCBroker1.Param[1].Value := 'XWB GET VARIABLE VALUE';
   {no version numbers for remote RPC so null value in Param[2]}
   brkrRPCBroker1.Param[2].Ptype:= Literal;
   brkrRPCBroker1.Param[2].Value := ;
   brkrRPCBroker1.Param[3].Ptype:= Reference;
   brkrRPCBroker1.Param[3].Value := 'DUZ';
   try
     brkrRPCBroker1.Call;
   except
     On EBrokerError do
       ShowMessage('Connection to server could not be established!');
   end;
   .; code to handle brkrRPCBroker1.Results[]