Hi,
hier mal wieder eine Frage, die bestimmt mit 2 Zeilen zu lösen ist.
Die Frage ist nur, welche...
Ich möchte zwischen einem TcpClient und TpcListener Daten austauschen.
Hier das, was ich schonmal habe :
TcpClient:
-------------------
Module Main
Dim timeStream As Stream
Dim c As New TcpClient("s054m010",13)
Sub Main()
timeStream = c.GetStream
End Sub
End Module
TcpListener
-------------------
Module Module1
Dim listener As New TcpListener(13)
Dim dataSocket As Socket
Dim timeClient As TcpClient
Dim strdata As String
Dim byteData As Byte()
Sub Main()
listener.Start()
Do While True
dataSocket = listener.AcceptSocket
strdata = "Irgendwas zum Verschicken"
byteData = Encoding.ASCII.GetBytes(strdata.ToCharArray())
dataSocket.Send(byteData, byteData.Length, SocketFlags.None)
Loop
End Sub
Die Frage ist jetzt, wie kann ich auf strData vom Client aus wieder zugreifen ?
z.B. über Console.WriteLine ()
Danke für Eure Hilfe
Christian
hier mal wieder eine Frage, die bestimmt mit 2 Zeilen zu lösen ist.
Die Frage ist nur, welche...
Ich möchte zwischen einem TcpClient und TpcListener Daten austauschen.
Hier das, was ich schonmal habe :
TcpClient:
-------------------
Module Main
Dim timeStream As Stream
Dim c As New TcpClient("s054m010",13)
Sub Main()
timeStream = c.GetStream
End Sub
End Module
TcpListener
-------------------
Module Module1
Dim listener As New TcpListener(13)
Dim dataSocket As Socket
Dim timeClient As TcpClient
Dim strdata As String
Dim byteData As Byte()
Sub Main()
listener.Start()
Do While True
dataSocket = listener.AcceptSocket
strdata = "Irgendwas zum Verschicken"
byteData = Encoding.ASCII.GetBytes(strdata.ToCharArray())
dataSocket.Send(byteData, byteData.Length, SocketFlags.None)
Loop
End Sub
Die Frage ist jetzt, wie kann ich auf strData vom Client aus wieder zugreifen ?
z.B. über Console.WriteLine ()
Danke für Eure Hilfe
Christian