Hi i have client and server and work fine.Server send file to client and client receive it good,But when i try again to resend another file server and client they lose communication.Please Help me?thks
Server Code:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim imgPath As String = "C:\Users\Sinestic\Desktop\1.exe"
Dim Client As New TcpClient("127.0.0.1", 9999)
Dim ByteArray() As Byte
Dim Fs As FileStream = New FileStream(imgPath, FileMode.Open, FileAccess.Read)
Dim Reader As New BinaryReader(Fs)
Try
Dim Writer As New BinaryWriter(Client.GetStream)
Writer.Write(CInt(Fs.Length))
Do
ByteArray = Reader.ReadBytes(2048)
Writer.Write(ByteArray)
Loop While ByteArray.Length = 2048
Writer.Flush()
Writer.Close()
Reader.Close()
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub
Client Code:
<pre> Client = Listener.AcceptTcpClient()
Dim Reader As BinaryReader
Dim ReadBuffer(PACKET_SIZE - 1) As Byte
Dim NData As Int32
Dim MStream As MemoryStream
Dim LData As Int32
Reader = New BinaryReader(Client.GetStream)
NData = Reader.ReadInt32
MStream = New MemoryStream
While NData > 0
LData = Client.GetStream.Read(ReadBuffer, 0, PACKET_SIZE)
MStream.Write(ReadBuffer, 0, LData)
NData -= LData
End While
Timer1.Enabled = False
Dim file As New FileStream("C:\Users\Sinestic\Desktop\1000.exe", FileMode.Create, FileAccess.Write)
MStream.WriteTo(file)
file.Close()
What I have tried:
Hi i have client and server and work fine.Server send file to client and client receive it good,But when i try again to resend another file server and client they lose communication.Please Help me?thks