Private Sub TakePicture (TargetWidth As Int, TargetHeight As Int)
Camera.TakePicture
Wait For Camera_Complete (Success As Boolean, Image As Bitmap, VideoPath As String)
B4XPages.GetManager.mStackOfPageIds.Add(B4XPages.GetPageId(Me))
If Success Then
Dim bmp As B4XBitmap = Image
Log("TargetWidth:"&TargetWidth & ", TargetHeight:"& TargetHeight)
bmp.Resize(TargetWidth, TargetHeight, True)
GrabarImagen(bmp)
CallSubDelayed3(Me, "Image_Available", True, bmp)
Else
CallSubDelayed3(Me, "Image_Available", False, Null)
End If
End Sub
Private Sub GrabarImagen(bmp As B4XBitmap)
Dim Out As OutputStream
Out = File.OpenOutput(xui.DefaultFolder, "Test.png", False)
bmp.WriteToStream(Out, 90, "JPEG")
Out.Close
End Sub
Private Sub SwbAceptar_Click
Reingreso = 0
'Dim su As StringUtils
'Dim base64 As String = su.EncodeBase64(File.ReadBytes(ImageView1.GetBitmap))
'Dim base As String = Base64EncodeDecodeImage.ImageToString2(ImageView1.GetBitmap)
Dim base As String = Base64EncodeDecodeImage.Base64ImageToString(xui.DefaultFolder,"Test.png")
Log(base.Length)
B4XLoadingIndicator1.Show
wait for (enviarImagen(base)) complete (result As String)
B4XLoadingIndicator1.Hide
Log(result)
B4XPages.ClosePage(Me)
End Sub
Sub enviarImagen(pImagenBase64 As String) As ResumableSub
Dim j As HttpJob
'Dim parser As JSONParser
Dim JSONGenerator As JSONGenerator
Dim Parametros As Map
Dim hayError As String
hayError = ""
j.Initialize("",Me)
Parametros.Initialize
'B4XLoadingIndicator1.Show
Parametros.put("Usuario",Main.Usuario)
Parametros.Put("Imagen",pImagenBase64)
Parametros.Put("Observaciones",B4XFComentario.Text)
Parametros.Put("IdOwner",IdOwner)
Parametros.Put("Catalogo",Catalogo)
JSONGenerator.Initialize(Parametros)
j.Initialize("",Me)
j.putstring( Main.Servidor & "/imagenes", JSONGenerator.ToString )
j.GetRequest.SetContentType("application/json") ' yes, it comes after j.poststring()
wait for (j) JobDone (j As HttpJob)
If j.Success Then
'parser.Initialize(j.GetString())
hayError = "ok" & j.GetString()
Else
hayError = j.ErrorMessage
End If
j.Release
'B4XLoadingIndicator1.Hide
'Log("Cargado:"&LCuotasPrestamos)
Return hayError
End Sub