AdvancedCamera library

Please post your code.

'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 btnTiraFoto As Button
Dim pnlFoto As Panel
Dim boolSalvouColeta As Boolean : boolSalvouColeta=False
Dim strNomeArqFoto As String
Dim lblFoto As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Fotos")
lblFoto.Text=Main.gstrFoto
btnTiraFoto.Enabled = True
End Sub

Sub Activity_Resume
btnTiraFoto.Enabled = False
camera1.Initialize(pnlFoto, "Camera1")

End Sub

Sub Activity_Pause (UserClosed As Boolean)
camera1.StopPreview
camera1.Release
End Sub
Sub btnTiraFoto_Click
btnTiraFoto.Enabled = False
camera1.Quality=50
camera1.PictureSize(320,240)
camera1.TakePicture
End Sub
Sub Camera1_Ready (Success As Boolean)
If Success Then
camera1.StartPreview
btnTiraFoto.Enabled = True
Else
ToastMessageShow("Não conseguiu abrir a câmera", True)
End If
End Sub
Sub Camera1_PictureTaken (data() As Byte)
camera1.StartPreview
Dim out As OutputStream
Dim dtHoje As Long : dtHoje = DateTime.Now

strNomeArqFoto = Main.gstrNomeCliExec.SubString2(0,10) & "-" & Main.gstrFoto & "-" & _
DateTime.GetDayOfMonth(dtHoje) & DateTime.GetMonth(dtHoje) & _
DateTime.GetHour(dtHoje) & DateTime.GetMinute(dtHoje) & _
DateTime.GetSecond(dtHoje) & ".jpg"


out = File.OpenOutput(File.DirRootExternal, strNomeArqFoto, False)
out.WriteBytes(data, 0, data.Length)
out.Close
ToastMessageShow("Foto salva: " & File.Combine(File.DirRootExternal, strNomeArqFoto), True)
btnTiraFoto.Enabled = False
End Sub

Try


or

Same problem. The strange thing is that the example provided with the library is working perfectly.

I ran your code and noticed if i change the project to landscape it works fine.

http://www.b4x.com/forum/basic4andr...-take-pictures-internal-camera.html#post45948

Currently only landscape is supported (this is the native camera orientation). - Erel

Click to expand...

Also try manually editing the manifest file.

http://www.b4x.com/forum/basic4andr...ake-pictures-internal-camera-2.html#post45958

Thank you, now works but the file with picture is empty. What could be now?
thanks is advance.

I note if I use camera1.PictureSize(640,480) it works, but don´t if I use camera1.PictureSize(320,240).

I know my camera can't support 320x240 so it might be the same with yours. What device are you testing this on?

That's it, thanks.