RPC HELP GetServerInfo Example

From VistApedia
Revision as of 17:11, 5 July 2015 by Kdtop (talk | contribs) (Created page with "<h2>GetServerInfo Example</h2> The following is example of the GetServerInfo function: '''procedure''' TForm1.btnConnectClick(Sender: TObject); '''var''' strSer...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search

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.