Jetter JVM-407B-HMI, Руководство пользователя

Страница: 244 / 300

244 Jetter AG
10 Programming
Task TCPclient Autorun
Var
RecvTimer : Timer;
ReceiveCnt : Int;
End_Var ;
// Timeout for connection
ConnTimeOut := T#5s ;
// Timeout via receiving a data package
RecvTimeOut := T#5s ;
// Amount of data to be received
AmountToReceive := MSG_LEN;
SendDelay :=
T#500ms ;
// Terminate all connections, initialize the data structures
ResConnInit := ConnectionInitialize();
If ResConnInit >= 0 Then
Trace(
'Client running.$n' );
While ( True ) Do
// Connection attempt
ResConnCreate := ConnectionCreate
( CONNTYPE_CLIENT,
IPTYPE_TCP,
TCP_ADDR,
TCP_PORT,
ConnTimeOut );
If ResConnCreate > 0 Then
Trace(
'Connection established.' );
// Save the return value (handle)
ConnHandle := ResConnCreate;
// Repeat, while the connection exists
Loop
ResConnSend := ConnectionSendData
( ConnHandle,
0 ,
0 ,
SendBuf,
AmountToReceive );