B4A Library Advanced Camera Library V1.00

ljcomp · Mar 8, 2012

Love the Lib, but i have a problem after taking a photo when I load it into an imageview it's rotated 90. Have changed orilandscape/oriportrait which does set the camera preview correctly.
Any ideas where I might be going wrong.

B4X:

Sub Camera1_PictureTaken (Data() As Byte)


    camera1.StartPreview
    Dim out As OutputStream
    out = File.OpenOutput(File.DirRootExternal & "/treescape/images/","Image.jpg", False)
    out.WriteBytes(Data, 0, Data.Length)
    out.Close
   imageview1.Visible = True
   imageview1.Bitmap = LoadBitmap(File.DirRootExternal & "/treescape/images/","Image.jpg")
    'ToastMessageShow("Image saved: " & File.Combine(File.DirRootExternal, "Image.jpg"), True)
   End Sub

Is my picturetaken sub

LJ

hdtvirl · Mar 13, 2012

Hi All, this is a great Library and thank you for putting it together, Iam using the library in an Proof Of Concept I am writting.

I have a problem in that when the Tablet powers down and then is switched back on again the camera object appears to have been disposed of and I get and error objCamera.startpreview.

If anybody else has expereinced this and has a work around/solution I would very much appreciate if you could advise me as to how you did it.

Regadrs

BOB

rtesluk · Mar 13, 2012

Position Device

Mar 13 2012

I found on my LG phone if I position it horizontal or vertical NOT FLAT, the problem does not happen.

Just a thought.

Regards,

Ray Tesluk
:sign0104:

gehrlekrona · Mar 29, 2012

Camera shutter sound

Is there a way to turn it off? There is no reason to have a phone make that sound but I can't find anywhere to turn it off.
Anybody who knows how to do it?

vb1992 · Mar 29, 2012

Dim p As Phone

p.VOLUME_VOICE_CALL()
p.VOLUME_ALARM()
p.VOLUME_MUSIC()
p.VOLUME_NOTIFICATION()
p.VOLUME_RING()
p.VOLUME_SYSTEM()

p.setmute...............

boten · Apr 13, 2012

Is there a way to get the current zoom setting? If not, can it be added (e.g. Camera.getCurrentZoom) ?

boten · Apr 18, 2012

How can I get the current settings of the camera's resolution?

No Matter what I change the resolution to (in the Camera application) i always get the first available resolution when using

B4X:

Cam.CurrentPictureSizeWidth
Cam.CurrentPictureSizeHeight

In my sgs the "first" available resolution in Camera is 2560x1920, and even if I change the camera's resolution to 640x480 I always get 2560 for CurrentPictureSizeWidth and 1920 for CurrentPictureSizeHeight

rubino25 · Apr 27, 2012

Is there a way to save the raw data? I thing i can save the bytes array.. or not?

Nator · Apr 27, 2012

rubino25 said:
Is there a way to save the raw data? I thing i can save the bytes array.. or not?

if you want to save it to a file, I use this, and work

B4X:

Sub Camera1_PictureTaken (Data() As Byte)        
        Dim out As OutputStream
   out = File.OpenOutput(File.DirRootExternal, "1.jpg", False)
   out.WriteBytes(Data, 0, Data.Length)
   out.Close
End Sub

Nator · Apr 27, 2012

Hi, First of all, great Post, lot of info.

I have a question, I want to send an image (in byte array) with json, y have the image phisical, and in memory, but i don't know how to send it, any Idea?

I use

B4X:

bmpImage.Initialize(File.DirRootExternal,"1.jpg") and try to send 
query="<IMG>"& bmpImage &"</IMG>"
req.InitializePost2("http://190.1.1.0/recive_respuesta3_json.php", query.GetBytes("UTF8"))

But don't work it send some propertys of de images.

PD: sorry for my english is no very good

rubino25 · Apr 28, 2012

Nator said:

if you want to save it to a file, I use this, and work

B4X:

Sub Camera1_PictureTaken (Data() As Byte)        
        Dim out As OutputStream
   out = File.OpenOutput(File.DirRootExternal, "1.jpg", False)
   out.WriteBytes(Data, 0, Data.Length)
   out.Close
End Sub

Tath's right! But it save the image in the jpg format.. Like the sample in the library! If i use the stock camera app, the images are about 5 Mb! With the sample are max 3! Raw data should be larger, or not?

Sorry for bad english..

sterlingy · May 10, 2012

Howdy,

I tried out your library with great hopes, but I can't seem to get things to work. The normal methods from the original library are fine, but when I tried to use OriLandscape, I got a Null pointer error, and I also noticed that SetFocusMode doesn't exist. It seems to be FocusMode, but I get the same Null Pointer Error with this, as well.

-Sterling

sterlingy · May 15, 2012

I love this library, but several of the ColorEffect modes don't work on my Droid 2. Is there a way to determine which modes don't work, so that my App doesn't display them as a selection?

Cheers,

Sterling

Gsquared · May 28, 2012

Hi XverhelstX,

I didn't notice that the "Optimal Focus Distance" is part of your library. Is that a feature you can add?

Thanks,

G^2

Mickster · May 30, 2012

Hey guys,

I'm using this library to change the resolution of images I'm taking on a Toshiba Thrive device, which is working perfectly fine. We are also running the same code on a Motorola Xoom tablet (very similar in specs to the thrive) and the line that modifies the resolution is causing a runtimeexception.

Has anyone seen this before?

Here is the routine causing the crash:

B4X:

Sub Camera1_Ready (Success As Boolean)

   If Success Then
'      Camera1.PictureSize(pnlCamera.Width, pnlCamera.Height)
      Camera1.StartPreview
      btnTakePicture.Enabled = True
   Else
      ToastMessageShow("Cannot open camera.", True)
   End If
   
End Sub

I commented out the line that is causing the issue for clarity.

Thanks :sign0085:

Mickster · May 31, 2012

I started a new thread for my issue.

http://www.b4x.com/forum/basic4andr...error-some-devices-not-others.html#post105099

nad · Jun 4, 2012

Testing on 4.6 ZoomIn, ZoomOut, SetZoom and MaxZoom

HTC Desire

OK,OK, No, OK

HTC Desire HD

OK,OK, No, OK

Samsung Galaxy SII

OK,OK, No, OK

Samsung Galaxy SIII

OK,OK, No, OK

So everything seems to work fine but the setzoom. It might be that I don't understand very well what do i need to pass as parameter (value as int, zoom as string, zoom2 as string) What do those zoom string values do?

Also although for all the mobiles the MaxZoom is giving back 30 when I try a ZoomIn in the HTCs the zoom is much higher than in the galaxies.

Thanks for this wonderful library.

vb1992 · Jun 4, 2012

camera1.setZoom(2,"20.0","200")

nad · Jun 10, 2012

Anyone managed to use the front camara?

I have tried several ways but no luck. Any ideas?

Thanks

sioconcept · Jun 18, 2012

when i try

AdvancedCamera.FlashTorch()
ABZxing.ABGetBarcode("Barcode", "")

the abzing say that it a problem. Maybe because they use the same camera event ?
have you an idea ?

B4A Library Advanced Camera Library V1.00

Attachments

Member

Active Member

Member

Member

Well-Known Member

Active Member

Active Member

Member

Member

Member

Member

Active Member

Active Member

Member

Active Member

Active Member

Active Member

Well-Known Member

Active Member

Active Member