RPC HELP GetServerInfo Example
From VistApedia
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.