Jetter JVM-407B Betriebsanleitung Seite 240

10 Programmierung
240
Task TCPserver Autorun
Var
RecvTimer : Timer;
ReceiveCnt : Int;
End_Var;
// Timeout einer Verbindung
ConnTimeOut := T#5s;
// Timeout während des Empfangs eines Datenpakets
RecvTimeOut := T#5s;
// Anzahl der zu empfangenden Daten
AmountToReceive := MSG_LEN;
// Alle Verbindungen schließen, Datenstrukturen initialisieren
ResConnInit := ConnectionInitialize();
If ResConnInit >=
Trace('Server running.$n');
While (True) Do
// Verbindungsversuch
ResConnCreate := ConnectionCreate
If ResConnCreate >
Trace('Connection
// Rückgabewert (Handle) speichern
ConnHandle := ResConnCreate;
// Wiederholen, so lange die Verbindung besteht
Loop
// 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
0 Then
( CONNTYPE_SERVER,
IPTYPE_TCP,
0,
TCP_PORT,
ConnTimeOut );
0 Then
established.');
Jetter AG