How to send and receive structure, string, interger data via TCPsocket?

Question

0.00/5 (No votes)

See more:

I am going to develop a socket server and clients for data communication. The socket server and clients has developed with TCPListener / TCPClient.

Following code has prepared for the string data, but i don't have experience on the structure data. Please help

VB

Public Sub doSendMsg(ByVal Msg As String)
        Try
            Dim sendBytes As [Byte]()
            Dim networkStream As NetworkStream = clientSocket.GetStream()
            sendBytes = Encoding.ASCII.GetBytes(Msg)
            networkStream.Write(sendBytes, 0, sendBytes.Length)
            networkStream.Flush()
        Catch ex As Exception
            Dim sf As StackFrame = New StackFrame
            Dim mb As MethodBase = sf.GetMethod
            Console.WriteLine(mb.Name & " Failure : " & ex.Message)
        End Try
End Sub

Posted 27-Oct-11 5:09am

PennyLi

Updated 27-Oct-11 6:22am

Richard MacCutchan

v2

Add a Solution

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Richard MacCutchan · Answer 1 · 2011-10-27T06:25:00

Solution 1

You probably need to use Serialization[^] to convert your object(s) into byte streams.

Posted 27-Oct-11 6:25am

Richard MacCutchan

Comments

Sergey Alexandrovich Kryukov 27-Oct-11 12:53pm

This is the way, my 5.
--SA

Richard MacCutchan 27-Oct-11 12:59pm

Thanks again; it's interesting how much one can learn by reading questions and other peoples' answers.

PennyLi · Answer 2 · 2011-10-27T17:59:00

Many thanks for your hints. I have tried, it works.

However, I face the other problem is that

[Structure]

Structure CSLM02_UserLoginInfo
        Public UserName As String
        Public Password As String
    End Structure

[Client]

Public Function send_socket(ByVal sendStructure As CSLM02_UserLoginInfo) As Boolean
        Try
            Dim networkStream As NetworkStream = serverTCPClient.GetStream()
            Dim formatter As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
            formatter.Serialize(networkStream, sendStructure)
            Return True
        Catch ex As Exception
            Console.WriteLine(ex.Message.ToString)
            Return False
        End Try
    End Function

[Server]

Public Sub run_clientSocketThread()
            Try
                While True
                    Try
                        If clientSocketTcpClient.Available > 0 Then
                            Try
                                Dim stream As NetworkStream = clientSocketTcpClient.GetStream
                                Console.WriteLine("clientSocket.Available > 0 : " & clientSocketTcpClient.Available.ToString)
                                Dim numberOfBytesRead As Integer = 0
                                Dim byteReceived As Byte()
                                ReDim byteReceived(clientSocketTcpClient.Available - 1)
                                stream.Read(byteReceived, 0, clientSocketTcpClient.Available)
                                Dim formatter As IFormatter = New BinaryFormatter
                                Dim data As CSLM02_UserLoginInfo = CType(formatter.Deserialize(stream), CSLM02_UserLoginInfo)
                                Dim dataType As System.Type = data.GetType
                                Console.WriteLine("Data Received" & vbCrLf & "User : " & data.UserName.ToString & vbCrLf & "Pass : " & data.Password)
                            Catch ex As Exception
                                Console.WriteLine(ex.Message.ToString)
                            End Try
                        Else
                            Thread.Sleep(1000)
                        End If
                    Catch ex As Exception
                        Console.WriteLine(ex.Message.ToString)
                    End Try
                End While
            Catch ex As Exception
                Console.WriteLine(ex.Message.ToString)
            End Try
        End Sub

[Result]
I keep send the [user1,pass1], [user2,pass2], [user3,pass3] ...etc,
the TCPServer keep received the data from the network stream and tried to handle in
Dim data As CSLM02_UserLoginInfo = CType(formatter.Deserialize(stream), CSLM02_UserLoginInfo)

However, I missed some data even the network stream received the [user1,pass1], [user3,pass3],...etc. What do i get from the server result as below. May I know any thing wrong in my code?

clientSocket.Available > 0 : 215
Data Received
User : user2
Pass : pass2
clientSocket.Available > 0 : 215
Data Received
User : user4
Pass : pass4
clientSocket.Available > 0 : 215
Data Received
User : user6
Pass : pass6
clientSocket.Available > 0 : 215
Data Received
User : user8
Pass : pass8
clientSocket.Available > 0 : 215
Data Received
User : user10
Pass : pass10