B4A Library [Class] CameraEx - Extends the camera library functionality

Sub Camera1_Ready (Success As Boolean)
   If Success Then
      camEx.SetContinuousAutoFocus
      camEx.SetJpegQuality(90)
      camEx.CommitParameters
      camEx.StartPreview
   Else
      ToastMessageShow("Cannot open camera.", True)
   End If
End Sub

Sub Camera1_PictureTaken (Data() As Byte)
   Dim filename As String = "1.jpg"
   Dim dir As String = File.DirRootExternal
   
   camEx.SavePictureToFile(Data, dir, filename)
   
'start test:
      Dim p As Panel
      p.Initialize("")
      Activity.AddView(p,0,0,100%x,100%y)
      p.SetBackgroundImage(LoadBitmapSample(dir,filename,100%x,100%y))
      Msgbox("","Not OK!")
      p.RemoveView
'end test
   
   
   
   camEx.StartPreview 'restart preview
   
   'send a broadcast intent to the media scanner to force it to scan the saved file.
   Dim Phone As Phone
   Dim i As Intent
   i.Initialize("android.intent.action.MEDIA_SCANNER_SCAN_FILE", _
      "file://" & File.Combine(dir, filename))
   Phone.SendBroadcastIntent(i)
   ToastMessageShow("Picture saved." & CRLF  & "File size: " & File.Size(dir, filename), True)
End Sub

cub activity create

ExpPicFilepath = "/Saved/PDTK/Pics/"

'---------------------------------------------
'Assign chips-16.png to bmp (used later in pop up for date dialog box)

   Bmp_Chips16.Initialize(File.DirAssets, "chips-16.png") 

'----------------------------------------------------------
''make small picture big 5050
   Pic5000SmallBox.Initialize(File.DirAssets,"chips-16.png")
   PicExpDBThumb5 'SR
   
   Panel5099.Enabled = False
   Panel5099.Visible = False
   Panel5099.SendToBack
end sub
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Pic5000SmallBox.Initialize(File.DirRootExternal, YearFilepath & ExpPicFilename)
PicExpDBThumb5 'SR
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^


Sub PicExpDBThumb5 
'---------------------------------------------------
'show picture in Expense DB thumbnail.  correct aspect ratio (width is longer than heigth here in thumbnail)
   AspectRatio = Pic5000SmallBox.Width/Pic5000SmallBox.Height
   
   IVW5 = ImageView5071BoxPic.Height * AspectRatio
   IVH5 = ImageView5071BoxPic.Height
   
   ImageView5071BoxPic.SetLayout(0, 0, IVW5, IVH5) ' w h
   ImageView5071BoxPic.Bitmap = Pic5000SmallBox

'---------------------------------------------------
End Sub


Sub Button5092RL_Click
'---------------------------------------------------
'rotate large 90 degrees
   Panel5099.SetLayout(0, 0, 100%x, 100%y)
   ImageView5099.SetLayout(0, 0, 100%y * AspectRatio, 100%y)'w h
   
   ImageView5099.Bitmap = RSIE.Rotate(Pic5000SmallBox, 90)
end sub

Sub LoadbitmapSample2(Dir As String,Filename As String,MaxWidth As Int,MaxHeight As Int,AutoRotate As Boolean) As Bitmap
   Dim bm As Bitmap
   bm=LoadBitmapSample(Dir,Filename,100%x,100%y)
   If AutoRotate Then
      Dim bm2 As BitmapExtended
      Dim exifdata1 As ExifData
      Try
         exifdata1.Initialize(Dir,Filename)
         'http://sylvana.net/jpegcrop/exif_orientation.html
         ' 1) transform="";;
         ' 2) transform="-flip horizontal";;
         ' 3) transform="-rotate 180";;
         ' 4) transform="-flip vertical";;
         ' 5) transform="-transpose";;
         ' 6) transform="-rotate 90";;
         ' 7) transform="-transverse";;
         ' 8) transform="-rotate 270";;
         Select Case exifdata1.getAttribute(exifdata1.TAG_ORIENTATION)
         Case exifdata1.ORIENTATION_ROTATE_180 '3
            bm=bm2.rotateBitmap(bm,180)
         Case exifdata1.ORIENTATION_ROTATE_90 '6
            bm=bm2.rotateBitmap(bm,90)
         Case exifdata1.ORIENTATION_ROTATE_270 '8
            bm=bm2.rotateBitmap(bm,270)
         End Select
      Catch
      End Try
   End If
   Return bm
End Sub