RPC HELP TRPCBroker RPCTimeLimit Example

From VistApedia
Jump to: navigation, search

RPC Broker Help Home

RPCTimeLimit Example

The following program code demonstrates using the RPCTimeLimit property:

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