B4A Library Advanced Camera Library V1.00

jur123 · Sep 11, 2011

Portrait (bitmap rotated 90 deg)

Hi,

I have been struggeling with portait for some days now. Portait does work, but the resulting bitmap are rotated 90 degrees (CCW).

How can I fix that?

Thxm Jur

Erel · Sep 11, 2011

There are several examples of rotating images: Basic4android Search: rotate bitmap

jur123 · Sep 13, 2011

advanced camera portrait gives rotated bitmap/jpg

Hi Erel,

Thx for your answer, but the process you pointed out of saving the byte() from 'picture_taken' to file, loading the bitmap from file, rotating it and then resaving it, is too slow for my purpose.
Is there a (simple) way to rotate (90 deg) the contents of the byte() array given bij picture_taken?
Or is there a function loading (in memory) a bitmap from byte() ? E.g "loadbitmapfrombytes()" so I can rotate the bitmap before saving...

Thx for any help

Jur

Erel · Sep 14, 2011

Or is there a function loading (in memory) a bitmap from byte() ? E.g "loadbitmapfrombytes()" so I can rotate the bitmap before saving...

Here:

B4X:

   Dim bmp As Bitmap
   Dim in As InputStream
   in.InitializeFromBytesArray(buffer, 0, buffer.length)
   bmp.Initialize2(in)

slydog43 · Sep 16, 2011

flash question

I'm a little confused about using the flash. I made a very simple flashlight app using this library (4.3). My problem lies with having to use camera.FlashTorch to turn on the flash and camera.FlashOff to turn off. Why doesn't camera.FlashOn work, or is this something to do with my phone (a t-mobile MyTouch 4G, rooted, etc).

I have tried my code on a Samsung Fascinate, but does nothing. Maybe related?

thanks

mkvidyashankar · Sep 20, 2011

HI

Waiting for GPS functions, please help XverhelstX

Regards

XverhelstX · Sep 20, 2011

It should be added? Dl the latest lib

Sent from my SE Xperia Play using Tapatalk.

jfr76 · Sep 22, 2011

Null pointer thrown when leaving activity

Hello, I'm using ACL 4.3, and if I hit the 'home' button from my activity (which displays the camera preview), I get a null pointer exception 50% of the time. My Activity_Pause looks like so:

PHP:

Sub Activity_Pause (UserClosed As Boolean)
       released = True
       camera1.StopPreview 
   camera1.Release
   
   GPS1.Stop 
   locAvail = False
   ToastMessageShow("paused", True)
End Sub

the toast message is NOT shown when I get the crash, which according to the logs in the IDE looks like:

PHP:

** Activity (main) Pause, UserClosed = false **
dst width, height have changed [w= 462, h= 693] -> [w=456, h= 693]
dst width, height have changed [w= 441, h= 662] -> [w=440, h= 662]
dst width, height have changed [w= 430, h= 644] -> [w=424, h= 644]
GC_CONCURRENT freed 2051K, 46% free 5881K/10823K, external 4925K/5669K, paused 4ms+8ms
dst width, height have changed [w= 424, h= 636] -> [w=424, h= 636]
dst width, height have changed [w= 331, h= 497] -> [w=328, h= 497]
virtual android::status_t android::CameraHardwareSec::cancelPicture() : not supported, just returning NO_ERROR
DeinitCamera: m_cam_fd(14)
overlay_destroyOverlay:IN dev (0x298428) and overlay (0x692ce8)
Destroying overlay/fd=214/obj=00692ce8
overlay_destroyOverlay:OUT
DeinitCamera: m_cam_fd2(15)
Shutting down VM
threadid=1: thread exiting with uncaught exception (group=0x40015560)
FATAL EXCEPTION: main
java.lang.NullPointerException
   at xvs.ACL.ACL.onPreviewFrame(ACL.java:1090)
   at android.hardware.Camera$EventHandler.handleMessage(Camera.java:547)
   at android.os.Handler.dispatchMessage(Handler.java:99)
   at android.os.Looper.loop(Looper.java:123)
   at android.app.ActivityThread.main(ActivityThread.java:3647)
   at java.lang.reflect.Method.invokeNative(Native Method)
   at java.lang.reflect.Method.invoke(Method.java:507)
   at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:839)
   at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:597)
   at dalvik.system.NativeStart.main(Native Method)
GC_EXPLICIT freed 2K, 53% free 2535K/5379K, external 1625K/2137K, paused 71ms

Am I doing something wrong when stopping the preview and releasing the camera? has anyone else seen this?

XverhelstX · Sep 24, 2011

@jfr76: Sorry, I have no idea why this happens.

However: I updated acl to 4.4

This adds a new functions:

B4X:

camera1.TakePicture2(degrees)

you should use this when you try to take a picture as portrait.
As degrees, give 90 to have a portrait picture.

code used:

Raw data:

B4X:

Sub mnuTakePicture2_Click
   
   camera1.TakePicture2(90)
   
End Sub

Sub Camera1_PictureTaken2 (Data() As Byte)

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

   
End Sub

jfr76 · Sep 26, 2011

A fix for the null pointer error

I was able to correct this issue by modifying the source and compiling my own version with the change. I started with 4.4
Specifically, I had to change onPreviewFrame to this :

PHP:

@Override
   public void onPreviewFrame(byte[] data, Camera camera) {
      if (c != null && isPreviewOn) {  // verify we're running and not a trailing event to a dead camera obj
         Camera.Parameters cp = c.getParameters();
         Size sz = cp.getPreviewSize();
         int width = sz.width; //FrameWidth;
         int height = sz.height; //FrameHeight;
         int quality = FrameQuality;

           int[] temp = new int[width*height];
           OutputStream outptstream = new ByteArrayOutputStream();
           Bitmap bm = null;
           
           decodeYUV420SP(temp, data, width, height);
           bm = Bitmap.createBitmap(temp, width, height, Bitmap.Config.RGB_565);
           bm.compress(CompressFormat.JPEG, quality, outptstream);
           CurrentJPEG = ((ByteArrayOutputStream)outptstream).toByteArray();
         isDecoding = false;
            Log.i("B4A", "isDecoding false");
          ba.raiseEvent(this, eventName + "_previewtaken", new Object[] { CurrentJPEG } );
      }
}

mkvidyashankar · Sep 27, 2011

francoisg said:
Hi,
I tried the following code but it does not seem to work for some reason (device: Motorola MB525) - does nothing. MaxZoom is returned as 5, but setting it to any value does nothing at all. Obviously I am doing something wrong ...

Sub Activity_KeyPress (KeyCode As Int) As Boolean 'return true if you want to consume the event
Select KeyCode
Case KeyCodes.KEYCODE_VOLUME_DOWN:
maxZoom = cam.getMaxZoom
If CamZoom < maxZoom Then
CamZoom = CamZoom + 1
cam.setZoom = CamZoom
End If
Return True
Case KeyCodes.KEYCODE_VOLUME_UP:
If CamZoom > 0 Then
CamZoom = CamZoom - 1
cam.setZoom = CamZoom
End If
Return True
End Select
End Sub

hi

I have tried the code similar to above but i did not get any zoom effect. Please let me know u got the solution. Thanks in advance.

fightinillini94 · Oct 18, 2011

I get a java error everytime I try to start the led light

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 btnFLASHLIGHT As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
   Activity.LoadLayout("main")
   End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)
   
End Sub



Sub btnFLASHLIGHT_Click
   camera1.FlashTorch()
End Sub

Gigatron · Oct 18, 2011

B4X:

Sub btnFLASHLIGHT_Click
   camera1.FlashTorch()
End Sub

Wrong code.. FlashTorch()

It's be camera1.FlashOn , this will work without error.

Good Luck

francoisg · Oct 18, 2011

Maybe try:

camera1.Initialize(Activity, "cam") in Sub Activity_Create ???

francoisg · Oct 18, 2011

Hi, on the Motorola MB525 (Defy) I can't get the flashlight to work at all (same with Galaxy Tab). Any reason for this?

It works fine with a lot of other devices (SE X10, Samsung Galaxy SII etc...)

The "FlashTorch" functions just seems to do nothing even though after calling it "CurrentFlashMode" seems to report the expected state correctly...

Gigatron · Oct 18, 2011

Here the flashlight code working on my SEX10i

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 Camera As AdvancedCamera
   Dim campanel As Panel
   Dim showbtn As Button
   Dim bton As Button
    
End Sub

Sub Activity_Create(FirstTime As Boolean)

      Activity.LoadLayout("camer")
   Camera.Initialize(campanel, "Camera")
  
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)
   Camera.StopPreview
   
End Sub
 

Sub Camera_Ready (Success As Boolean)

   If success Then
      Camera.StartPreview
      
      Else
      ToastMessageShow("Cannot open camera.", True)
   End If
   
End Sub


Sub bton_Click
 
   Camera.FlashOn
   
   
End Sub

gpe · Oct 31, 2011

I cannot find a way to enable FlashOn and other camera functions on GalaxyTab 7.
No B4a tutorial seems to work, even if the responses are OK.
Other camera standard applications works instrad perfectly.
Any suggestion?
gp

SlavaVB · Nov 6, 2011

i just copied both files to my lib folder, but my ide doesnt see the library

SlavaVB · Nov 6, 2011

is there a way to turn on and off the led using the standard Camera lib?

SlavaVB · Nov 6, 2011

I'm having issues turning the FLASH on...

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 Cam1 As AdvancedCamera
End Sub

Sub Activity_Create(FirstTime As Boolean)
   cam1.Initialize(Activity, "cam")
   
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub cam_Ready (Success As Boolean)

   Msgbox("on!","")
   
   cam1.FlashOn()

End Sub

Do you know whats wrong?

B4A Library Advanced Camera Library V1.00

Attachments

Member

B4X founder

Member

B4X founder

Member

Active Member

Well-Known Member

New Member

Well-Known Member

New Member

Active Member

Banned

Member

Active Member

Active Member

Member

Member

Member

Member

Member

Similar Threads