bskotu555
Active Member
B4X:
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)
Dim bmp As B4XBitmap = LoadBitmap(Dir, FileName)
ImageView1.Bitmap = ResizeBitmapMaxByte(bmp, 600000)
ar=ReadFile(Dir, FileName) ‘???
End If
End Sub
Sub ReadFile(Dir As String, FileName As String) As Byte()
Dim out As OutputStream
out.InitializeToBytesArray(100) 'size not really important
File.Copy2(File.OpenInput(Dir, FileName), out)
Return out.ToBytesArray
End Sub