Omron Sysmac NX1P2-10 1 Series, User Manual

Page: 378 / 578

SktGetTCPStatus_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 : // Connection request
SktTCPConnect_instance(
Execute :=TRUE,
SrcTcpPort :=UINT#0, // Local TCP port number
: Automatically assigned
DstAdr :='192.168.250.2', // Remote IP address
DstTcpPort :=UINT#6000, // Destination TCP port
number
Socket =>WkSocket); // Socket
IF (SktTCPConnect_instance.Done=TRUE) THEN
Stage :=INT#2; // Normal end
ELSIF (SktTCPConnect_instance.Error=TRUE) THEN
Stage :=INT#10; // Error end
END_IF;
2 : // Receive buffer clear
SktClearBuf_instance(
Execute :=TRUE,
Socket :=WkSocket); // Socket
IF (SktClearBuf_instance.Done=TRUE) THEN
Stage :=INT#3; //Normal end
ELSIF (SktClearBuf_instance.Error=TRUE) THEN
Stage :=INT#20; //Error end
END_IF;
3 : // Status read request
SktGetTCPStatus_instance(
Execute :=TRUE,
Socket :=WkSocket); // Socket
IF (SktGetTCPStatus_instance.Done=TRUE) THEN
Stage :=INT#4; // Normal end
ELSIF (SktGetTCPStatus_instance.Error=TRUE) THEN
9 Socket Service
9-24
NJ/NX-series CPU Unit Built-in EtherNet/IP Port User’s Manual (W506)