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

Question

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

 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 FunctionPrivate 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 :





   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

Zermelo · Answer

Bonjour neyja
Pour la découpe, vous pouvez utiliser
http://codes-sources.commentcamarche.net/source/54895-decoupe-d-une-image
Cordialement.

ucfoutu · Answer

Bonjour,

VB6 dispose pour cde faire d'un contrôle très pratique nommé PictureClip, dont je ne trouve pas l'équivalent en VB.Net ....
Dommage .  
Ceci étant dit, j'ai personnellement toujours préféré (avec VB6) la plus grande liberté de découpage qu'offre l'utilisation de la fonction StretchBlt de la librairie gdi32 de l'Api de Windows, en ce sens qu'elle permet de définir comme on l'entend (et non uniquement en parts égales) tel ou tel autre rectangle d'un bitmap.
C'est donc cette fonction, que j'utiliserais avec VB.Net si cette version de Visual Basic n'offrait pas du "plus mieux"...
 
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.

Zermelo · Answer

Je me retire donc.

cs_Le Pivert · Answer

Bonjour à tous,

Voici un exemple:

 https://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=1279&lngWId=10

neyja · Answer

Bonsoir, merci pour vos réponses.
Je m'excuse de ne pas avoir répondu plus tôt j'ai beaucoup de travail cette semaine ^^"
Je vais étudier au plus vite vos propositions, encore désolé de ne pas avoir donné suite à vos réponses.
Bonne soirée

ucfoutu · Answer

Je disais plus haut que plusieurs méthodes semblent pouvoir être utilisées...
Celle-ci également, à mon avis :
https://msdn.microsoft.com/fr-fr/library/ezs7679t%28v=vs.110%29.aspx
 
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.

cs_Le Pivert · Answer

En partant de ce programme, j'ai fait un découpage d'images dans un panel en 12 pictureBox. L'image en Portrait ou Paysage est prise en compte: http://codes-sources.commentcamarche.net/source/100228-puzzle-en-vb-net Pour avoir une image de meilleur qualité je l'ai redimensionnée. Ouvrir un nouveau projet mettre un Form de : 462 x 451 Mettre un Panel de: 419 x 319 Et un Button: Button1 En double cliquant sur une PictureBox, vous avez son nom Voici le code: Imports System.IO Imports System.Drawing.Imaging Public Class Form1 #Region "Déclarations" Dim x, y, diff, dify, i As Int32 Dim path As String Dim w, h, r, vignette As Integer Dim rapport As Double Dim img As Image Dim paysage As Boolean #End Region #Region "Ouverture" Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) System.IO.File.Delete(Application.StartupPath & "\redim.jpg") 'supprime image redimensionnée End Sub Private Sub Form1_Load_1(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Button1.Text = "Ouvrir image" Me.MaximizeBox = False End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim chemin As String = Application.StartupPath & "\redim.jpg" 'chemin image redimensionnée Dim j As Integer vignette = 100 Dim ofd As New OpenFileDialog With ofd .Multiselect = True .Title = "Choisissez une image" .Filter = "jpeg (*.jpg)|*.jpg|gif (*.gif)|*.gif|tiff (*.tif)|*.tif|bmp (*.bmp)|*.bmp|png (*.png)|*.png" .FilterIndex = 1 .RestoreDirectory = False If .ShowDialog() = Windows.Forms.DialogResult.OK Then path = .FileName 'chemin image source img = Image.FromFile(path) r = CInt(img.HorizontalResolution) 'résolution image w = img.Width 'largeur image h = img.Height ' hauteur image If w < h Then paysage = False rapport = h / w RedimensionnerImage(path, chemin, CInt(400 / rapport), 400, r) 'portrait Else paysage = True rapport = (w / h) RedimensionnerImage(path, chemin, 400, CInt(400 / rapport), r) 'paysage End If dimension() 'dimension Panel 'On découpe et dresse une liste des images 100x100 For j = 0 To 11 Step 1 'création pictureBox Dim pic As New PictureBox i += 1 pic.Name = "Image " & i pic.BorderStyle = BorderStyle.Fixed3D If w < h Then pic.Image = ImagePart_haut(chemin, x, y, vignette, vignette) 'portrait Else pic.Image = ImagePart(chemin, x, y, vignette, vignette) 'paysage End If pic.SetBounds(x, y, vignette, vignette) x += vignette 'vérifier s'il ya suffisamment d'espace dans l'axe x pour ajouter une image If x >= Panel1.Width Or (x + vignette) > Panel1.Width Then diff = Panel1.Width - x 'S'il n'y a pas assez d'espace, commencer une nouvelle ligne ci-dessous y += vignette x = 0 End If If ((y + vignette) > Panel1.Height) Then dify = Panel1.Height - y End If 'controle PictureBox AddHandler pic.MouseDown, AddressOf PictureBox_MouseDown AddHandler pic.MouseMove, AddressOf PictureBox_MouseMove AddHandler pic.DoubleClick, AddressOf PictureBox_DoubleClick 'ajouter une image Panel1.Controls.Add(pic) Next Else MessageBox.Show("Opération annulée par l'utilisateur!", "Ouverture image", MessageBoxButtons.OK, MessageBoxIcon.Information) Exit Sub End If .Dispose() End With Button1.Enabled = False End Sub #End Region #Region "Fonctions" ' Fonction qui retourne une image redimensionnée ' path: Chemin de l'image (Ex: C:\images\pic.jpg) ' width: largeur souhaitée ' height: hauteur souhaitée Private Function ResizedImage(ByVal path As String, ByVal width As Integer, ByVal height As Integer) As Image Try Return Bitmap.FromFile(path).GetThumbnailImage(width, height, Nothing, Nothing) Catch Return Nothing End Try End Function ' Fonction qui retourne une partie d'image ' path: Chemin de l'image (Ex: C:\images\pic.jpg) ' width: largeur souhaitée ' height: hauteur souhaitée ' x: position de départ (x) ' y: position de départ (y) Private Function ImagePart(ByVal path As String, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer) As Image 'paysage Dim ImaSource = ResizedImage(path, 400, 300) Dim nouvImage As New Bitmap(width, height) Dim graph As Graphics = Graphics.FromImage(nouvImage) Dim rect As New Rectangle(0, 0, width, height) graph.DrawImage(ImaSource, rect, x, y, width, height, GraphicsUnit.Pixel) nouvImage.SetResolution(r, r) Return nouvImage End Function Private Function ImagePart_haut(ByVal path As String, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer) As Image 'portrait Dim ImaSource = ResizedImage(path, 300, 400) Dim nouvImage As New Bitmap(width, height) Dim graph As Graphics = Graphics.FromImage(nouvImage) Dim rect As New Rectangle(0, 0, width, height) graph.DrawImage(ImaSource, rect, x, y, width, height, GraphicsUnit.Pixel) nouvImage.SetResolution(r, r) Return nouvImage End Function Private Sub RedimensionnerImage(ByRef cheminOrigine As String, ByRef cheminDestination As String, ByVal largeur As Integer, ByVal hauteur As Integer, ByVal resolution As Integer) 'crée un Bitmap à partir de l'image d'origine Dim imageSource As New Bitmap(cheminOrigine) 'crée un Bitmap avec la nouvelle taille (il est possible de spécifier un facteur de redimensionnement à la place d'une taille) Dim bp As New Bitmap(largeur, hauteur) Dim gr As Graphics = Graphics.FromImage(bp) 'copie l'image source dans la nouvelle image gr.DrawImage(imageSource, 0, 0, bp.Width + 1, bp.Height + 1) bp.SetResolution(resolution, resolution) 'résolution de l'image originale 'sauvegarde le tout (ici en jpeg) bp.Save(cheminDestination, ImageFormat.Jpeg) End Sub Private Sub dimension() 'dimension Panel If paysage = True Then Panel1.Width = 419 Panel1.Height = 319 Me.Width = 470 Me.Height = 450 Else paysage = False Panel1.Width = 319 Panel1.Height = 419 Me.Width = 370 Me.Height = 550 End If End Sub #End Region #Region "PictureBox" Private Sub PictureBox_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) If e.Button = Windows.Forms.MouseButtons.Left Then x = e.X y = e.Y End If End Sub Private Sub PictureBox_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) If e.Button = Windows.Forms.MouseButtons.Left Then sender.Left += (e.X - x) sender.Top += (e.Y - y) End If End Sub Private Sub PictureBox_DoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) ' On récupère le contrôle cliqué ... Dim pictTmp As PictureBox = DirectCast(sender, PictureBox) MsgBox(pictTmp.Name) End Sub #End Region End Class Ce code est à adapter pour d'autre cas de figure. Bonne programmation

Zermelo · Answer

Bonjour Ucfoutu, bonjour neyja.
Toutes les suggestions utilisant PaintEventArgs conduisent à des erreurs, alors que le remplacement de e.Graphics par le CreateGraphics du support de dessin suffit. Mais je dois encore mettre cela en ordre. D'autre part, je voudrais savoir si le Vb 2008 possède un explorateur d'objets.
Cordialement

Zermelo · Answer

Bonjour Ucfoutu, bonjour neyja.

Voici le petit travail que je vous ai promis.

Imports System.DrawingPublic Class Accueil    Private Chm As String, ImgO As Image    Private Sub bOuv_Click(ByVal sender As Object, ByVal e As EventArgs) Handles bOuv.Click        'Acquisition de l'image d'origine ImgO dans le PictureBox pBox.        'DlgOuvrir est un contrôle OpenDialog (filtre Bmp, jpg, gif).        'L'image ImgO est stockée dans l'ordinateur à l'état de fichier.        Dim Ok As Boolean        With DlgOuvrir            .ShowDialog()            Ok = (.ShowDialog = DialogResult.OK)            If Ok Then                Chm = .FileName : ImgO = Image.FromFile(Chm)                pBox.Image = Image.FromFile(Chm)            End If        End With        'Code de Graphics.DrawImage, méthode (Image, Int32, Int32, Rectangle, GraphicsUnit)        Dim x As Integer = 100        Dim y As Integer = 100        Dim srcRect As New Rectangle(50, 50, 150, 150)        Dim units As GraphicsUnit = GraphicsUnit.Pixel        pBox.CreateGraphics.DrawImage(ImgO, x, y, srcRect, units)        'L'exécution de ce code est censée produire une image extraite de l'image d'origine ImgO.        'Mais dans l'état actuel le test n'est pas possible, car l'image potentiellement extraite        'est alors devant l'image d'origine.        'Bon courage mes amis!    End Sub 
Cordialement.

Zermelo · Answer

Bonjour Ucfoutu. 
Y-a-il quelque chose à dire ?

neyja · Answer

Merci à tous je vais m'entrainer avec CreateGraphics.DrawImage.

A la base je pensais ne pas passer par des fonctions traitants directement les images mais plutôt passer par une conversion en memorystream puis une division du memorystream avant de le ré assembler, est-ce possible ?

Merci à tous pour votre aide et ne m'en veuiller pas pour pour mon temps de réponse je n'ai pas beaucoup de temps pour aller sur l'ordinateur ces temps ci.
Bonne soirée =)

Zermelo · Answer

Bonjour neyja. 
Je vous ai demandé si votre Vb 2008 possède un explorateur d'objets, et vous ne m'avez pas répondu.
Si vous êtes trop occupé, veuillez me le faire savoir pour que je me désintéresse de votre sujet.
Cordialement.

Zermelo · Answer

Bonjour neyja.
Avancez-vous comme vous le souhaitez ?
Cordialement.

Ulrick · Answer

bonjour,
je suis débutant et je me lance dans le traitement d'image, pour optimiser la vitesse d’exécution du traitement des image, je pence découper l'image en plusieurs blocs pour traiter simultanément chaque bloc en multi-thread puis la ré-assemblé.
Pour cela j'aimerais savoir si pour découper une image il est plus rapide d'utiliser bitmap.clone ou de parcourir chaque pixel en utilisant lockbits ?

ucfoutu · Answer

Bonjour, Ulrick

Ouvre ta propre discussion à ce sujet, qui n'est pas exactement le même

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

15 réponses

Votre réponse

Discussions similaires