Wert=ACCEPTTCPSTREAM (Stream)


Beschreibungv1.52
Diese Funktion prüft, ob Daten über eine TCP/IP-Verbindung eingegangen sind. Falls irgendwelche Daten verfügbar sind, dann wird der Wert 1 zurückgeliefert, andernfalls aber 0. Der Parameter "Stream" kann nur mit CREATETCPSERVER ermittelt werden.


Parameter
Stream = Identität des Streams (ermittelt mit CREATETCPSERVER)


Rückgabewert
0 = Keine Daten eingelesen
1 = Daten eingelesen


Beispiel
Dieses Programm demonstriert die Kommunikation zwischen zwei Programmen über eine Netzwerkverbindung. Das Programm besteht aus zwei Teilen, die nur in zwei Programm-Instanzen gestartet werden können:

Erstes Programm:

svrGame=CREATETCPSERVER(8080)
IF svrGame<>0 THEN
   PRINT "Server erfolgreich gestartet"
ELSE
   PRINT "Server konnte nicht gestartet werden"
   END
END IF
WHILE NOT KEYHIT(1)
   strStream=ACCEPTTCPSTREAM(svrGame)
   IF strStream THEN
      PRINT READSTRING$(strStream)
      DELAY 2000
      END
   ELSE
      PRINT "Keine Daten mehr..."
      DELAY 1000
   END IF
WEND
CLOSETCPSERVER svrGame
END


Zweites Programm:

strmGame=OPENTCPSTREAM("127.0.0.1",8080)
IF strmGame<>0 THEN
   PRINT "Client erfolgreich verbunden"
ELSE
   PRINT "Konnte keine Verbindung herstellen"
   WAITKEY
   END
END IF
WRITESTRING strmGame,"Dieser Text wird übermittelt..."
PRINT "Daten gesendet..."
CLOSETCPSTREAM strmGame
END


Siehe auch
CREATETCPSERVER, CLOSETCPSERVER