RPC HELP GetServerInfo Example: Difference between revisions
From VistApedia
Jump to navigationJump to search
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.
