Bonjour ! Avec cette classe je peux envoyer un fichier au travers de l'internet
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
 
Public Class MessageFichier
 
    Inherits MessageBase
 
    Private m_octets() As Byte
    Private m_fichier As String
 
    Protected Overrides Sub sauveDansStream(ByVal bw As System.IO.BinaryWriter)
 
        ' écriture du nom du fichier
        bw.Write(m_fichier)
        ' écriture de la longueur du fichier
        bw.Write(m_octets.Length)
        ' écriture du contenu du fichier
        bw.Write(m_octets)
 
    End Sub
 
    Protected Overrides Sub chargeDepuisStream(ByVal br As System.IO.BinaryReader)
 
        Dim longueur As Integer
 
        ' lecture du nom du fichier
        m_fichier = br.ReadString()
        ' lecture de la longueur du fichier
        longueur = br.ReadInt32()
        ' lecture des octets du fichier
        m_octets = br.ReadBytes(longueur)
 
    End Sub
 
    ' sauve le tableau d'octets dans un fichier
    Public Sub SauveFichier(ByVal fichier As String)
 
        Dim s As FileStream
        s = New FileStream(fichier, FileMode.Create, FileAccess.Write)
        s.Write(m_octets, 0, m_octets.Length)
        s.Close()
 
    End Sub
 
    ' remplit le tableau d'octets avec le contenu d'un fichier
    Public Sub ChargeFichier(ByVal fichier As String)
 
        Dim s As FileStream
        Dim file As FileInfo
 
        file = New FileInfo(fichier)
        If file.Length < 2000000 Then
            ' lecture des octets du fichier
            ReDim m_octets(CInt(file.Length))
            s = New FileStream(fichier, FileMode.Open, FileAccess.Read)
            s.Read(m_octets, 0, CInt(file.Length))
            s.Close()
            ' stockage du nom du fichier
            m_fichier = file.Name
        Else
            Throw New Exception("Le fichier transféré ne doit pas dépasser 2 Mo.")
        End If
 
    End Sub
 
    Public ReadOnly Property Fichier() As String
 
        Get
            Return m_fichier
        End Get
 
    End Property
 
    Public ReadOnly Property Longueur() As Integer
 
        Get
            Return m_octets.Length
        End Get
 
    End Property
 
End Class
Cependant pouvez-vous m'indiquer un bout de code supplementaire permettant de segmenter un fichier afin que cette classe puisse envoyer des fichiers superieurs a 2 Mo
Merci