Jetter JVM-407 Betriebsanleitung Seite 288

11 Programmierung
288
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;
// here is the point to implement the server function;
// in this example we simply return the received data
If ReceiveCnt Then
// copy from receive to send buffer
MemCopy(SendBuf,RecvBuf,SizeOf(SendBuf));
ResConnSend := ConnectionSendData
If ResConnSend <
// increment error counter
Inc(SendErrors);
End_If;
End_If;
If ResConnSend >=
// no error --> increment OK counter
Inc(CommCnt);
Else
// leave loop
Exit;
End_If;
End_Loop;
If ConnHandle > 0 Then
// close connection
ConnectionDelete(ConnHandle);
// no longer valid
ConnHandle := 0;
Trace('Connection
End_If;
RecvBuf[ReceiveCnt],
SizeOf(RecvBuf),
RecvTimeOut );
0 Then
( ConnHandle,
0,
0,
SendBuf,
ReceiveCnt );
0 Then
0 And ResConnReceive >=
closed.$n');
0 Then
Jetter AG