Sub btnSavePic_Click
'save image to documents
'save bitmap as "image", used in insertBlob
Dim outPic As OutputStream
outPic = File.OpenOutput(File.DirDocuments, "image", False)
ImageView1.Bitmap.WriteToStream(outPic, 100, "png")
outPic.close
Dim listOfMaps As List
listOfMaps.Initialize
Dim m As Map
m.Initialize
m.Put("id", id)
m.Put("pic", Array As Object(insertBlob)) 'insert bitmap as array of bytes
listOfMaps.Add(m)
DBUtils.InsertMaps(SQL, "pics", listOfMaps)
id=id+1
Log(id)
kvs.PutSimple("id", id)
End Sub
Sub insertBlob As Object
'convert the image file into a bytes array
Dim inputStream1 As InputStream
inputStream1 = File.OpenInput(File.DirDocuments, "image")
Dim outputStream1 As OutputStream
outputStream1.InitializeToBytesArray(1000)
File.Copy2(inputStream1, outputStream1)
Dim buffer() As Byte
buffer = outputStream1.ToBytesArray
Log(buffer.Length)
Return buffer
End Sub