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:

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:

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]

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

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

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]

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.

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.