Jetter JVM-407B Betriebsanleitung Seite 245

JVM-407B
Jetter AG
End_If;
// Timeout für die komplette Übertragung des Datenpakets
// einrichten
TimerStart(RecvTimer, RecvTimeOut * 5);
// Zähler für die empfangenen Daten initialisieren
ReceiveCnt := 0;
// Wiederholen, bis alle erwarteten Daten empfangen wurden.
// Andernfalls wiederholen, bis ein Timeout auftritt.
While ReceiveCnt < AmountToReceive
And Not
ResConnReceive := ConnectionReceiveData
If ResConnReceive >
// Etwas wurde empfangen, Zähler inkrementieren
ReceiveCnt := ReceiveCnt + ResConnReceive;
Else
// Fehler beim Empfangen
ResConnReceive := -1;
// Fehlerzähler inkrementieren
Inc(RecvErrors);
// Schleife verlassen
Exit;
End_If;
End_While;
If ResConnSend >=
// Kein Fehler --> Zähler OK inkrementieren
Inc(CommCnt);
Delay(SendDelay);
Else
// Schleife verlassen
Exit;
End_If;
End_Loop;
If ConnHandle >
// Verbindung schließen
ConnectionDelete(ConnHandle);
// Handle nicht länger gültig
ConnHandle := 0;
Trace('Connection
TimerEnd(RecvTimer)
( ConnHandle,
NotUsed,
NotUsed,
RecvBuf[ReceiveCnt],
SizeOf(RecvBuf),
RecvTimeOut );
0 Then
0 And ResConnReceive >=
0 Then
closed.$n');
Programmierung
Do
0 Then
245