B4A Library Advanced Camera Library V1.00

XverhelstX · May 25, 2011

UPDATE! - Zoom, Current & Supported - Advanced Camera Library V2.00

Hello everyone!

B4X:

Sub Globals
Dim camera1 As AdvancedCamera ' New lib
End Sub

I'm glad to announce my fourth library!
This library is a modification of the existing camera library with more options.
So the standard procedures of the camera still apply.
Basic4android - Camera

You can find the Advanced Camera Library in the attachements.
To use: Extract and Copy the Advanced Camera.xml and Advanced Camera.jar to the library folder in "Anywhere Software\Basic4android\Libraries".

.:!BIG UPDATE!:.
Advanced Camera Library has been updated to version 2.0 with tons of new features!
See post #19
http://www.b4x.com/forum/52479-post19.html

.:Index:.

[1] Flashlight
[2] Camera's
[3] Orientation
[4] Pictures
[5] Antibanding
[6] Colour Effects
[7] Focus Mode
[8] Scene Mode
[9] White Balance

So, let's start

1) Flashlight

a.

B4X:
"FlashAuto": Enables the flashlight to turn on automatically.

B4X:

Camera1.FlashAuto()

b.

B4X:
"FlashOn": Turns the flashlight on.

B4X:

Camera1.FlashOn()

c.

B4X:
"FlashOff": Turns the flashlight off.

B4X:

Camera1.FlashOff()

2) Camera's

a.

B4X:
"CameraBack": Sets the back camera as primary camera.

B4X:

Camera1.CameraBack()

b.

B4X:
"CameraFront": Sets the front camera as primary camera.

B4X:

Camera1.CameraPortrait()

3) Orientation

a.

B4X:
"OriLandscape": Sets the orientation to landscape mode.

B4X:

Camera1.OriLandscape()

b.

B4X:
"OriPortrait": Sets the orientation to portrait mode.

B4X:

Camera1.OriPortrait()

4) Pictures

a.

B4X:
"PictureSize": Sets the size of the picture in pixels.
The parameters must be modified before Camera1.StartPreview.

B4X:

Camera1.PictureSize(480,320)

b.

B4X:
"Quality": Sets the quality of the JPEG picture. Range between 0 - 100, with 100 being the best.
The parameters must be modified before Camera1.StartPreview.

B4X:

Camera1.Quality = 100

5) Antibanding

B4X:
"setAntibanding": Sets the Antibanding. This is used to remove noises like when you take a picture of a monitor/television screen.

ANTIBANDING_50HZ: Sets the antibanding to 50Hz.

ANTIBANDING_60HZ: Sets the antibanding to 60Hz.

ANTIBANDING_AUTO: Sets the antibanding to automatic mode.

ANTIBANDING_OFF: Sets the antibanding off.

B4X:

Camera1.setAntibanding = "ANTIBANDING_AUTO"

6) Colour Effects

a.

B4X:
"setEffect": Sets the color effect of your picture.

AQUA

BLACKBOARD

MONO

NEGATIVE

NONE

POSTERIZE

SEPIA

SOLARIZE

WHITEBOARD

B4X:

Camera1.setEffect = "SEPIA"

7) Focus Mode

B4X:
"setFocusMode": Sets the focus mode of your picture.

MACRO: Close-up.

INFINITY: Far distance.

FIXED: If the camera has auto-focus, this mode can fix the focus.

AUTO: Auto-focus mode.

EDOF: Focusing is done digitally and continuously.

B4X:

Camera1.setFocusMode = "MACRO"

8) Scene Mode

B4X:
"setSceneMode": Sets the scene mode of your picture.

ACTION: Take photos of fast moving objects.

AUTO: Scene mode is off.

BEACH: Take pictures on the beach.

CANDLELIGHT: Capture scenes lit by candles.

FIREWORKS: Take pictures of fireworks.

LANDSCAPE: Take pictures on distant objects.

NIGHT: Take photos at night.

PARTY: Indoor low-light shot.

PORTRAIT: Take people pictures.

SNOW: in the snow.

STEADYPHOTO: Avoid blurry pictures (handshake).

SUNSET: Take Sunset photos.

THEATRE: Take photos in a theater.

B4X:

Camera1.setScene = "BEACH"

9) White Balance

B4X:
"setWhiteBalance": Sets the white balance of your picture.

AUTO

CLOUDY_DAYLIGHT

DAYLIGHT

FLUORESCENT

INCANDESCENT

SHADE

TWILIGHT

WARM_FLUORESCENT

B4X:

Camera1.setWhiteBalance = "WARM_FLUORESCENT"

If there are any bugs, questions or features you want to add to the library, please post them on this forum.

Credits and feedback are really much appreciated!

Thank you very much!

XverhelstX

Full example:

B4X:

'Activity module
Sub Process_Globals
   'These global variables will be declared once when the application starts.
   'These variables can be accessed from all modules.
   
End Sub

Sub Globals
   'These global variables will be redeclared each time the activity is created.
   'These variables can only be accessed from this module.
   
   Dim camera1 As AdvancedCamera
   Dim Panel1 As Panel
   
End Sub

Sub Activity_Create(FirstTime As Boolean)
    
   Activity.LoadLayout("Menu")
   activity.AddMenuItem("Take Picture","mnuTakePicture")
   activity.AddMenuItem("Set Effect","mnuSetEffect")
   activity.AddMenuItem("Flash On","mnuFlashOn")
   activity.AddMenuItem("Focus Mode","mnuFocusMode")
   
End Sub

Sub Activity_Resume
   
   camera1.Initialize(panel1, "Camera1")
   
End Sub

Sub Activity_Pause (UserClosed As Boolean)
   camera1.StopPreview
   camera1.Release
End Sub

Sub mnuFlashOn_Click

camera1.FlashOn()
End Sub

Sub mnuSetEffect_Click

Camera1.setEffect = "SEPIA"

End Sub

Sub Camera1_Ready (Success As Boolean)
   If success Then
      Camera1.StartPreview
      
   Else
      ToastMessageShow("Cannot open camera.", True)
   End If
End Sub

Sub Camera1_PictureTaken (Data() As Byte)
   camera1.StartPreview
   Dim out As OutputStream
   out = File.OpenOutput(File.DirRootExternal, "Image.jpg", False)
   out.WriteBytes(data, 0, data.Length)
   out.Close
   ToastMessageShow("Image saved: " & File.Combine(File.DirRootExternal, "Image.jpg"), True)

   
End Sub

Sub mnuTakePicture_Click
   
   camera1.TakePicture
   
End Sub

Sub mnuFocusMode_Click
   
   camera1.setFocusMode = "MACRO"
   
End Sub

hackhack · Jun 29, 2012

Why does it require internet access?

Also,

Could you explain this

toggleFlashLight
Attempts to set camera flash torch/flashlight mode on/off
HACK around
isOn: true = on, false = off
Return type: @return:boolean whether or not we were able to set it

What does hack around mean, how do you specify on/ off. it doesn't seem to return a value.

XverhelstX · Jun 29, 2012

Hey hackhack,

With Hack around, i actually meant Play around.
I found the code on the internet and didn't worked for me to turn on the flashlight.

I was wondering if other people had more luck with it.

Tomas

salmander · Jul 20, 2012

Hi mate, One issue that I am experiencing is that the image when saved is always in a different orientation. Is this issue has been resolved yet?

Thanks

danoptic · Jul 20, 2012

Get Errors with the colour effects

I get errors when calling
camera1.ColourEffect = "BLACKBOARD"camera1.ColourEffect = "POSTERIZE"camera1.ColourEffect = "SOLARIZE"camera1.ColourEffect = "WHITEBOARD"

Why does it hapen
The other colour efects work fine.

code

Sub mnuSetEffectAqua_Click
camera1.ColourEffect = "AQUA"
End Sub
Sub mnuSetEffectBlackboard_Click
camera1.ColourEffect = "BLACKBOARD"
End Sub
Sub mnuSetEffectMono_Click
camera1.ColourEffect = "MONO"
End Sub
Sub mnuSetEffectNegative_Click
camera1.ColourEffect = "NEGATIVE"
End Sub
Sub mnuSetEffectNone_Click
camera1.ColourEffect = "NONE"
End Sub
Sub mnuSetEffectPosterize_Click
camera1.ColourEffect = "POSTERIZE"
End Sub
Sub mnuSetEffectSolarize_Click
camera1.ColourEffect = "SOLARIZE"
End Sub
Sub mnuSetEffectWhiteboard_Click
camera1.ColourEffect = "WHITEBOARD"
End Sub

XverhelstX · Jul 20, 2012

Are you sure your device supports these effects?
You should check with SupportedColourEffects.

Tomas

salmander · Jul 20, 2012

Hello,

When I take a picture once, it works fine, but when I again take a picture, I get the following error

B4X:

camera is ready
PictureTaken
imageName: 1.jpg
PictureTaken
imageName: 1.jpg

takeimage_camera1_picturetaken (java line: 309)

java.lang.OutOfMemoryError: (Heap Size=62435KB, Allocated=54903KB)

   at android.graphics.BitmapFactory.nativeDecodeStream(Native Method)
   at android.graphics.BitmapFactory.decodeStream(BitmapFactory.java:719)
   at android.graphics.BitmapFactory.decodeStream(BitmapFactory.java:791)
   at anywheresoftware.b4a.objects.drawable.CanvasWrapper$BitmapWrapper.Initialize2(CanvasWrapper.java:498)
   at anywheresoftware.b4a.objects.drawable.CanvasWrapper$BitmapWrapper.Initialize(CanvasWrapper.java:491)
   at anywheresoftware.b4a.keywords.Common.LoadBitmap(Common.java:1024)
   at com.home.cafiq.test.takeimage._camera1_picturetaken(takeimage.java:309)
   at java.lang.reflect.Method.invokeNative(Native Method)
   at java.lang.reflect.Method.invoke(Method.java:511)
   at anywheresoftware.b4a.BA.raiseEvent2(BA.java:170)
   at anywheresoftware.b4a.BA.raiseEvent2(BA.java:158)
   at anywheresoftware.b4a.BA.raiseEvent(BA.java:154)
   at xvs.ACL.ACL$4.onPictureTaken(ACL.java:239)
   at android.hardware.Camera$EventHandler.handleMessage(Camera.java:712)
   at android.os.Handler.dispatchMessage(Handler.java:99)
   at android.os.Looper.loop(Looper.java:156)
   at android.app.ActivityThread.main(ActivityThread.java:5005)
   at java.lang.reflect.Method.invokeNative(Native Method)
   at java.lang.reflect.Method.invoke(Method.java:511)
   at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:784)
   at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:551)
   at dalvik.system.NativeStart.main(Native Method)

I am using BitmapExtended library to rotate the picture taken, as in portrait mode, the picture that gets taken is still landscaped.
Here is my code

B4X:

Sub Globals
   Dim out1, out2 As OutputStream
   Dim bmp1, bmp2 As Bitmap
   Dim bmExt As BitmapExtended

        ' more objects/varaibles removed for this post
End Sub
Sub camera1_PictureTaken (Data() As Byte)
   Log("PictureTaken")
   camera1.StartPreview
   imageName = "1"
   imageName = imageName & ".jpg"
   Log("imageName: " & imageName)
   out1 = File.OpenOutput(File.DirDefaultExternal, imageName, False)
   out1.WriteBytes(Data, 0, Data.Length)
   out1.Close
   'out1.Flush
   bmp1 = LoadBitmap(File.DirDefaultExternal, imageName)
   bmp2 = bmExt.rotateBitmap(bmp1, 90)
   out2 = File.OpenOutput(File.DirDefaultExternal, imageName, False)
   bmp2.WriteToStream(out2, 80, "JPEG")
   out2.Close
   'out2.Flush
   ToastMessageShow("Picture taken...", False)
   'displaying the preview
   ImageViewImageTaken.Bitmap = bmp2
   ImageViewImageTaken.Visible = True
   lblImageTaken.Visible = True
   btnCapture.Enabled = True
   btnSend.Visible = True
End Sub

What am I doing wrong?

Please Help?

thedesolatesoul · Jul 20, 2012

salmander said:
java.lang.OutOfMemoryError: (Heap Size=62435KB, Allocated=54903KB)

What is the image resolution in pixels?

salmander · Jul 20, 2012

before the image gets rotated;
h:1840
w:3264

thedesolatesoul · Jul 20, 2012

salmander said:
before the image gets rotated;
h:1840
w:3264

Size in Memory = 3264x1840x4=24023040bytes=22.9MB

When you rotate it you have two bitmaps in memory so: 2x22.9=45.8MB

Also I doubt Data() is GC'd yet so you have 3x22.9=68.73MB in memory

I forget whether the bitmap is stored in Process memory, and I do not know what the default process memory for your device is, but this definitely exceeds any limits.

you will have to decrease the resolution or forgo rotation i think.

salmander · Jul 20, 2012

How can I remove the first two from the memory, after they have been used? So that at one time, there is only one bitmap in the memory?

thedesolatesoul · Jul 20, 2012

You can set Data=null and hope its GC'd
but this line:

B4X:

 bmp2 = bmExt.rotateBitmap(bmp1, 90)

requires bmp1 and bmp2 to be in memory at the same time.

Ennesima77 · Jul 25, 2012

Hi everyone,
I'm a biginners of B4A programming (and also English), I download and use ACL4.6 in my first application and It works fine.
I have just i little problem: when take first picture and show it in a image view, I can't take any other, and I have to close activity and open it again to take another picture.

I use this code:

Sub Camera1_PictureTaken (Data() As Byte)
Camera1.StartPreview
Dim out As OutputStream
out = File.OpenOutput(File.DirDefaultExternal, "temp.jpg", False)
out.WriteBytes(Data, 0, Data.Length)
out.Close
'ToastMessageShow("Image saved: " & File.Combine(File.DirDefaultExternal, "Image.jpg"), True)

End Sub
Sub Camera1_Ready (Success As Boolean)
If Success Then
Camera1.PictureSize(Preview.Width,Preview.Height )
Camera1.StartPreview
bttTakePicture.Enabled = True
Else
ToastMessageShow("Cannot open camera.", True)
bttTakePicture.Enabled = False
End If
End Sub

Sub Activity_Create(FirstTime As Boolean)

Activity.LoadLayout("Player")
PlayerDesign
bttTakePicture.Enabled=False

End Sub

Sub Activity_Pause (UserClosed As Boolean)
Camera1.StopPreview
Camera1.Release
End Sub

Sub bttActivateCamera_Click

If File.Exists (File.DirDefaultExternal ,"temp.jpg") Then
File.Delete (File.DirDefaultExternal ,"temp.jpg")
End If
Camera1.Initialize(Preview , "Camera1")

End Sub

Sub bttTakePicture_Click

Camera1.TakePicture
Dim Count As Int
ToastMessageShow("Attendere.....",True)
TimerVerifica.Initialize("Timer1", 3000)
TimerVerifica.Enabled=True
Preview.Visible=False
bttTakePicture.Enabled=False

End Sub

Sub Timer1_Tick
If File.Exists (File.DirDefaultExternal ,"temp.jpg") Then
ivPicture.Bitmap=LoadBitmapSample(File.DirDefaultExternal ,"temp.jpg",Preview.Width, Preview.Height )
TimerVerifica.Enabled=False
Camera1.StopPreview
Camera1.Release
End If
End Sub

First time it work fine, when I try to take a second one (because it's not on focus or not like to the player) preview doesn't start.
What's wrong in my code?

Just another question: As you can see I have had a timer take the file and show it in the preview, if I don't do that the picture doesn't be saved in the file and give me an error, some suggestion about that?

mitsusdev · Jul 27, 2012

onPreviewFrame use Explanation

Dear XverhelstX,
firstly compliments for your great library!!

So, about my question .....i'm try to use onPreviewFrame for my project....but i don't know about passed params type (Es. Camera As android.hardware.Camera).

Please can you post a small example how use this method?

Into my project i want to be able to detect (during camera preview) automatically changes in brightness.

Thanks a lot.

vb1992 · Jul 27, 2012

PixelColor = GetPixel (x As Int, y As Int)

Returns the color of the pixel at the specified position.

http://www.b4x.com/android/help/drawing.html#bitmap_getpixel

awama · Jul 31, 2012

.frontCamera gives error message

Hi,

I tried to adjust the front camera, but get an error. What am I doing wrong?

Sub Activity_Resume

camera1.Initialize(Panel1, "Camera1")
camera1.CameraFront2() '.CameraFront
End Sub

Error: java.lang.NullPointerException

I have the Galaxy S2 ICS 4.0.3

Silverhawks · Aug 14, 2012

Hello first of all congratulations and thanks for the excellent library.:sign0098:
I have the following problem when I acquire the photo is not always the focus. How do I after I did the preview to force the focus before you save the photo?
I try to change focusmode before startpreview but don't work..:sign0085:

I try with Samsung Galaxy S2 and Galaxy S

Sorry for my english...

This is my code

Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.

End Sub

Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim cCamera As AdvancedCamera
Dim pPanel As Panel
Dim Button1 As Button

End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("laycamera.bal")

End Sub

Sub Activity_Resume

cCamera.Initialize(Panel, "cCamera")

End Sub

Sub Activity_Pause (UserClosed As Boolean)

cCamera.StopPreview
cCamera.Release

End Sub

Sub cCamera_Ready(Success As Boolean)

If Success Then
ImpostaFlash(0)
cCamera.StartPreview
end if

Activity.AddMenuItem("FIXED","cam1")
Activity.AddMenuItem("AUTO","cam2")
Activity.AddMenuItem("INFINITY","cam3")
Activity.AddMenuItem("EDOF","cam4")
End Sub

Sub cam1_Click
cCamera.FocusMode="FIXED"
cCamera.StartPreview
End Sub
Sub cam2_Click
cCamera.FocusMode="AUTO"
cCamera.StartPreview
End Sub
Sub cam3_Click
cCamera.FocusMode="INFINITY"
cCamera.StartPreview
End Sub
Sub cam4_Click
cCamera.FocusMode="EDOF"
cCamera.StartPreview
End Sub
Sub cCamera_PictureTaken(data () As Byte)
Dim s As Double

cCamera.StartPreview

Dim out As OutputStream
Dim s1 As String

Dim sx As String
sx=File.DirRootExternal & "/external_sd"
Log(sx)
out = File.OpenOutput(sx, s1, False)
out.WriteBytes(data, 0, data.Length)
out.Close

End Sub

Sub Button2_Click
Activity.Finish
End Sub

Sub Button1_Click

cCamera.TakePicture

End Sub
Sub ImpostaFlash(value As Int)As String
Select Case value
Case 0
cCamera.FlashAuto()
Case 1
cCamera.FlashOn
Case 2
cCamera.FlashOff
Case 3
cCamera.FlashTorch
Case Else
cCamera.FlashAuto()
End Select
cCamera.Antibanding = "ANTIBANDING_AUTO"
cCamera.ColourEffect="NONE"

cCamera.FocusMode="FIXED"
cCamera.Quality=100
cCamera.SceneMode="AUTO"
cCamera.WhiteBalance="AUTO"
cCamera.OriPortrait

End Sub

danoptic · Aug 17, 2012

Zoom example

I m trying to use the zooms function on my galaxy S but i dont succeed!!

Is there any working example of the zoom function working?
I really need that for my app

Thanks

icefairy333 · Sep 9, 2012

the acl library is missing in my library directory ,So I had to download it again

mkvidyashankar · Sep 11, 2012

Try this

B4X:

Camera1.TakePicture
Dim Count As Int 
ToastMessageShow("Attendere.....",True)
TimerVerifica.Initialize("Timer1", 3000)
TimerVerifica.Enabled=True
Preview.Visible=False
bttTakePicture.Enabled=False
camera1.startpreview

End Sub

Sub Timer1_Tick
If File.Exists (File.DirDefaultExternal ,"temp.jpg") Then
ivPicture.Bitmap=LoadBitmapSample(File.DirDefaultE xternal ,"temp.jpg",Preview.Width, Preview.Height )
TimerVerifica.Enabled=False

End If
End Sub

Swissmade · Sep 16, 2012

Very Nice Library but Zoom is not working.:BangHead:

Can anybody help??

Thanks

B4A Library Advanced Camera Library V1.00

Attachments

Active Member

Well-Known Member

Active Member

Member

Well-Known Member

Active Member

Expert

Active Member

Expert

Active Member

Expert

Member

Member

Well-Known Member

Active Member

Member

Member

Active Member

Active Member

Well-Known Member

Privacy & Transparency

Privacy & Transparency