ebniebfiuyh Ответов: 1

Отправить файл TCP/IP VB.NET

Привет у меня есть запись в vb.net сервер и клиент.я добавляю функцию для отправки и получения файла и работаю нормально,но когда файл в trasfer находятся > 50kb код не работает.почему?

получать
Dim x As Integer
      x = ListView1.FocusedItem.Index
      Dim bytesToRead(cliente(x).ReceiveBufferSize) As Byte
      '---read incoming stream
      Dim numBytesRead As Integer = flusso(x).Read(bytesToRead,
                              0, CInt(cliente(x).ReceiveBufferSize))
      '---write the bytes to file

      Const FILE_NAME = "C:\Users\Sinestic\Desktop\11.jpg"
      Dim fs As System.IO.FileStream
      fs = New FileStream(FILE_NAME, FileMode.CreateNew,
                          FileAccess.Write)
      fs.Write(bytesToRead, 0, numBytesRead)
      fs.Close()


Отправитель

Const FILE_NAME = "C:\Users\Sinestic\Desktop\10.jpg"
           Dim NWStream As NetworkStream = cliente.GetStream
           Dim bytesToSend(cliente.ReceiveBufferSize) As Byte
           Dim fs As FileStream
           fs = New FileStream(FILE_NAME, FileMode.Open,
                           FileAccess.Read)
           Dim numBytesRead As Integer = fs.Read(bytesToSend,
                           0, bytesToSend.Length)
           '---send the text
           Dim bf As New BinaryFormatter

           NWStream.Write(bytesToSend, 0, numBytesRead)
           TextBox5.Text = ""


Что я уже пробовал:

я пробую Уит маленький файл но мне нужен трасфер большой файл

1 Ответов

Рейтинг:
2

Dotnet_Dotnet 

Private Sub btnSend_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnSend.Click
Dim filebuffer As Byte()
Dim fileStream As Stream
fileStream = File.OpenRead(tbFilename.Text)
' Alocate memory space for the file
ReDim filebuffer(fileStream.Length)
fileStream.Read(filebuffer, 0, fileStream.Length)
' Open a TCP/IP Connection and send the data
Dim clientSocket As New TcpClient(tbServer.Text, 8080)
Dim networkStream As NetworkStream
networkStream = clientSocket.GetStream()
networkStream.Write(filebuffer, 0, fileStream.Length)
end sub

Read more at http://technotif.com/creating-simple-tcpip-server-client-transfer-data-using-c-vb-net/#83yQ1VtgVbgBmvYE.99

ebniebfiuyh

Не работать