RPCTimeLimit Example

The following program code demonstrates using the RPCTimeLimit property:

procedure TForm1.Button1Click(Sender: TObject);
var
  intSaveRPCTimeLimit: integer;
begin
  RPCBroker1.RemoteProcedure := 'GET ALL LAB RESULTS';
  RPCBroker1.Param[0].Value := 'DFN';
  RPCBroker1.Param[0].PType := reference;
  intSaveRPCTimeLimit := RPCBroker1.RPCTimeLimit;  {save off current time limit}
  RPCBroker1.RPCTimeLimit := 60;   {can take up to a minute to complete}
  RPCBroker1.Call;
  RPCBroker1.RPCTimeLimit := intSaveRPCTimeLimit;  {restore previous time limit}
end;