Difference between revisions of "RPC HELP GetServerInfo Example"
From VistApedia
(Created page with "<h2>GetServerInfo Example</h2> The following is example of the GetServerInfo function: '''procedure''' TForm1.btnConnectClick(Sender: TObject); '''var''' strSer...") |
(No difference)
|
Latest revision as of 17:11, 5 July 2015
GetServerInfo Example
The following is example of the GetServerInfo function:
procedure TForm1.btnConnectClick(Sender: TObject); var strServer, strPort: string; begin if GetServerInfo(strServer, strPort)<> mrCancel then begin {getsvrinfo begin} brkrRPCBroker1.Server := strServer; brkrRPCBroker1.ListenerPort := StrToInt(strPort); brkrRPCBroker1.Connected := True; {getsvrinfo end} end; end;
For a demonstration using the Broker and GetServerInfo function, please run the BrokerExample.EXE located in the ..\BDK32\Samples\BrokerEx directory.