CRÉER UNE IMAGE JPEG À PARTIR D'UN TABLEAU DE PIXEL

 Public Shared Function getImageByMatrice(ByVal matrice As String(), ByVal width As Integer, ByVal height As Integer, ByVal filename As String) As String

        'Dim res As String = ""
        Try


            Dim i As Integer
            Dim j As Integer
            'on spécifie le format de l'image et des Pixel
            Dim image As New Bitmap(width, height, Imaging.PixelFormat.Format32bppArgb)
          


            For i = 0 To width - 1
                For j = 0 To height - 1
                    'height * i + j permet de transformer la matrice qui est en 1D en 2D
                    image.SetPixel(i, j, Color.FromArgb(matrice(height * i + j)))

                Next
            Next

            Dim codecs As ImageCodecInfo() = ImageCodecInfo.GetImageEncoders()
            Dim codecJpg As ImageCodecInfo = Nothing

            For Each codec As ImageCodecInfo In codecs
                If codec.MimeType = "image/jpeg" Then
                    codecJpg = codec
                End If
            Next

            Dim ep As EncoderParameters = New EncoderParameters()
            ep.Param(0) = New EncoderParameter(System.Drawing.Imaging.Encoder.Quality, 70)
            'Sauvegarde
            image.Save(filename, codecJpg, ep)

            image.Dispose()

            Return "0"
        Catch ex As Exception

            Return "1"

        End Try

    End Function