RPC HELP TRPCBroker Socket Example: Difference between revisions
From VistApedia
Jump to navigationJump to search
Created page with "<h2>Socket Example</h2> The following program code populates the Socket property with the active port on the VistA M Server: '''function''' ExistingSocket(Broker: TRPCBr..." |
(No difference)
|
Revision as of 20:35, 4 July 2015
Socket Example
The following program code populates the Socket property with the active port on the VistA M Server:
function ExistingSocket(Broker: TRPCBroker): integer;
var
Index: integer;
begin
Result := 0;
if Assigned(BrokerConnections) and
BrokerConnections.Find(Broker.Server + ':' + IntToStr(Broker.ListenerPort), Index) then
Result := TRPCBroker(BrokerConnections.Objects[Index]).Socket;
end;
