TParams Example

The following program code demonstrates how a TParams component can be used to save off the TRPCBroker component parameters and restore them later:

procedure TForm1.Button1Click(Sender: TObject);
var
  SaveParams: TParams;
  SaveRemoteProcedure: string;
begin
  SaveParams := TParams.Create(Self);  {create holding variable with Form1 as owner}
  SaveParams.Assign(RPCBroker1.Param);  {save parameters}
  SaveRemoteProcedure := RPCBroker1.RemoteProcedure;
  RPCBroker1.RemoteProcedure := 'SOME OTHER PROCEDURE';
  RPCBroker1.ClearParameters := True;
  RPCBroker1.Call;
  RPCBroker1.Param.Assign(SaveParams);  {restore parameters}
  RPCBroker1.RemoteProcedure := SaveRemoteProcedure;
  SaveParams.Free;  {release memory}
end;