Soyez le premier à donner votre avis sur cette source.
Vue 18 895 fois - Téléchargée 1 230 fois
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
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.