Ciao, sono qui ancora con un problema legato al socket. per quanto riguarda la trasmissione del file non ci sono problemi, il codice è questo :
[code]
Private Sub FileThread()
Dim PercorsoPrivato As String = PercorsoFileTX
Dim IpPrivatoDestrinatario As String = IpDestinatarioFile
Thread.Sleep(Rnd() * 10)
Dim pingResult As Boolean = False
Try
pingResult = My.Computer.Network.Ping(IpPrivatoDestrinatario)
Catch
pingResult = False
End Try
If pingResult = True Then
Try
Dim Client As New TcpClient(IpPrivatoDestrinatario, 8003)
If Client.Connected Then
Dim Writer As New StreamWriter(Client.GetStream())
Dim ByteFile() As Byte = IO.File.ReadAllBytes(PercorsoPrivato)
Writer.Write(ByteFile)
Writer.Flush()
Writer.Dispose()
End If
Client.Close()
Catch ex As Exception
End Try
End If
End Sub
[\code]
il problema giunge sulla ricezione:
[code]
Public Sub LeggidatiFile() 'SOCKET 8003
If SocketFile.Connected = True Then
Try
If (SocketFile.Poll(-1, SelectMode.SelectRead)) Then
Dim FileBuffer() As Byte
Dim i As Long = SocketFile.ReceiveBufferSize
SocketFile.Receive(FileBuffer)
SocketFile.Close()
End If
Catch
End Try
End If
End Sub
[\code]
il problema inizia quando la variabile i vale sempre e comunque 8192 byte contro i circa 170000 trasmessi, senza contare poi che quando vado a ricevere i byte mi crea un eccezione di "Eccezione first-chance di tipo 'System.ArgumentNullException' in System.dll"
Grazie SImone
Rispondi quotando