Buffer = Cursor1.GetBlob("Image")
Dim Canvas1 As Canvas
Canvas1.Initialize(ImageView1)
Dim IN As InputStream
IN.InitializeFromBytesArray(Buffer,0,Buffer.Length)
IN.Close
Msgbox(buffer.Length,"Image lenght")
Msgbox(In.BytesAvailable,"available")
Canvas1.Bitmap.Initialize2(IN)
ImageView1.Bitmap = Canvas1.Bitmap