Jetter JVM-407 Betriebsanleitung Seite 291

JVM-407
Jetter AG
Var
RecvTimer : Timer;
ReceiveCnt : Int;
End_Var;
// connection timeout
ConnTimeOut := T#5s;
// receiption timeout
RecvTimeOut := T#5s;
// expected amount of data to receive
AmountToReceive := MSG_LEN;
SendDelay := T#500ms;
// close all connections, init. data structures
ResConnInit := ConnectionInitialize();
If ResConnInit >= 0
Trace('Client running.$n');
While (True) Do
// try to connect
ResConnCreate
If ResConnCreate >
Trace('Connection
// save connection handle
ConnHandle := ResConnCreate;
// loop, as long as connection established
Loop
ResConnSend := ConnectionSendData
If ResConnSend <
// increment error counter
Inc(SendErrors);
End_If;
Then
:= ConnectionCreate
( CONNTYPE_CLIENT,
IPTYPE_TCP,
TCP_ADDR,
TCP_PORT,
ConnTimeOut );
0 Then
established.');
( ConnHandle,
0,
0,
SendBuf,
AmountToReceive );
0 Then
Programmierung
291