RPC HELP XWB REMOTE RPC Example
From VistApedia
XWB REMOTE RPC Example
The following is example of the XWB REMOTE RPC:
brkrRPCBroker1.RemoteProcedure := 'XWB REMOTE RPC';
brkrRPCBroker1.Param[0].Ptype:= Literal;
brkrRPCBroker1.Param[0].Value := 'Station Number';
brkrRPCBroker1.Param[1].Ptype:= Literal;
brkrRPCBroker1.Param[1].Value := 'MY RPC’;
brkrRPCBroker1.Param[2].Ptype:= Literal;
brkrRPCBroker1.Param[2].Value := '1';
brkrRPCBroker1.Param[3].Ptype:= Reference;
brkrRPCBroker1.Param[3].Value := 'MY RPC PARAMETER';
try
brkrRPCBroker1.Call;
except
On EBrokerError do
ShowMessage('Connection to server could not be established!');
end;
.; code to store HANDLE returned in brkrRPCBroker1.Results[]
The application will need to use XWB REMOTE STATUS CHECK, XWB REMOTE GETDATA, and XWB REMOTE CLEAR to complete the transaction.