RPC HELP TRPCBroker Results Example

From VistApedia
Jump to: navigation, search

Results Example

The following program code demonstrates using the Results property:

   procedure TForm1.btnSendClick(Sender: TObject);
   begin
     {clears Results between calls}
     brkrRPCBroker1.ClearResults := True;
     
     {the following code returns a single value}
     brkrRPCBroker1.RemoteProcedure := 'SEND BACK SOME SINGLE VALUE';
     brkrRPCBroker1.Call;
     Label1.Caption := 'Value returned is: ' + brkrRPCBroker1.Results[0];
     
     {the following code returns several values}
     brkrRPCBroker1.RemoteProcedure := 'SEND BACK LIST OF VALUES';
     brkrRPCBroker1.Call;
     ListBox1.Items := RPCBroker.Results;
   end;