Ho un semplice server che gira sotto tcp,
Il client si connette e invia al server, quello che voglio fare è, mostrare l'avanzamento dei byte ricevuti(che ricevo correttamente) lato server, il codice è in un modulo:
Codice PHP:
Sub Listen()
' Dim localAddress As IPAddress = IPAddress.Any
' Dim port As Integer = 8080
tcpListener.Start()
tcpClient = tcpListener.AcceptTcpClient()
If IO.File.Exists(Application.StartupPath + "\DB\DBISO1.accdb") Then IO.File.Delete(Application.StartupPath + "\DB\DBISO1.accdb")
Using networkStream As NetworkStream = tcpClient.GetStream()
Using stream As Stream = New FileStream(Application.StartupPath + "\DB\DBISO1.accdb", FileMode.Create, FileAccess.ReadWrite)
Dim bytes As [Byte]() = New [Byte](1023) {}
Dim length As Integer = networkStream.Read(bytes, 0, bytes.Length)
incrementa = 0
While length > 0
incrementa += 1
cn()
stream.Write(bytes, 0, length)
length = networkStream.Read(bytes, 0, bytes.Length)
Application.DoEvents()
End While
End Using
End Using
tcpClient.Close()
Application.DoEvents()
Dim myThread As New Thread(New ThreadStart(AddressOf Listen))
myThread.IsBackground = True
myThread.Start()
End Sub