BMP - Data as Byte()

[vb1992]

How would I get the Canvas Bitmap Data
sent as BmpData below as a Data as Byte() ?

I don't want to open this file, I would like to do it from memory

   Dim Out As OutputStream
   Out = File.OpenOutput(File.DirRootExternal, "pic.png", False)
   canvas.Bitmap.WriteToStream(Out,100,"PNG")
 



        Dim req As HttpRequest
    req.InitializePost2("http://SERVER.com/u.php", BmpData) ' DATA as Byte()
   httpClient1.Execute(req, 1)


'end

 

[poseidon]

re

'Reads bitmap (aka Imageview.Bitmap) and export it to byte array.

Sub GetByteFromBitmap(img As Bitmap) As Byte()
   Try 
      Dim out As OutputStream
      Dim data() As Byte
      
      out.InitializeToBytesArray(1)
      
      img.WriteToStream(out,100,"PNG")
      
      data = out.ToBytesArray
      
      out.Close
      out.Flush
      Return data 
   Catch 
      Return Null 
   End Try 
End Sub

 

[Erel]

The above code will work. However there are two issues with it:
1. You should not call Flush after closing the stream (and it is not needed).
2. It is better to remove the error handling from this code. It will only make your program harder to debug.