Omron Sysmac NY512-1300, User Manual

Page: 281 / 460

9-23
9 Socket Service
NY-series Industrial Panel PC / Industrial Box PC Built-in EtherNet/IP Port User’s Manual (W563)
9-
6 Det
ails on
Usin
g t
h
e Soc
ket Services
9
9-6-
4 UDP Sample Pro
gramming
2 : // Request receiving data.
SktUDPRcv_instance(
Execute :=TRUE,
Socket :=WkSocket, // Socket
TimeOut :=UINT#0, // Timeout value
Size :=UINT#2000, // Receive data size
RcvDat :=RcvSocketDat[0]); // Receive data
IF (SktUDPRcv_instance.Done=TRUE) THEN
Stage :=INT#3; // Normal end
ELSIF (SktUDPRcv_instance.Error=TRUE) THEN
Stage :=INT#20; // Error end
END_IF;
3 : // Send request
WkSocket.DstAdr.PortNo:=UINT#6000;
WkSocket.DstAdr.IpAdr :='192.168.250.1';
SktUDPSend_instance(
Execute :=TRUE,
Socket :=WkSocket, // Socket
SendDat :=SendSocketDat[0], // Send data
Size :=UINT#2000); // Send data size
IF (SktUDPSend_instance.Done=TRUE) THEN
Stage :=INT#4; // Normal end
ELSIF (SktUDPSend_instance.Error=TRUE) THEN
Stage :=INT#30; // Error end
END_IF;
4 : // Request closing data.
SktClose_instance(
Execute :=TRUE,
Socket :=WkSocket); // Socket
IF (SktClose_instance.Done=TRUE) THEN
Stage :=INT#0; // Normal end
ELSIF (SktClose_instance.Error=TRUE) THEN
Stage :=INT#40; // Error end
END_IF;
0 : // Normal end
DoSendAndRcv:=FALSE;
Trigger
:=FALSE;
ELSE // Interrupted by error.
DoSendAndRcv:=FALSE;
Trigger
:=FALSE;
END_CASE;
END_IF;