Library: TCP/IP client and server support (OMTCP)
Import : omtcp.xmd
define external tcp.connection function tcp.accept-connection from value tcp.service service
Use tcp.accept-connection in a server program to accept incoming client-initiated service requests. The function returns a tcp.connection OMX component.
service must have been previously created and must exist (else external exception TCP05).
External exception TCP10 is thrown if an error occurs while the connection request is being accepted. The message supplied with the exception contains the error code from the operating system for the error that occurred.
In this example a variable of type tcp.service was declared. For the service to be destroyed the variable must either go out of scope or be explicitly destroyed with tcp.destroy-service.
import "omtcp.xmd" prefixed by tcp. process local tcp.service omdemo-service local tcp.connection client set omdemo-service to tcp.create-service on 5600 repeat set client to tcp.accept-connection from omdemo-service ;process request again
In this example no tcp.service type variable was declared. The only way for the service to be destroyed is for the service to go out of scope.
import "omtcp.xmd" prefixed by tcp. process local tcp.connection client repeat set client to tcp.accept-connection from tcp.create-service on 5600 ;process request again