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

Croïd · Nov 7, 2014

Where you take picture ? with run avd manager or in your phone ?

Erel · Nov 9, 2014

If Camera1_Ready is fired with Success = false then you cannot work with the camera.

imgsimonebiliato · Nov 12, 2014

Hello,
I need to upload a photo with smb.uploadfile(INPUSTREAM...).
How can I return an InputStream directly from the event camera_PictureTaken?

Erel · Nov 13, 2014

B4X:

Dim in As InputStream
in.InitializeFromBytesArray(Data, 0, Data.Length)

Jorge Juarez · Nov 27, 2014

Hello there , thank you all for everything I 've learned , and almost always look at the forums to clear my doubt , but this time , I need a lot of valuable help, I am trying to record in sqlite for right through a variable " Dim act_imagen1 () As Byte " photography taken but I can not do it , someone who can help me please .
Dim ruta As String
If File.ExternalWritable Then
ruta = File.DirRootExternal & "/" & "ACTIV"
Else
ruta = File.DirInternal & "/" & "ACTIV"
End If

Sub Camera1_PictureTaken (Data() As Byte)

Dim aleatorio As Int
aleatorio = Rnd(111,3333)
Variables.aleatoriofoto1 = aleatorio

'Dim filename As String = "1.jpg"
Dim filename As String = Variables.aleatoriofoto1 & ".png"
'Dim dir As String = File.DirRootExternal
Dim dir As String = ruta & "/" & "DCIM"
'ok
camEx.SavePictureToFile(Data, dir, Variables.aleatoriofoto1& ".png")
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(ruta & "/" & "DCIM", Variables.aleatoriofoto1 & ".png"))
Phone.SendBroadcastIntent(i)

'ToastMessageShow("Picture saved." & CRLF & "File size: " & File.Size(dir, filename), True)
'ok
pic1.SetBackgroundImage(LoadBitmapSample(dir, Variables.aleatoriofoto1 & ".png",100,100))

'error

Dim InputStream1 As InputStream
InputStream1 = File.OpenInput(dir, Variables.aleatoriofoto1 & ".png")

Dim OutputStream1 As OutputStream
OutputStream1.InitializeToBytesArray(1000)

File.Copy2(InputStream1, OutputStream1)

Dim Buffer() As Byte
Variables.act_imagen1 = OutputStream1.ToBytesArray
AceptFoto.Enabled=True

End Sub

Erel · Nov 28, 2014

Please use [code]code here...[/code] tags when posting code.

Can you post the full error message from the logs?

Jorge Juarez · Nov 28, 2014

This is the error can not be saved in the database , help please:

opciones_vvvvvvvvvvvvvvvvvvvv7 (java line: 315)
java.lang.IllegalStateException: get field slot from row 0 col 0 failed
at net.sqlcipher.CursorWindow.getString_native(Native Method)
at net.sqlcipher.CursorWindow.getString(CursorWindow.java:382)
at net.sqlcipher.AbstractWindowedCursor.getString(AbstractWindowedCursor.java:51)
at android.database.CursorWrapper.getString(CursorWrapper.java:114)
at anywheresoftware.b4a.sql.SQL$CursorWrapper.GetString(SQL.java:355)
at actividades.cymez.opciones._vvvvvvvvvvvvvvvvvvvv7(opciones.java:315)
at actividades.cymez.opciones._activity_create(opciones.java:264)
at java.lang.reflect.Method.invokeNative(Native Method)
at java.lang.reflect.Method.invoke(Method.java:525)
at anywheresoftware.b4a.BA.raiseEvent2(BA.java:169)
at actividades.cymez.opciones.afterFirstLayout(opciones.java:89)
at actividades.cymez.opciones.access$100(opciones.java:16)
at actividades.cymez.opciones$WaitForLayout.run(opciones.java:74)
at android.os.Handler.handleCallback(Handler.java:730)
at android.os.Handler.dispatchMessage(Handler.java:92)
at android.os.Looper.loop(Looper.java:137)
at android.app.ActivityThread.main(ActivityThread.java:5103)
at java.lang.reflect.Method.invokeNative(Native Method)
at java.lang.reflect.Method.invoke(Method.java:525)
at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:737)
at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:553)
at dalvik.system.NativeStart.main(Native Method)
java.lang.IllegalStateException: get field slot from row 0 col 0 failed

Erel · Nov 30, 2014

The error message is not related to the code you posted. It is related to a call to Cursor.GetString.

tdocs2 · Dec 4, 2014

Greetings, all.

At the risk of being redundant, this class significantly enhances the Camera Lib. - not only for the many features it offers, but because it is more robust and reliable. Two questions:

1. What I do not understand (and I know I can change it), is why Focus in the Class is tied to takepic. See code:

B4X:

'Calls AutoFocus and then takes the picture if focus was successfull.
Public Sub FocusAndTakePicture
    cam.AutoFocus
End Sub
Private Sub Camera_FocusDone (Success As Boolean)
    If Success Then
        TakePicture
    Else
        Log("AutoFocus error.")
    End If
End Sub

2. How exactly would I test if the device camera has autofocus (as opposed to nothing other than the log error on trying to focus)?

Thank you.

Sandy

Erel · Dec 5, 2014

1. This code allows the user to click on a button and to take the picture when the it is focused.

2. You can call CameraEx.GetSupportedFocusModes. Auto focus will work if one (or more) of the following values is in the list: continuous-picture or continuous-video.

tdocs2 · Dec 5, 2014

Thank you, Erel.

Best regards.

Sandy

PS: BTW, I have tested the ExClass in a plethora of devices and the ExClass seems to handle all possible conditions for my intended use while the Camera Lib by itself was killing the app. Truly, industrial strength.

Nostrildumbass · Jan 28, 2015

How can I store the picture in PictureTaken into a Bitmap object? I had it working with the standard camera library via an output stream (I have since lost the few lines I had that had this working), and I was able to place the Bitmap into an ImageView as well.

canalrun · Jan 28, 2015

I wrote a library function to do this:

B4X:

Public Sub BytesToBmp(Data() As Byte) As Bitmap
  Dim bm As Bitmap
  Dim ips As InputStream
 
  ips.InitializeFromBytesArray(Data, 0, Data.Length)
  bm.Initialize2(ips)
 
  ips.Close
 
  Return(bm)
End Sub

Here's the top of my PictureTaken subroutine that uses this code:

B4X:

Sub Cam1_PictureTaken(Pic() As Byte)

  Dim bmp As Bitmap

  bmp = MyUtils.BytesToBmp(Pic)

.....

Barry.

Nostrildumbass · Jan 28, 2015

Tha

canalrun said:
I wrote a library function to do this:

B4X:

Public Sub BytesToBmp(Data() As Byte) As Bitmap Dim bm As Bitmap Dim ips As InputStream ips.InitializeFromBytesArray(Data, 0, Data.Length) bm.Initialize2(ips) ips.Close Return(bm) End Sub

Here's the top of my PictureTaken subroutine that uses this code:

B4X:

Sub Cam1_PictureTaken(Pic() As Byte) Dim bmp As Bitmap bmp = MyUtils.BytesToBmp(Pic) .....

Barry.

Thanks so much. I did get it working with what you provided. The Bitmap is showing in my ImageView, but it is turned clockwise 90 degrees. If I take the photo in landscape mode (my app is going to be 100% portrait mode for now) it loads appropriately in the ImageView. I see that the CameraEx class has a SetDisplayOrientation sub, but I'm not really sure how it works or what to do to correct what I'm seeing.

To clarify what I'm trying to do here: my app has a "SignUp" Activity with an ImageView and Global_Process Bitmap. When you tap that ImageView, it starts my "CameraService" Activity (contains a full screen panel with some buttons) which then works with the CameraEx class and puts the PictureTaken result into the Bitmap. The camera closes, bringing us back to the SignUp Activity with the photo that was just taken loaded in the ImageView.

canalrun · Jan 28, 2015

Stealth Pyro said:
but it is turned clockwise 90 degrees

Image rotation seems to be the $64,000 question.

I have looked at the device orientation, compared that with the image orientation reported by CameraEX, and even examined the Exif information of the image written to a file. Several times I think I have gotten it correct, but then someone comes back to me and says: "the image is rotated".

Maybe someone has figured out the correct solution???

Barry.

Erel · Jan 29, 2015

Have you tried this code: https://www.b4x.com/android/forum/t...ibrary-functionality.23801/page-4#post-151355 ?

Nostrildumbass · Jan 29, 2015

Erel said:
Have you tried this code: https://www.b4x.com/android/forum/t...ibrary-functionality.23801/page-4#post-151355 ?

Nice! I get the feeling that this will work. ~~I just need to adjust it a bit because I am not saving my photo; I am grabbing it straight out of the PictureTaken event as (I believe) a Byte object.~~

Another minor issue I'm seeing is when I switch camera (via a button on my preview panel; I have the front camera as the default) and take a picture with the rear camera, the picture is not being displayed in my ImageView, however it works fine with the front camera even after switching between front and rear several times.

Edit: Scratch that... here's what I did and it seems to be working! It was very simple. I only declared a BitmapExtended object and returned bm2.rotateBitmap(mybitmap, -90)). This might not be the ideal way to handle this (different devices may behave differently) but it'll do for now.

B4X:

Public Sub BytesToBmp(Data() As Byte) As Bitmap
  Dim bm As Bitmap
  Dim ips As InputStream
  ips.InitializeFromBytesArray(Data, 0, Data.Length)
  bm.Initialize2(ips)
  ips.Close
 
  Dim bm2 As BitmapExtended
  Return(bm2.rotateBitmap(bm,-90))
End Sub

NeoTechni · Feb 15, 2015

Is there a way to use BytesToBmp on the preview image (camera_preview(Data() As Byte)) ? I'd like to handle the image in real time.
I tried and I just get an error :/

Erel · Feb 16, 2015

You need to use CameraEx.PreviewImageToJpeg.

NeoTechni · Feb 16, 2015

I use that now, but it:
-takes the full resolution of the camera instead of a size I specify
-converts to jpeg

Both steps slow it down considerably so you can't do much in real time

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

Attachments

Active Member

B4X founder

Well-Known Member

B4X founder

New Member

B4X founder

New Member

B4X founder

Well-Known Member

B4X founder

Well-Known Member

Member

Well-Known Member

Member

Well-Known Member

B4X founder

Member

Well-Known Member

B4X founder

Well-Known Member