Jetter JVM-407B Betriebsanleitung Seite 241

JVM-407B
Jetter AG
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;
// Hier ist die Stelle, um die Server-Funktion zu implementieren.
// In diesem Beispiel senden wir einfach die empfangenen Daten
// zurück.
If ReceiveCnt
// Daten von Empfangspuffer in Sendepuffer kopieren
MemCopy(SendBuf,RecvBuf,SizeOf(SendBuf));
ResConnSend := ConnectionSendData
If ResConnSend <
// Fehlerzähler inkrementieren
Inc(SendErrors);
End_If;
End_If;
If ResConnSend >=
// Kein Fehler --> Zähler OK inkrementieren
Inc(CommCnt);
Else
// Schleife verlassen
Exit;
End_If;
End_Loop;
TimerEnd(RecvTimer)
( ConnHandle,
NotUsed,
NotUsed,
RecvBuf[ReceiveCnt],
SizeOf(RecvBuf),
RecvTimeOut );
0 Then
Then
( ConnHandle,
0,
0,
SendBuf,
ReceiveCnt );
0 Then
0 And ResConnReceive >=
Programmierung
Do
0 Then
241