tcp stream VB.Net

Eragøn · 02/23/2012, 23:15

hallo,
ich hab ein problem mit meinem tcp stream.
der tcp streak leuft
wie kann ich einen string senden?

mein jetziger code geht leider nicht:

Beim Client:

Code:

Dim sendtest As [Byte]() = Encoding.ASCII.GetBytes("test")
                networkStream.Write(sendtest, 0, sendtest.Length)

Beim Server:

Code:

   Dim bytes1(tcpClient.ReceiveBufferSize) As Byte
            networkStream.Read(bytes1, 0, CInt(tcpClient.ReceiveBufferSize))
            Dim testdata As String = Encoding.ASCII.GetString(bytes1)
            If testdata = "test" Then
                MsgBox("Test erfolgreich")
           

            End If

Das senden klappt nur das aufnehmen iwie nicht

Deathy · 02/24/2012, 22:04

Servus,
Mach da mal ein array draus.

Code:

Dim bytes1(tcpClient.ReceiveBufferSize) [COLOR="Red"]As Byte[/COLOR]
            networkStream.Read(bytes1, 0, CInt(tcpClient.ReceiveBufferSize))
            Dim testdata As String = Encoding.ASCII.GetString(bytes1)
            If testdata = "test" Then
                MsgBox("Test erfolgreich")
           

            End If

Code:

Dim bytes1(tcpClient.ReceiveBufferSize) As Byte()

Eragøn · 02/29/2012, 18:55

Quote:

Originally Posted by Deathy

Servus,
Mach da mal ein array draus.

Code:

Dim bytes1(tcpClient.ReceiveBufferSize) [COLOR="Red"]As Byte[/COLOR]
            networkStream.Read(bytes1, 0, CInt(tcpClient.ReceiveBufferSize))
            Dim testdata As String = Encoding.ASCII.GetString(bytes1)
            If testdata = "test" Then
                MsgBox("Test erfolgreich")
           

            End If

Code:

Dim bytes1(tcpClient.ReceiveBufferSize) As Byte()

Dein code verstehe ich nich lo, da wird ja nur EMPFANGEN ???

Deathy · 03/03/2012, 09:54

Quote:

Originally Posted by Eragøn

Dein code verstehe ich nich lo, da wird ja nur EMPFANGEN ???

Ohne deinen Code zu testen ist mir beim lesen halt aufgefallen das du an der besagten stelle ein Byte Array in eine Byte Variable/Rückgabewert schreibst?