Refactored process proc queue service to handle more throughput. Fixed Metrology_Services import CDE qual service.
This commit is contained in:
@ -300,18 +300,10 @@ return
|
||||
SendCommand:
|
||||
|
||||
// Call the SRPEngineService and pass it the command
|
||||
Server = Environment_Services('GetServer')
|
||||
TCPServerSettings@ = Environment_Services('GetApplicationRootIP')
|
||||
Convert '\\' to '' in TCPServerSettings@
|
||||
// Get the port from the SRPEngineServer.ini file instead.
|
||||
FilePath = Drive():'\SRPEngineServer.ini'
|
||||
OSRead IniFile from FilePath then
|
||||
CharIndex = Index(IniFile, 'Port', 1)
|
||||
Line = IniFile[CharIndex, 'F':CRLF$]
|
||||
Port = Trim(Line[-1, 'B='])
|
||||
TCPServerSettings@<2> = Port
|
||||
end
|
||||
|
||||
Server = Environment_Services('GetServer')
|
||||
TCPServerSettings@ = Environment_Services('GetApplicationRootIP')
|
||||
Convert '\\' to '' in TCPServerSettings@
|
||||
TCPServerSettings@<2> = Environment_Services('GetServiceManagerPort')
|
||||
TcpClientHandle = 0
|
||||
If SRP_TcpClient(TcpClientHandle, 'CONNECT', TCPServerSettings@<1>, TCPServerSettings@<2>) then
|
||||
SRP_TcpClient(TcpClientHandle, 'SEND_SES', Command)
|
||||
|
Reference in New Issue
Block a user