Découper une image en plusieurs parties puis la ré assembler

Version imprimable

Bonsoir à tous, depuis plusieurs jours je souhaite essayer de "séparer" une image en plusieurs parties puis les ré assembler pour reformer l'image et l’afficher à nouveau pour vérifier que l'image est identique.

Mon problème étant que je ne sais pas de quelle manière procéder, je me suis fait deux fonctions de base :
- une pour convertir l'image originale en memorystream
- une seconde pour récupérer l'image à partir du memorystream

- mon premier essai a été de mettre une image dans un picturebox, de le convertir puis de le récupérer et enfin l'afficher pour vérifier que c'est bon.
Jusque la pas de soucis ça fonctionne
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Function MemoryStreamToBitmap(ByVal ms As MemoryStream) Dim Bitmap As Bitmap = Image.FromStream(ms) Return Bitmap End Function Function BitmapToMemoryStream(ByVal Bitmap As Bitmap) Dim ms As New MemoryStream Bitmap.Save(ms, Bitmap.RawFormat) Return ms End Function Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim Stream As MemoryStream = BitmapToMemoryStream(PictureBox1.Image) Dim Bitmap As Bitmap = MemoryStreamToBitmap(Stream) PictureBox2.Image = Bitmap End Sub
Ce que j'aimerais faire maintenant, c'est "découper" le memorystream de l'image originale en plusieurs parties, par exemple en 10, puis ré assembler ces 10 parties pour retrouver limage.
Je ne sais pas trop comment m'y prendre j'ai commencé le squelette :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim Stream As MemoryStream = BitmapToMemoryStream(PictureBox1.Image) '-- Dim SizeSplitter As Double = PictureSize / 10 Dim NewBitmap As MemoryStream For i = 1 To 10 ' Ajouter la quantité SizeSplitter à NewBitmap Next ' NewBitmap est égal à Stream '-- Dim Bitmap As Bitmap = MemoryStreamToBitmap(NewBitmap) PictureBox2.Image = Bitmap End Sub
Je ne sais pas comment m'y prendre pouvez-vous m'expliquer svp ?

Bonne soirée à tous

24/02/2016, 09h16
charouel

tu a une taille dans le memory stream => tu le devise sur 10 puis tu fait un array ou une liste et tu met chaque partie dans une case !!
mais pour quoi faire?
24/02/2016, 15h30
peltiarn

Il n'y a pas de but précis j'apprends le VB.NET et souhaite m'imposer des entraînements.
Je chercher donc a découper un memorystream et copier chacune des parties dans un memorystream pour reassembler limage originale.
Merci de m'aiguillier sur la methode du array ?

Puisque je ne connais pas la méthode du memorystream j'ai triché en passant par un traitement sous form de string

Code:

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
  Function MemoryStreamToBitmap(ByVal ms As MemoryStream)
        Dim Bitmap As Bitmap = Image.FromStream(ms)
        Return Bitmap
    End Function
 
    Function BitmapToMemoryStream(ByVal Bitmap As Bitmap)
        Dim ms As New MemoryStream
        Bitmap.Save(ms, Bitmap.RawFormat)
        Return ms
    End Function
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim Stream As MemoryStream = BitmapToMemoryStream(PictureBox1.Image)
        Dim OriginalString As String = Convert.ToBase64String(Stream.ToArray)
 
        Dim split As Double = OriginalString.Length / 10
        Dim NewString As String = Nothing
        Dim part As String
        For i = 1 To 10
            If i = 1 Then
                part = SearchByIndex(OriginalString, 0, split)
                NewString += part
            ElseIf i = 10 Then
                part = SearchByIndex(OriginalString, NewString.Length, OriginalString.Length - NewString.Length)
                NewString += part
            Else
                part = SearchByIndex(OriginalString, NewString.Length, split)
                NewString += part
            End If
        Next
 
        Dim bytes() As Byte = Convert.FromBase64String(NewString)
        Dim MS As New System.IO.MemoryStream(bytes)
        PictureBox2.Image = MemoryStreamToBitmap(MS)
 
 
    End Sub
 
    Function SearchByIndex(ByVal AllString As String, ByVal StartIndex As Integer, ByVal Length As Integer)
        Dim resultat As String = AllString.Substring(StartIndex, Length)
        Return resultat
    End Function

ça fonctionne mais certaines images ont des beugs d'affichage, j'aimerais donc maintenant le faire d'une manière plus propre sans passer par les string, pouvez-vous me montrer un exemple ou m'expliquer comment faire ?
Bonne soirée à tous