Hilfe

CopyStream

B2D B+ B3D

Aufruf

CopyStream quelle, ziel [, buffer]

Parameter

quelle Quell-Identität des Streams
ziel Ziel-Identität des Streams
buffer Buffergröße in Byte (Standard = 16384)


Rückgabewert

-


Beschreibung

Mit diesem Befehl kann man Daten von einem Stream zum anderen kopieren. Das Ganze funktioniert nur mit Netzwerk-Streams.


Beispiel

Dieses Beispiel schickt allen über Port 8080 eingehenden Verbindungen den Streaminhalt eines anderen Streams:

server = CreateTCPServer(8080)

While Not KeyHit(1)
   stream_in = AcceptTCPStream(server)

   If stream_in <> 0 And ReadAvail(stream_in) Then
      stream_out = OpenTCPStream("123.123.123.123", 80)
      If stream_out <> 0 Then RuntimeError("Verbindung konnte nicht hergestellt werden")

      While ReadAvail(stream_in)
         CopyStream(stream_in, stream_out)
      Wend

      CloseTCPStream stream_out
      CloseTCPStream stream_in
   End If

   Delay 10
Wend

Übersicht Netzwerk Allgemein