tcp stream VB.Net

02/23/2012 23:15 Erag�n#1

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

02/24/2012 22:04 Deathy#2

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()

02/29/2012 18:55 Erag�n#3

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 ???

03/03/2012 09:54 Deathy#4

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?