This code is no longer needed. Use File.WriteBytes / ReadBytes. Write an array of bytes to a file and read a file into an array of bytes. Sub BytesToFile (Dir As String, FileName As String, Data() As Byte) Dim out As OutputStream = File.OpenOutput(Dir, FileName, False)...
Private Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean)
Dim Cursor1 As Cursor = SQL1.ExecQuery("SELECT * FROM cakes")
If Cursor1.RowCount > 0 Then
If Value < Cursor1.RowCount Then
Cursor1.Position = Value
Else
Cursor1.Position = Cursor1.RowCount - 1
End If
Dim CakePicture() As Byte = Cursor1.GetBlob("picture")
Dim In As InputStream
In.InitializeFromBytesArray(CakePicture, 0, CakePicture.Length)
Dim bmp As Bitmap
bmp.Initialize2(In)
In.Close
ImageView1.Bitmap = bmp
End If
End Sub