Asynchronous Operator | TCP | Serialization

[Guest Arsium]

Hello dear Sirs,

 

I need your help to make my server and client asynch.

 

 

Here is the code

 

Dll to serialize :

 

Public Class Class1

<Serializable()>

Public Class PacketMaker

Public Property File As Byte()

Public Property Type_Packet As PacketType

End Class

Public Enum PacketType As Integer

MSG = &H5057

File = &H5056

End Enum

End Class

 

 

 

 

Server :

 

Imports System.Net

Imports System.Net.Sockets

Imports System.Runtime.Serialization.Formatters.Binary

Imports System.Text

Imports System.Threading

Imports ClassLibrary1.Class1

Public Class Form1

Public T As TcpListener = New TcpListener(IPAddress.Any, 8080)

Private client As TcpClient

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

T.Start()

Task.Run(Sub() D())

End Sub

Public Sub D()

While True

client = T.AcceptTcpClient()

Task.Run(Sub() ThreadProc2(client))

 

Task.Run(Sub() ThreadProc(client))

 

End While

End Sub

 

Private Sub ThreadProc(ByVal obj As Object)

Dim client = CType(obj, TcpClient)

Dim B As BinaryFormatter = New BinaryFormatter()

Dim p As PacketMaker = New PacketMaker()

p.Type_Packet = PacketType.MSG

p.File = IO.File.ReadAllBytes("File1.zip")

B.Serialize(client.GetStream(), p)

End Sub

 

Private Sub ThreadProc2(ByVal obj As Object)

Dim client = CType(obj, TcpClient)

Dim B As BinaryFormatter = New BinaryFormatter()

Dim p As PacketMaker = New PacketMaker()

p.Type_Packet = PacketType.File

p.File = IO.File.ReadAllBytes("File2.zip")

B.Serialize(client.GetStream(), p)

 

End Sub

 

End Class

 

 

Client :

 

Imports System.Net

Imports System.Net.Sockets

Imports System.Runtime.Serialization.Formatters.Binary

Imports ClassLibrary1.Class1

 

Public Class Form1

Private T As TcpClient = New TcpClient()

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim address As String = "192.168.0.15"

T.Connect(IPAddress.Parse(address), 8080)

Dim N As NetworkStream = T.GetStream()

Task.Run(Sub() R(N))

End Sub

Public Sub R(ByVal L As NetworkStream)

Dim sf As BinaryFormatter = New BinaryFormatter()

 

While True

 

Dim po As PacketMaker = CType(sf.Deserialize(L), PacketMaker)

 

 

IO.File.WriteAllBytes(po.Type_Packet.ToString(), po.File)

End While

End Sub

 

 

End Class

 

 

The server send 2 files and client need to receive them but here nothing is happening. No file is written (MSG & FILE). The only way to avoid problem I have found is to set a synclock here :

 

Private Sub ThreadProc(ByVal obj As Object)

 

SyncLock T

 

Dim client = CType(obj, TcpClient)

Dim B As BinaryFormatter = New BinaryFormatter()

Dim p As PacketMaker = New PacketMaker()

p.Type_Packet = PacketType.MSG

p.File = IO.File.ReadAllBytes("File1.zip")

B.Serialize(client.GetStream(), p)

End SyncLock

End Sub

 

Private Sub ThreadProc2(ByVal obj As Object)

 

SyncLock T

 

Dim client = CType(obj, TcpClient)

Dim B As BinaryFormatter = New BinaryFormatter()

Dim p As PacketMaker = New PacketMaker()

p.Type_Packet = PacketType.File

p.File = IO.File.ReadAllBytes("File2.zip")

B.Serialize(client.GetStream(), p)

 

End SyncLock

 

End Sub

 

Continue reading...