Difference between revisions of "RPC HELP TParams Example"
From VistApedia
(Created page with "<h2>TParams Example (TParams Class)</h2> The following program code demonstrates how a TParams assign method can be used to save off the [[RPC_HELP_TRPCB|...") |
(No difference)
|
Latest revision as of 01:29, 4 July 2015
TParams Example (TParams Class)
The following program code demonstrates how a TParams assign method can be used to save off the TRPCB component parameters and restore them later:
procedure TForm1.Button1Click(Sender: TObject); var SaveParams: TParams; SaveRemoteProcedure: string; begin {create holding variable with Form1 as owner} SaveParams := TParams.Create(self); {save parameters} SaveParams.Assign(brkrRPCBroker1.Param); SaveRemoteProcedure := brkrRPCBroker1.RemoteProcedure; brkrRPCBroker1.RemoteProcedure := 'SOME OTHER PROCEDURE'; brkrRPCBroker1.ClearParameters := True; brkrRPCBroker1.Call; {restore parameters} brkrRPCBroker1.Param.Assign(SaveParams); brkrRPCBroker1.RemoteProcedure := SaveRemoteProcedure; {release memory} SaveParams.Free; end;