Extract Bytes Sent To Server via TCP?

quddusaliquddus

Hi :D.
I have a simple client and a simple server program. I am sending a byte array to the server from the client.

I am having difficulty extracting the byte data sent to the server program.

Server:

Expand|Select|Wrap|Line Numbers

 
Imports System.Net.Sockets

Imports System.Threading

Imports System.IO

Imports System.Net
 
Module Module1
 
    Dim IPA As IPAddress = IPAddress.Parse("192.168.1.65")

    Dim Listener As New TcpListener(IPA, 65535)

    Dim Client As New TcpClient

    Dim Message As String = ""
 
    Sub Main()
 
        Listener.Start()
 
        While Listener.Pending = False
 
            Message = ""
 
            Client = Listener.AcceptTcpClient()
 
            'Create Stream to Read and Write to

            Dim Stream As NetworkStream = Client.GetStream()
 
            Dim Reader As New StreamReader(Stream)
 
            'While Reader.Peek > -1

            '    Message = Message + Convert.ToChar(Reader.Read()).ToString

            'End While
 
            'Console.WriteLine(Message)
 
            Dim BReader As New BinaryReader(Stream)
 
            'BReader.ReadByte()
 
            Dim data As Byte() = System.Text.Encoding.ASCII.GetBytes(BReader.ReadString)
 
            Console.WriteLine(data)

            Console.WriteLine("<<")
 
End Sub
 
End Module

Client:

Expand|Select|Wrap|Line Numbers

 
Imports System.Net.Sockets

Imports System.Threading

Imports System.IO

Imports System.Net
 
Class Window1
 
    Dim Listener As New TcpListener(65534)

    Dim Client As New TcpClient

    Dim Message As String = ""
 
    Private Sub Window1_Loaded(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles Me.Loaded
 
        Dim ListThread As New Thread(New ThreadStart(AddressOf Listening))

        ListThread.Start()
 
    End Sub
 
    Sub Listening()
 
        Listener.Start()
 
        While Listener.Pending = False
 
            Message = ""
 
            Client = Listener.AcceptTcpClient()
 
            'Create Stream to Read and Write to

            Dim Stream As NetworkStream = Client.GetStream()
 
            Dim Reader As New StreamReader(Stream)
 
            While Reader.Peek > -1

                Message = Message + Convert.ToChar(Reader.Read()).ToString

            End While
 
        End While
 
    End Sub
 
    Sub SendData()
 
        Client = New TcpClient("192.168.1.65", 65535)
 
        Dim Writer As New StreamWriter(Client.GetStream())
 
        Dim X As Byte
 
        Dim XYZ() As Byte = New Byte(2) {}
 
        X = 25
 
        XYZ(0) = 1

        XYZ(1) = 2

        XYZ(2) = 3
 
        Writer.Write(XYZ)
 
        Writer.Flush()
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button1.Click
 
        SendData()
 
    End Sub
 
End Class

My intent is to send packets of data to and from the Server and Client.

tlhintoq

Quote:

I am having difficulty extracting the byte data sent to the server program.

Could you be a bit less vague?
You are getting exception errors?
You are getting communication but don't know how to translate the byte data back to readable text?
You are getting one way communication?

A lot of things look a little 'off' to me, but maybe that's because VB isn't my chosen language.
Both server and client are talking to 192.168.1.65
You have a byte array of {1,2,3} that I think you are trying to turn into characters, but those are not visible characters:
ascii 1 = start of heading
ascii 2 = start of text
ascii 3 = end of text
I can't see as the byte x (set to 25) has any purpose or is being used.

quddusaliquddus

Ive managed to get it working with the following:

Listener

Expand|Select|Wrap|Line Numbers

 
Sub Main()

        Listener.Start()

        While Listener.Pending = False

            Client = Listener.AcceptTcpClient()

            Dim Stream As NetworkStream = Client.GetStream()

            Dim data As Byte() = New [Byte](256) {}

            Dim bytes As Int32 = Stream.Read(data, 0, data.Length)

            If data(0) = 1 Then Console.WriteLine("1")

        End While

    End Sub

SendData

Expand|Select|Wrap|Line Numbers

 
Sub SendData()

        Client = New TcpClient("127.0.0.1", 65535)

        Dim s = Client.GetStream()

        Dim XYZ As Byte() = New Byte(2) {}

        XYZ(0) = 1

        XYZ(1) = 2

        XYZ(2) = 3

        s.Write(XYZ, 0, XYZ.Length)

        s.Close()

        Client.Close()

    End Sub

But I have to send the data twice for it to show up in the server.

tlhintoq

Quote:

But I have to send the data twice for it to show up in the server.

Does it show up twice at the receiving end?
Are you even sure about what you are receiving? Because it looks like you only confirm the first byte.

Expand|Select|Wrap|Line Numbers

If data(0) = 1 Then Console.WriteLine("1")

Perhaps you should output everything you receive to the console so you can be certain of what you receive. Then once you know what you are getting, you can start adding qualifications on it.

quddusaliquddus

Basically (even without the qualifications) on my first send, nothing shows up in the console at the server end. Then on my second send the expected data shows up.

Plater

I was going to say, if you want bytes, StreamReader was the wrong object to use

quddusaliquddus

What would u recommend?

Plater

Any Stream object should be fine, using NetworkStream (the actual object) is more then good.

Extract Bytes Sent To Server via TCP?

re: Extract Bytes Sent To Server via TCP?

re: Extract Bytes Sent To Server via TCP?

re: Extract Bytes Sent To Server via TCP?

re: Extract Bytes Sent To Server via TCP?

re: Extract Bytes Sent To Server via TCP?

re: Extract Bytes Sent To Server via TCP?

re: Extract Bytes Sent To Server via TCP?

Similar Visual Basic .NET bytes

/bytes/development

/bytes/it

/bytes/about