Spanish Error Desconocido

dhernandez

Active Member
Licensed User
Longtime User
Buen dia a todos, pueden decirme de que se trata este error?
1ebc328f17791ef5f0b62ec6152b65e6o.jpg


Aparentemente todo lo tengo correcto
 

dhernandez

Active Member
Licensed User
Longtime User
Perdon, a ver si lo notan ahora
kcgh78.jpg
 

JoanRPM

Active Member
Licensed User
Longtime User
A mi, a veces, también me pasa que no sé de donde me viene el error.
Lo que hago es ponerlo en modo debug, así se para en la linea de código donde hay el error.
Con lo poco que se ve de código, parece que tienes un error al leer la base de datos, y lo tienes cuando lees la columna y fila 0.

Saludos.
 

dhernandez

Active Member
Licensed User
Longtime User
Mire el error viene de una foto. tomo la foto, la almaceno en la base de datos todobien,, pero al leerlo, me viene ese error
 

josete

Member
Licensed User
Longtime User
Si puedes postear el trozo de codigo en que esta la linea que da el error( parece la 545),mejor
 

dhernandez

Active Member
Licensed User
Longtime User
ok, ese lo subo en seguida. gracias
 

dhernandez

Active Member
Licensed User
Longtime User
Este es el codigo donde genera el error anterior.
B4X:
Sub Camera1_PictureTaken (Data() As Byte)
     
     
            Dim aleatorio As Int
            aleatorio = Rnd(111,3333)
            Variables.aleatoriofoto1 = aleatorio

                  Dim filename As String = Variables.aleatoriofoto1 & ".png"
                  Dim dir As String = ruta & "/" & "DCIM"
     
                        camEx.SavePictureToFile(Data, dir, filename)
                        camEx.StartPreview 'restart preview

                             'send a broadcast Intent To the media scanner To force it To scan the saved File.
                             Dim Phone As Phone
                             Dim i As Intent
      i.Initialize("android.intent.action.MEDIA_SCANNER_SCAN_FILE", _
            "file://" & File.Combine(dir,filename))
      Phone.SendBroadcastIntent(i)
     
      Dim InputStream3 As InputStream
                        InputStream3 = File.OpenInput(dir, filename)
                        Dim OutputStream3 As OutputStream
                        OutputStream3.InitializeToBytesArray(1000)
                             File.Copy2(InputStream3, OutputStream3)
                             Dim Buffer2() As Byte
                                   Buffer2 = OutputStream3.ToBytesArray
                                  
                                   SQLfront.ExecNonQuery2("INSERT INTO T_ACTIVIDAD VALUES(?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)", Array As Object(Variables.empresa1,Variables.cserv1,Variables.personal_id1,Variables.fechahoy1,Variables.horahoy1,Variables.puesto1,Variables.act_mov1,Variables.Act_observ1,(Buffer2),Variables.act_gpslat1,Variables.act_gpslon1))

           
      pic1.SetBackgroundImage(LoadBitmapSample(dir,filename,100,100))


End Sub
 

josete

Member
Licensed User
Longtime User
Segun el error el fallo parece efectivamente de lectura de de la base de datos pero en el codigo que subes solo veo que se insertan registros.me choca que parece que guardas imagenes con nombre aleatorio,eso no puede machacar alguna imagen en caso de coincidir el nombre con otro? Solo se me ocurre que hagas un log del numero de resultados que da la query (cursor.rowcount) si te da 0 esque la query falla .
 

dhernandez

Active Member
Licensed User
Longtime User
De hecho lo he puesto fijo, con algun otro nombre y tampoco quieres..
La imagen pesa 15 mega por eso creo k no se transfiere completo no se, como sea... el BytesArray.
como le hago para mandar una imagen mas grande a mi sqlite?
 
Top