Kdtop: Created page with "

TParams Example (TParams Class)

The following program code demonstrates how a TParams assign method can be used to save off the [[RPC_HELP_TRPCB|..."

2015-07-04T01:29:32Z

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|..."

New page

<h2>TParams Example (TParams Class)</h2>
The following program code demonstrates how a [[RPC_HELP_TParams|TParams]] assign method can be used to save off the [[RPC_HELP_TRPCB|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;'''

RPC HELP TParams Example - Revision history

Kdtop: Created page with "

TParams Example (TParams Class)