Jetter JVM-407 Betriebsanleitung Seite 292

11 Programmierung
292
// timeout for the complete data packet
TimerStart(RecvTimer, RecvTimeOut * 5);
// init. receive data counter
ReceiveCnt := 0;
// loop until all expected data received or timeout
While ReceiveCnt < AmountToReceive
And Not TimerEnd(RecvTimer)
ResConnReceive := ConnectionReceiveData
If ResConnReceive >
// something received, increment counter
ReceiveCnt := ReceiveCnt + ResConnReceive;
Else
// error on receive
ResConnReceive := -1;
// increment error counter
Inc(RecvErrors);
// leave loop
Exit;
End_If;
End_While;
If ResConnSend >=
// no error --> increment OK counter
Inc(CommCnt);
Delay(SendDelay);
Else
// leave loop
Exit;
End_If;
End_Loop;
If ConnHandle > 0
// close connection
ConnectionDelete(ConnHandle);
// no longer valid
ConnHandle := 0;
Trace('Connection
End_If;
End_If;
Do
( ConnHandle,
NotUsed,
NotUsed,
RecvBuf[ReceiveCnt],
SizeOf(RecvBuf),
RecvTimeOut );
0 Then
0 And ResConnReceive >=
Then
closed.$n');
0 Then
Jetter AG