Jetter JVM-407B Betriebsanleitung Seite 244

10 Programmierung
244
Task TCPclient 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;
SendDelay := T#500ms;
// Alle Verbindungen schließen, Datenstrukturen initialisieren
ResConnInit := ConnectionInitialize();
If ResConnInit >=
Trace('Client running.$n');
While (True) Do
// Verbindungsversuch
ResConnCreate
If ResConnCreate >
Trace('Connection
// Rückgabewert (Handle) speichern
ConnHandle := ResConnCreate;
// Wiederholen, so lange die Verbindung besteht
Loop
ResConnSend := ConnectionSendData
If ResConnSend <
// Fehlerzähler inkrementieren
Inc(SendErrors);
0 Then
:= ConnectionCreate
( CONNTYPE_CLIENT,
IPTYPE_TCP,
TCP_ADDR,
TCP_PORT,
ConnTimeOut );
0 Then
established.');
( ConnHandle,
0,
0,
SendBuf,
AmountToReceive );
0 Then
Jetter AG