Android Question How to click a button to select an image and determine if the image size is greater than 600KB......

Sub Class_Globals
    Dim ar() As Byte
End Sub

Private Sub Button1_Click
    Dim CC As ContentChooser
    CC.Initialize("cc")
    CC.Show("image/*", "Choose image")
    Wait For CC_Result (Success As Boolean, Dir As String, FileName As String)
    If Success Then
        ImageView1.Bitmap = LoadBitmap(Dir, FileName)
        ar=ReadFile(Dir,FileName)   
    End If
End Sub

Private Sub Button2_Click'上传数据库
    If EditText1.Text<>"" Then
        StartService(Starter)
        Dim sqlstr As String
        Dim myBitmap As B4XBitmap = ImageView1.Bitmap'获取加载的图片
'        Dim nc As String= Base64EncodeDecodeImage.Base64ImageToString2(myBitmap)'图片转Base64方法
        Dim cx As String = phone.GetSettings ("android_id")'获取设备ID
        Dim tx As String=EditText1.Text'价格
        Dim tt As String=DateTime.Date(DateTime.Now)'时间
        
        sqlstr = "insert into 记录表(设备ID,账单图片,账单价格,记录日期) values('" & cx & "','" & nc & "','" & tx & "','" & tt & "')"
        
        Starter.Mysql_Jdbc.ExecNonQuery(sqlstr)
        EditText1.Text=""
        MsgboxAsync("入账成功！","提示")
    End If
End Sub

SQL1.Initialize(File.DirInternal, "cakes.db", True)
SQL1.ExecNonQuery("CREATE TABLE IF NOT EXISTS cakes (age INTEGER, url TEXT, picture BLOB)")

Dim job As HttpJob
job.Initialize("", Me)
job.Download(CakePictureURL)

Wait For (job) JobDone(job As HttpJob)
If job.Success Then
    Dim out As OutputStream
    out.InitializeToBytesArray(100)
    File.Copy2(job.GetInputStream, out)
    out.Close

    Dim CakePictureBlob() As Byte = out.ToBytesArray

    SQL1.ExecNonQuery2("INSERT INTO cakes VALUES(?, ?, ?)", Array As Object(NumCandles, CakePictureURL, CakePictureBlob))
    Log("Added" & TAB & CakePictureBlob.Length & TAB & CakePictureURL)

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