RPC HELP XWB IS RPC AVAILABLE Example
From VistApedia
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