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 edit summary |
||
| Line 8: | Line 8: | ||
'''begin''' | '''begin''' | ||
Result := 0; | Result := 0; | ||
'''if''' Assigned(BrokerConnections) and | '''if''' Assigned(BrokerConnections) '''and''' | ||
BrokerConnections.Find(Broker.Server + ':' + IntToStr(Broker.ListenerPort), Index) '''then''' | BrokerConnections.Find(Broker.Server + ':' + IntToStr(Broker.ListenerPort), Index) '''then''' | ||
Result := TRPCBroker(BrokerConnections.Objects[Index]).Socket; | Result := TRPCBroker(BrokerConnections.Objects[Index]).Socket; | ||
'''end;''' | '''end;''' | ||
Latest 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;
