Keskustelu: Ohjelmointikysymykset: VB.NET: Data muuttuu kuvaan tallennettaessa

Private Function TekstiKuvaksi(ByVal Teksti As String) As Image
    'Muutetaan teksti taulukkoon
    Dim textData() As Byte = System.Text.Encoding.UTF8.GetBytes(Teksti)

    'Pituus
    Dim pituus As Integer = textData.Length + 4

    'Lasketaan tulevan kuvan koko niin, että kuva on neliö ja mahdollisimman pieni
    Dim koko As Integer = Math.Round(Math.Sqrt(pituus / 3) + 0.5)

    'Valms data-taulukko
    Dim data((koko ^ 2) * 3 - 1) As Byte

    'Tehdään tyhjää tilaa pituutta varten
    Array.Copy(textData, 0, data, 4, textData.Length)

    'Tyhjennetään textData
    textData = Nothing

    'Lisätään tiedoston pituus ensimmäisiin neljään tavuun
    Dim pituusData() As Byte = BitConverter.GetBytes(Net.IPAddress.HostToNetworkOrder(pituus - 4))
    Array.Copy(pituusData, 0, data, 0, 4)

    'Kuva johon piirretään
    Dim kuva As New Bitmap(koko, koko, Imaging.PixelFormat.Format24bppRgb)



    'Laitetaan data kuvaan
    Dim bitmapData As Imaging.BitmapData = kuva.LockBits(New Rectangle(Point.Empty, kuva.Size), _
                                                         Imaging.ImageLockMode.WriteOnly, _
                                                         kuva.PixelFormat)

    Runtime.InteropServices.Marshal.Copy(data, 0, bitmapData.Scan0, data.Length)

    kuva.UnlockBits(bitmapData)

    'Otetaan data kuvasta
    bitmapData = kuva.LockBits(New Rectangle(Point.Empty, kuva.Size), _
                                                         Imaging.ImageLockMode.ReadOnly, _
                                                         kuva.PixelFormat)

    'Palautetaan kuva
    Return kuva
End Function

Private Function KuvaTekstiksi(ByVal Kuva As Bitmap) As String
    'Otetaan data kuvasta
    Dim bitmapData As Imaging.BitmapData = Kuva.LockBits(New Rectangle(New Point(0, 0), Kuva.Size), _
                                                         Imaging.ImageLockMode.ReadOnly, _
                                                         Kuva.PixelFormat)

    'Luodaan data-taulukko
    Dim data(bitmapData.Stride * Kuva.Height - 1) As Byte

    Runtime.InteropServices.Marshal.Copy(bitmapData.Scan0, data, 0, data.Length)

    Kuva.UnlockBits(bitmapData)

    'Pituus
    Dim pituus As Integer = Net.IPAddress.NetworkToHostOrder(BitConverter.ToInt32(data, 0))
    Return System.Text.Encoding.UTF8.GetString(data, 4, pituus)
End Function

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim a As Image = TekstiKuvaksi(TextBox1.Text)
    a.Save("kuva.png", Imaging.ImageFormat.Png)
    TextBox1.Text = KuvaTekstiksi(Image.FromFile("kuva.png"))
End Sub