Omron Sysmac NY512-1300, User Manual

Page: 286 / 460

9 Socket Service
9-28 NY-series Industrial Panel PC / Industrial Box PC Built-in EtherNet/IP Port User’s Manual (W563)
// Start sequence when Trigger changes to TRUE.
IF ((Trigger=TRUE) AND (DoTCP=FALSE) AND (_EIP_EtnOnlineSta=TRUE)) THEN
DoTCP :=TRUE;
Stage :=INT#1;
SktTCPAccept_instance(Execute:=FALSE); // Initialize instance.
SktTCPSend_instance( // Initialize instance.
Execute :=FALSE,
SendDat :=SendSocketDat[0]); // Dummy
SktTCPRcv_instance( // Initialize instance.
Execute :=FALSE,
RcvDat :=RcvSocketDat[0]); // Dummy
SktClose_instance(Execute:=FALSE); // Initialize instance.
END_IF;
IF (DoTCP=TRUE) THEN
CASE Stage OF
1 :
// Request accepting a socket connection.
SktTCPAccept_instance(
Execute :=TRUE,
SrcTcpPort:=UINT#6000, // Local TCP port number
TimeOut :=UINT#0, // Timeout value
Socket =>WkSocket); // Socket
IF (SktTCPAccept_instance.Done=TRUE) THEN
Stage :=INT#2; // Normal end
ELSIF (SktTCPAccept_instance.Error=TRUE) THEN
Stage :=INT#10; // Error end
END_IF;
2 : // Request reception.
SktTCPRcv_instance(
Execute :=TRUE,
Socket :=WkSocket, // Socket
TimeOut :=UINT#0, // Timeout value
Size :=UINT#2000, // Receive data size
RcvDat :=RcvSocketDat[0]); // Receive data
IF (SktTCPRcv_instance.Done=TRUE) THEN
Stage :=INT#3; // Normal end
ELSIF (SktTCPRcv_instance.Error=TRUE) THEN
Stage :=INT#20; // Error end
END_IF;